Freshmark replication server

freshmark-canonical

Program drill-down

GCN_CONFIRMATION2

GCN CONFIRMATION. Type MAN, base table SUPPLIER_MAST.

Field inventory

73

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 15 T -1 51, 265
  
1 0.0 Label 8 T -1 51, 181
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 H -1 0, 0
  
1 0.0 Label 2 T -1 261, 133
  
1 0.0 Work 14 I 0 51, 289
  
1 0.0 Label 16 T -1 201, 109
  
1 0.0 Label 1 T -1 531, 133
  
1 0.0 Work 12 G -1 51, 241
  
1 0.0 Label 17 T -1 51, 133
  
1 0.0 STK_MAST SM_DDATE I -1 631, 133
  
1 0.0 STK_MAST SM_AGENT I -1 151, 133
  
1 0.0 STK_MAST SM_SUPP I -1 111, 109
  
1 0.0 STK_MAST SM_MARKET I 0 111, 25
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\SM_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    A:TIME;HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:TIMER_ON;1000    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\OPTION,I\AGENT,I\SUPPLIER,I\
1 0.0 Work 2 I -1 631, 109
  
1 0.0 STK_MAST SM_DELNO I -1 111, 73
  
1 0.0 Work 3 I -1 631, 493
$VALIDATE  C:UCASE  V:Y;N    'I:I\PROCEED;<>;Y  'DO(N)  '  I:I\PROCEED;<>;N  '    DO(ERROR)  '      D:ENTER 'Y' OR 'N';ERRORM;I\PROCEED  '    DOEND(ERROR)  'DOEND(N)
1 0.0 Label 5 T -1 151, 265
  
1 0.0 Work 6 I -1 151, 157
  
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 321, 49
  
1 0.0 Label 3 T -1 671, 25
  
1 0.0 Label 4 T -1 671, 49
  
1 0.0 Label 5 T -1 1, 25
  
1 0.0 Label 6 T -1 621, 25
  
1 0.0 STK_MAST SM_WAYBILLNO I -1 151, 181
$SELECT  S:WAYBILLNO;I\SM_WAYBILLNO    $VALIDATE  M:  A:CONST;;I\ERROR    '=======================================================================================  'NEW CHECK BY JD 20150701 - THIS WILL DISALLOW CONFIRMATIONS IF THE SALES ARE PROHIBITED  F:CLIENT_MAST;;;I\PROH=CM_PROHIBIT_SALES,I\PROHIBIT_AGENT_SALES=CM
1 0.0 Work 10 I 0 251, 289
  
1 0.0 Work 11 I 0 351, 289
  
1 0.0 Label 8 T -1 451, 265
  
1 0.0 Work 9 I 0 151, 289
  
1 0.0 Label 1 T -1 11, 73
  
1 0.0 Label 4 T -1 421, 493
  
1 0.0 Label 5 T -1 51, 157
  
1 0.0 Label 7 T -1 51, 505
  
1 0.0 PROH I 0 201, 73
  
1 0.0 PROHIBIT_AGENT_SALES I 0 241, 73
  
1 0.0 Work 1 I -1 391, 157
  
1 0.0 Label 1 T -1 261, 157
  
1 0.0 Label 2 T -1 261, 181
  
1 0.0 Label 3 T -1 531, 109
  
1 0.0 Label 4 T -1 531, 157
  
1 0.0 Label 5 T -1 531, 181
  
1 0.0 Work 6 I -1 631, 157
  
1 0.0 STK_MAST SM_SMAN I -1 631, 181
  
1 0.0 Label 8 T -1 51, 217
  
1 0.0 Label 9 T -1 141, 217
  
1 0.0 Label 10 T -1 271, 217
  
1 0.0 Label 11 T -1 341, 217
  
1 0.0 Label 12 T -1 411, 217
  
1 0.0 Label 13 T -1 481, 217
  
1 0.0 Label 14 T -1 551, 217
  
1 0.0 Work 15 I -1 51, 241
  
1 0.0 Work 16 I -1 141, 241
  
1 0.0 Work 17 I -1 261, 241
  
1 0.0 Work 18 I -1 341, 241
  
1 0.0 Work 19 I -1 411, 241
  
1 0.0 Work 20 I -1 481, 241
  
1 0.0 Work 21 I -1 551, 241
  
1 0.0 Work 13 G -1 51, 289
  
1 0.0 Work 3 I -1 211, 505
$VALIDATE  M:  U:GCN_CONFIRMATION;PASS_WAYBILL_DATA;G\GRID    U:ZZGRID_SPLIT;INIT_GRID;G\GRID1;I\CONSIGNO,I\COMMODITY,I\DELIV,I\SOLD,I\COLDSTORE,I\DISCARD,I\ONHAND  A:CONST;$I\SM_DELNO$;I\GCN_NO    U:GCN_CONFIRMATION;CONFIRM_WAYBILL;G\GRID1    O:SHOW;G\GRID1,I\CONSIGNO,I\COMMODITY,I\DELIV,I\SOLD,I\COLDSTORE,I\DISCARD,I
1 0.0 Label 6 T -1 251, 265
  
1 0.0 Work 12 I 0 451, 289
  
1 0.0 STK_MAST SM_REFNO I -1 371, 181
  
1 0.0 Label 7 T -1 351, 265
  
1 0.0 Label 16 T -1 301, 505
  
1 0.0 STK_MAST SM_CONFIRMED I 0 400, 456
  
1 0.0 Work 2 I 0 400, 486
  
1 0.0 Label 3 T -1 11, 109
  
10 0.0 ZX_PRINT Z 0 0, 0
  
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
$UPDATE  I:I\PROCEED;=;Y  DO(Y)     A:CONST;IN PROGRESS...;T\PROG     U:GCN_CONFIRMATION;PROCEED     U:ZZGRID_SPLIT;INIT_GRID1;G\GRID;I\OPTION,I\AGENT,I\SUPPLIER,I\DELIVNO,I\DELIVDATE     U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\OPTION,I\AGENT,I\SUPPLIER,I\DELIVNO,I\DELIVDATE     O:SHOW;G\GRID,I\SELECTED_OPTION,T\SELECTED_OPT
10 0.0 ZX_EXIT Z 0 0, 0