Freshmark replication server

freshmark-canonical

Program drill-down

DUMMY_SUPPL

DUMMY SUPPLIER MAINTANANCE. Type DSP, base table DUMMY_SUPPL.

Field inventory

48

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 DS_SUPPL9 I -1 331, 409
$VALIDATE    I:I\DUMMY_SUPPL9;<>;    DO(CHK)    '--------------------------------------------------------------------  'FORMATING THE SUPPLIER CODE TO BE 6 DIGITS  '--------------------------------------------------------------------    A:VAR;I\DUMMY_SUPPL9;I\DUMMY_SUPPL9;;000000    '***********************************
1 0.0 DS_SUPPL10 I -1 331, 433
$VALIDATE    I:I\DUMMY_SUPPL10;<>;    DO(CHK)    '--------------------------------------------------------------------  'FORMATING THE SUPPLIER CODE TO BE 6 DIGITS  '--------------------------------------------------------------------    A:VAR;I\DUMMY_SUPPL10;I\DUMMY_SUPPL10;;000000    '********************************
1 0.0 DS_SUPPL2 I -1 331, 241
$VALIDATE  I:I\DUMMY_SUPPL2;<>;  'A:VAR;I\DUMMY_SUPPL2;I\DUMMY_SUPPL2;;000000  DO(CHK)    '--------------------------------------------------------------------  'FORMATING THE SUPPLIER CODE TO BE 6 DIGITS  '--------------------------------------------------------------------    A:VAR;I\DUMMY_SUPPL2;I\DUMMY_SUPPL2;;0000
1 0.0 Work 16 I 0 21, 145
$DEFAULT    A:TIME,HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:TIMER_ON;1000  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\RUN
1 0.0 Work 15 I 0 21, 121
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MKT  
1 0.0 Work 10 I 0 461, 433
  
1 0.0 Work 1 I 0 21, 253
  
1 0.0 Work 1 I 0 21, 229
  
1 0.0 Work 1 I 0 461, 217
  
1 0.0 Work 1 I 0 21, 205
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 3 T -1 191, 217
  
1 0.0 Label 6 T -1 191, 181
  
1 0.0 Label 2 T -1 671, 49
  
1 0.0 Label 2 T -1 471, 181
  
1 0.0 Label 3 T -1 251, 49
  
1 0.0 DS_SUPPL8 I -1 331, 385
$VALIDATE    I:I\DUMMY_SUPPL8;<>;    DO(CHK)    '--------------------------------------------------------------------  'FORMATING THE SUPPLIER CODE TO BE 6 DIGITS  '--------------------------------------------------------------------    A:VAR;I\DUMMY_SUPPL8;I\DUMMY_SUPPL8;;000000    '***********************************
1 0.0 DS_SUPPL3 I -1 331, 265
$VALIDATE    I:I\DUMMY_SUPPL3;<>;    DO(CHK)    '--------------------------------------------------------------------  'FORMATING THE SUPPLIER CODE TO BE 6 DIGITS  '--------------------------------------------------------------------    A:VAR;I\DUMMY_SUPPL3;I\DUMMY_SUPPL3;;000000      '*********************************
1 0.0 Label 1 T -1 621, 49
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 DS_SUPPL5 I -1 331, 313
$VALIDATE  I:I\DUMMY_SUPPL5;<>;    DO(CHK)    '--------------------------------------------------------------------  'FORMATING THE SUPPLIER CODE TO BE 6 DIGITS  '--------------------------------------------------------------------    A:VAR;I\DUMMY_SUPPL5;I\DUMMY_SUPPL5;;000000    '*************************************
1 0.0 Label 1 T -1 1, 25
  
1 0.0 DS_SUPPL1 I -1 331, 217
$VALIDATE  I:I\DUMMY_SUPPL1;<>;  DO(CHK)    '--------------------------------------------------------------------  'FORMATING THE SUPPLIER CODE TO BE 6 DIGITS  '--------------------------------------------------------------------    A:VAR;I\DUMMY_SUPPL1;I\DUMMY_SUPPL1;;000000      '*************************************
1 0.0 CMD 3 C -1 431, 181
$SELECT    S:AGN_CODE;I\AGENT
1 0.0 DUMMY_SUPPL DS_AGENT I -1 331, 181
$SELECT    S:AGN_CODE;I\AGENT    $VALIDATE  M:  C:UCASE  A:CONST;;I\DUMMY_SUPPL1,I\DUMMY_SUPPL2,I\DUMMY_SUPPL3,I\DUMMY_SUPPL4,I\DUMMY_SUPPL5,I\DUMMY_SUPPL6  A:CONST;;I\DUMMY_SUPPL7,I\DUMMY_SUPPL8,I\DUMMY_SUPPL9,I\DUMMY_SUPPL10  A:CONST;;W\SUPPLIER1,W\SUPPLIER2,W\SUPPLIER3,W\SUPPLIER4,W\SUPPLIER5,W\SUPPLIER6,W\SUPPLIER7
1 0.0 DS_SUPPL6 I -1 331, 337
$VALIDATE    I:I\DUMMY_SUPPL6;<>;    DO(CHK)    '--------------------------------------------------------------------  'FORMATING THE SUPPLIER CODE TO BE 6 DIGITS  '--------------------------------------------------------------------    A:VAR;I\DUMMY_SUPPL6;I\DUMMY_SUPPL6;;000000    '***********************************
1 0.0 CMD 11 C -1 651, 546
$SELECT  I:I\DUMMY_SUPPL5;=;  DO(CHKDEL)  F:STK_MAST;;;I\SUPPL_CODE=SM_SUPP;SM_SUPP='$W\SUPPLIER5$'  I:I\SUPPL_CODE;<>;  D:$W\SUPPLIER5$ DUMMY CAN NOT BE DELETED;ERRORM;I\DUMMY_SUPPL5  DOEND(CHKDEL)    U:DUMMY_SUPPL;UPDATE_DUMMY  A:CONST;;I\DUMMY_SUPPL1,I\DUMMY_SUPPL2,I\DUMMY_SUPPL3,I\DUMMY_SUPPL4,I\DUMMY_SUPPL5,I\DUMM
1 0.0 DS_SUPPL4 I -1 331, 289
$VALIDATE  I:I\DUMMY_SUPPL4;<>;    DO(CHK)      '--------------------------------------------------------------------  'FORMATING THE SUPPLIER CODE TO BE 6 DIGITS  '--------------------------------------------------------------------    A:VAR;I\DUMMY_SUPPL4;I\DUMMY_SUPPL4;;000000    '***********************************
1 0.0 H -1 0, 0
  
1 0.0 DS_SUPPL7 I -1 331, 361
$VALIDATE    I:I\DUMMY_SUPPL7;<>;    DO(CHK)    '--------------------------------------------------------------------  'FORMATING THE SUPPLIER CODE TO BE 6 DIGITS  '--------------------------------------------------------------------    A:VAR;I\DUMMY_SUPPL7;I\DUMMY_SUPPL7;;000000    '***********************************
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Work 17 I 0 21, 169
$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 2 I 0 461, 241
  
1 0.0 Work 2 I 0 21, 277
  
1 0.0 Work 3 I 0 461, 265
  
1 0.0 Work 3 I 0 21, 301
  
1 0.0 Work 4 I 0 461, 289
  
1 0.0 Work 4 I 0 21, 325
  
1 0.0 Work 5 I 0 461, 313
  
1 0.0 Work 6 I 0 461, 337
  
1 0.0 Work 7 I 0 461, 361
  
1 0.0 Work 8 I 0 461, 385
  
1 0.0 Work 9 I 0 461, 409
  
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