Freshmark replication server

freshmark-canonical

Program drill-down

DUMMY_TRANSFER

DUMMY TRANSFER. Type DSP, base table SUPPLIER_MAST.

Field inventory

60

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 22 I -1 531, 181
$VALIDATE  I:I\VALID_SUPPL;<>;  DO(TRNS)    A:VAR;I\VALID_SUPPL;I\VALID_SUPPL;;000000    U:DUMMY_SUPPL_TRANSFER;CHK_EXISTING_SUPP    F:SUPPLIER_MAST;;;I\SUPPL_NAME=SUM_SUPPL;SUM_SUPPL='$I\VALID_SUPPL$'    'I:I\SUPPL_NAME;<>;    'DO(SUP)    'D:$I\SUPPL_NAME$ IS AN EXISTING SUPPLIER;ERRORM;I\DUMMY_SUPPL1    'DOEND(SUP)  
1 0.0 Label 3 T -1 421, 289
  
1 0.0 Label 4 T -1 421, 325
  
1 0.0 Label 11 T -1 21, 217
  
1 0.0 Label 15 T -1 21, 349
  
1 0.0 Label 19 T -1 21, 421
  
1 0.0 Label 16 T -1 21, 373
  
1 0.0 Work 32 I -1 151, 421
  
1 0.0 Work 31 I -1 151, 397
  
1 0.0 Work 30 I -1 151, 373
  
1 0.0 Work 3 I 0 101, 133
  
1 0.0 Work 29 I -1 351, 349
  
1 0.0 Work 28 I -1 151, 349
  
1 0.0 Work 27 I -1 151, 325
  
1 0.0 Work 26 I -1 151, 289
  
1 0.0 Work 25 I -1 151, 253
  
1 0.0 Work 24 I -1 151, 217
  
1 0.0 Work 23 I -1 151, 181
$SELECT  I:I\DUMMY_CHK;=;1  DO(DUMMY)    I:I\AGENT;<>;    S:DUMMY_SUPPL;I\DUMMY_SUPPL;I\AGENT        I:I\AGENT;=;    S:DUMMY_SUPPL_ALL;I\DUMMY_SUPPL  DOEND(DUMMY)    $VALIDATE  I:I\DUMMY_SUPPL;=;  D:ENTER A DUMMY SUPPLIER OR PRESS F5;ERRORM;I\DUMMY_SUPPL    I:I\DUMMY_SUPPL;<>;  DO(001)  A:VAR;I\DUMMY_SUPPL;I\DUMMY_SUPP
1 0.0 Work 6 I -1 531, 253
  
1 0.0 Work 7 I -1 531, 289
  
1 0.0 Work 8 I -1 531, 325
  
1 0.0 Work 1 I 0 1, 157
  
1 0.0 Work 1 I 0 101, 109
  
1 0.0 Label 8 T -1 191, 145
  
1 0.0 Label 6 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 49
  
1 0.0 Label 4 T -1 671, 25
  
1 0.0 Label 3 T -1 271, 49
  
1 0.0 Label 18 T -1 251, 349
  
1 0.0 Label 14 T -1 21, 325
  
1 0.0 Label 9 T -1 21, 181
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 20 T -1 21, 445
  
1 0.0 Label 10 T -1 421, 181
  
1 0.0 Label 1 T -1 291, 25
  
1 0.0 CMD 39 C -1 251, 181
$SELECT  I:I\DUMMY_CHK;=;1  DO(DUMMY)    I:I\AGENT;<>;    S:DUMMY_SUPPL;I\DUMMY;I\AGENT        I:I\AGENT;=;    S:DUMMY_SUPPL_ALL;I\DUMMY  DOEND(DUMMY)      
1 0.0 Work 5 I -1 531, 217
  
1 0.0 Label 2 T -1 1, 25
  
1 0.0 Label 17 T -1 21, 397
  
1 0.0 Work 21 I -1 271, 145
$SELECT    S:AGN_CODE;I\AGENT    $VALIDATE  M:  I:I\AGENT;<>;  C:UCASE  F:AGENT_MAST;Y;;W\ACCTYPE=AM_TYPE,T\NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT  'I:I\ORGS;<>;I\AGENT  'D:YOU NOT ALLOWED TO ENTER ANOTHER AGENT;ERRORM;I\AGENT  I:I\ORGS;<>;  D:AGENT NOT ALLOWED TO DO THE TRANSFER;ERRORM;I\AGENT  'DO(01)    'DOEND(01)
1 0.0 Label 12 T -1 21, 253
  
1 0.0 Label 13 T -1 21, 289
  
1 0.0 Label 1 T -1 401, 145
  
1 0.0 CMD 38 C -1 371, 145
$SELECT    S:AGN_CODE;I\AGENT
1 0.0 H -1 0, 0
  
1 0.0 CMD 37 C -1 651, 546
$SELECT  I:I\VALID_SUPPL;<>;  U:DUMMY_SUPPL_TRANSFER;DUMMY_TRANS  A:CONST;;I\DUMMY_SUPPL,I\SUPPLIER_NAME,I\ADDR1,I\ADDR2,I\ADDR3,I\VALID_SUPPL  A:CONST;;I\PCODE,I\AREA,I\TELNO,I\CELLNO,I\VAT_NO,I\INC_TAX_NO,I\AGENT,T\NAME  A:CONST;;I\VNAME,I\VADDR1,I\VADDR2,I\VADDR3      O:SETFOCUS;I\AGENT
1 0.0 Label 1 T -1 421, 217
  
1 0.0 Label 2 T -1 421, 253
  
1 0.0 Work 33 I -1 151, 445
  
1 0.0 Work 2 I 0 1, 133
  
1 0.0 Work 34 I 0 1, 61
$DEFAULT    A:TIME;HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:TIMER_ON;1000  A:USERID;;I\USER  A:USERIP;;I\IP  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE
1 0.0 Work 35 I 0 1, 85
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  DEFAULT  'LOAD MARKET CODE AND AGENT CODE    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME,I\DUMMY_CHK=CM_DUMMY_SUPPLIER  C:MCASE;;T\MKT  
1 0.0 Work 36 I 0 1, 109
$DEFAULT  A:ORGS;;I\ORGS  A:CONST;$I\ORGS$;I\AGENT    I:I\ORGS;<>;  DO(03)  'O:DISABLEINPUT;I\AGENT  F:AGENT_MAST;;;T\NAME=AM_NAME;AM_CODE='$I\ORGS$'  DOEND(03)  
1 0.0 Work 40 I 0 101, 61
  
1 0.0 Work 41 I 0 101, 85
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0