Freshmark replication server

freshmark-canonical

Program drill-down

AGN_EXIT_DKT_SCAN

AGENT EXIT SCAN SALES DOCKET. Type DSP, base table STK_TRANS.

Field inventory

73

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 1 T -1 261, 109
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 261, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 8 T -1 161, 145
  
1 0.0 Label 11 T -1 221, 325
  
1 0.0 DOCKET NUMBER I -1 371, 145
$SELECT  S:UNSCANNED_DKTS;I\DOCKET;I\AGENT;I\MARKET    $VALIDATE  C:UCASE  A:VAR;I\DOCKET;I\TMPDOC  O:HIDE;T\GOOD,T\BAD,T\NOPAY,T\TRAN,T\ONE,T\TWO    M:    'F:ZV_USER_DEFAULTS;;;I\TMP=ZV_TEXT;ZV_CODE='PREAMBLE'  'A:LEN;I\TMP;I\TMP9  'A:LEFT;I\DOCKET,I\TMP9;I\TMP11    'I:I\TMP11;<>;I\TMP  '  DO(EMSG)  '   O:ENABLEINPUT;
1 0.0 STK_TRANS ST_ACCNO I -1 371, 421
  
1 0.0 STK_TRANS ST_ACCNO T -1 281, 421
  
1 0.0 Label 8 T -1 381, 289
  
1 0.0 Work 15 I 0 691, 157
  
1 0.0 Work 13 I 0 1, 61
$DEFAULT  'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:USERIP;;I\IP    A:CONST;N;I\MKT_RESCAN,I\MKT_PW_APPROVAL,I\MKT_EXIT_STOP    O:HIDE;T\GOOD,T\BAD,T\NOPAY,T\TRAN    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\GRID
1 0.0 Work 14 I 0 21, 61
'TO LOAD MARKET NAME  $DEFAULT  O:DISABLEINPUT;I\AGENT,C\SELECT  'LOAD MARKET CODE  A:ORG;;I\MARKET  'LOAD AGENT CODE  A:ORGS;;I\ORGS    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'LOAD AGENT NAME  I:I\ORGS;<>;  DO(0)    F:AGENT_MAST;;;I\AGENT=AM_CODE,T\AGENT=AM_NAME;AM_CODE='$I\ORGS$';    O:DISABLE
1 0.0 TMP12 I 0 41, 61
  
1 0.0 Work 14 I 0 661, 157
  
1 0.0 Work 15 I 0 21, 529
  
1 0.0 Work 16 I 0 51, 529
  
1 0.0 Work 17 I -1 371, 109
$SELECT  S:AGENT_CODE;I\AGENT    $CALCULATE  M:  C:UCASE    'LOAD AGENT NAME  F:AGENT_MAST;;;T\AGENT=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\AGENT    I:I\MARKET;=;15  DO(0)    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\GRID    A:CONST;;T\SUPPL2,T\SUPPNAME2,T\C
1 0.0 TMP I 0 81, 61
  
1 0.0 TMP9 I 0 101, 61
  
1 0.0 TMP11 I 0 61, 61
  
1 0.0 SCAN_TYPE I 0 601, 121
  
1 0.0 CONSIGN I 0 641, 121
  
1 0.0 SLS_SECT I 0 661, 121
  
1 0.0 Label 18 T -1 481, 109
  
1 0.0 Label 21 T -1 271, 325
  
1 0.0 Label 22 T -1 201, 325
  
1 0.0 Work 23 I 0 81, 529
  
1 0.0 Work 24 I 0 631, 157
  
1 0.0 H -1 0, 30
  
1 0.0 Work 13 I 0 21, 553
  
1 0.0 Label 4 T 0 141, 325
  
1 0.0 Label 5 T -1 541, 325
  
1 0.0 Label 1 T -1 261, 145
  
1 0.0 Work 1 G -1 281, 385
  
1 0.0 Work 2 I -1 281, 385
  
1 0.0 Label 3 T -1 281, 361
  
1 0.0 CMD 1 C -1 571, 145
$SELECT  S:UNSCANNED_DKTS;I\DOCKET
1 0.0 IND I 0 681, 121
  
1 0.0 IP I 0 621, 121
  
1 0.0 SD_DELNO I 0 721, 121
  
1 0.0 IDESC T -1 491, 253
  
1 0.0 Label 1 T -1 261, 181
  
1 0.0 Label 2 T -1 261, 217
  
1 0.0 Label 3 T -1 261, 253
  
1 0.0 Label 4 T -1 261, 289
  
1 0.0 Label 5 T -1 381, 181
  
1 0.0 Label 6 T -1 411, 217
  
1 0.0 Label 7 T -1 381, 253
  
1 0.0 DELDATE I 0 701, 121
  
1 0.0 SUPP I 0 741, 121
  
1 0.0 SUPPLNAME I 0 761, 121
  
1 0.0 SUPPNAME2 T -1 491, 181
  
1 0.0 Work 1 I 0 21, 193
  
1 0.0 Work 2 I 0 21, 217
  
1 0.0 Work 3 I 0 21, 241
  
1 0.0 Work 4 I 0 21, 265
  
1 0.0 Work 5 I 0 21, 289
  
1 0.0 Work 6 I 0 21, 313
  
1 0.0 Work 5 I 0 91, 109
  
1 0.0 Work 1 I 0 51, 397
  
1 0.0 Work 2 I 0 51, 421
  
1 0.0 Work 3 I 0 51, 445
  
1 0.0 Work 1 I 0 11, 109
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_UPDATE Z 0 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30