Freshmark replication server

freshmark-canonical

Program drill-down

SUPPL_DETAILS_ENQ

SUPPLIER DETAILS ENQUIRY. Type DSP, base table TROLLEY_MAST.

Field inventory

51

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 MARKET I 0 191, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  'F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\MARKET$'      'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET  U:ZZG
1 0.0 H -1 0, 0
  
1 0.0 Work 1 G -1 21, 337
  
1 0.0 CMD 2 C -1 261, 157
$SELECT  S:SUPPL_CODE;I\SUPPL
1 0.0 Work 1 I 0 681, 121
$VALIDATE    C:UCASE  V:C;N
1 0.0 ORGS I 0 171, 61
$DEFAULT  A:ORGS;;I\ORGS    'I:I\ORGS;<>;  'DO(PAS)  '  O:DISABLEINPUT;C\RUN,C\COMPLETE  '  D:AGENTS MAY NOT RUN THIS SCREEN;ERRORM;  'DOEND(PAS)    'I:I\ORGS;=;  'DO(PAS)  '  O:ENABLEINPUT;C\RUN,C\COMPLETE  'DOEND(PAS)    I:I\ORGS;<>;   DO(AGN)    F:AGENT_MAST;;;I\PASSWORD=AM_SUPPL_PASSWORD,I\PASSREQUIRED=AM_SUPPL_PW_
1 0.0 Work 2 I -1 161, 157
$SELECT  S:SUPPL_CODE;I\SUPPL    $VALIDATE  M:  F:SUPPLIER_MAST;Y;;;SUM_SUPPL='$I\SUPPL$';I\SUPPL  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\AGENTCODE,I\NAME  U:SUPPLIER_AGENT_ENQUIRY;SUPPLIER_ENQUIRY;G\GRID    U:ZZGRID_SPLIT;INIT_GRID;G\GRID1;I\SLSMAN,I\ITEM  U:SUPPLIER_AGENT_ENQUIRY;SUPPL_SLSMAN_ITEMS;G\GRID1
1 0.0 Work 2 I 0 21, 337
  
1 0.0 Work 3 I 0 121, 337
  
1 0.0 Work 2 I 0 231, 61
  
1 0.0 Work 3 I 0 681, 145
  $VALIDATE  I:I\SUPPL_TO;<>;  A:ISNUMERIC;I\SUPPL_TO;I\TMP1  I:I\TMP1;=;Y  A:VAR;I\SUPPL_TO;I\SUPPL_TO;;000000    C:UCASE    I:I\SEQ;=;N   DO(CHK2)    I:I\TMP1;=;Y   D:SUPPLIER FROM MUST NOT BE NUMERIC;ERRORM;I\SUPPL_TO   DOEND(CHK2)      I:I\SEQ;=;C   DO(CHK)   I:I\TMP1;=;N   D:SUPPLIER FROM MUST BE NUMERIC;ERRORM;I\
1 0.0 Work 1 I 0 131, 61
  
1 0.0 Work 1 I 0 121, 49
  
1 0.0 Work 1 I 0 591, 85
  
1 0.0 Work 2 I 0 561, 85
  
1 0.0 Work 2 I 0 91, 49
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 291, 49
  
1 0.0 Label 5 T -1 621, 25
  
1 0.0 Label 6 T -1 671, 25
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 8 T -1 671, 49
  
1 0.0 Label 9 T -1 1, 25
  
1 0.0 Label 1 T -1 301, 157
  
1 0.0 Label 10 T -1 121, 313
  
1 0.0 Label 9 T -1 21, 313
  
1 0.0 Label 4 T 0 621, 121
  
1 0.0 Label 5 T -1 21, 157
  
1 0.0 Label 6 T 0 621, 145
  
1 0.0 Label 1 T -1 371, 313
  
1 0.0 Label 2 T -1 471, 313
  
1 0.0 Work 3 I 0 371, 337
  
1 0.0 Work 4 I 0 471, 337
  
1 0.0 Work 5 G -1 371, 337
  
1 0.0 Label 16 T -1 21, 121
  
1 0.0 Work 10 I -1 161, 193
  
1 0.0 Work 11 I -1 161, 217
  
1 0.0 Work 12 I -1 161, 241
  
1 0.0 Work 13 I -1 161, 265
  
1 0.0 Label 6 T -1 21, 193
  
1 0.0 Label 7 T -1 21, 217
  
1 0.0 Label 8 T -1 21, 241
  
1 0.0 Label 9 T -1 21, 265
  
1 0.0 Label 1 T -1 301, 265
  
1 0.0 Work 2 I -1 441, 265
  
1 0.0 Check 15 K -1 171, 121
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0