Freshmark replication server

freshmark-canonical

Program drill-down

DISCARDS_DEL

DISCARDS REVERSAL. Type MAN, base table STK_MAST.

Field inventory

120

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 1, 85
  
1 0.0 STK_MAST SM_DELNO I -1 131, 109
$SELECT  'DISPLAY SELECTION WINDOW FOR DELIVERIES  'S:DELIVERY_CONSIGN;I\SM_DELNO  'S:DELIVERY_CONSIGN_2;I\SM_DELNO  S:DISCARDS_CONSIGN;I\SM_DELNO      '$SELECT6  'DISPLAY SELECTION WINDOW FOR CONSIGNMENTS  '''S:CONSIGN;I\SM_DELNO;I\MARKET '' COMMENTED BY SVIG 2008/05/09 NOT SURE WHAT 'F6' IS FOR BECAUSE IT VALIDATION 
1 0.0 DISCARD CONFIRMA I 0 381, 529
  
1 0.0 Work 1 I 0 11, 85
  
1 0.0 STK_MAST SM_DELNO T -1 1, 109
  
1 0.0 Label 2 T -1 1, 25
  
1 0.0 MARKET I 0 8, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,W\ZEROFILL=CM_DEL_LEN,W\DISCARD_CONF=CM_DISCARD_CONF      'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET        'LOAD THE USER NAME  A:USERIP;;I\USER_IP  
1 0.0 STK_MAST SM_DTIME I -1 391, 109
  
1 0.0 STK_MAST SM_DTIME T -1 291, 109
  
1 0.0 STK_MAST SM_DDATE I -1 621, 109
  
1 0.0 STK_MAST SM_DDATE T -1 491, 109
  
1 0.0 STK_MAST SM_SUPP I -1 131, 145
  
1 0.0 STK_MAST SM_SUPP T -1 1, 145
  
1 0.0 STK_MAST SM_REFNO I -1 621, 145
  
1 0.0 STK_MAST SM_REFNO T -1 491, 145
  
1 0.0 STK_MAST SM_AGENT I -1 131, 169
  
1 0.0 STK_MAST SM_AGENT T -1 1, 169
  
1 0.0 STK_MAST SM_SMAN I -1 131, 193
  
1 0.0 STK_MAST SM_SMAN T -1 1, 193
  
1 0.0 STK_MAST SM_AREA I -1 621, 169
  
1 0.0 STK_MAST SM_AREA T -1 491, 169
  
1 0.0 STK_MAST SM_TRNPTR I -1 131, 217
  
1 0.0 STK_MAST SM_TRNPTR T -1 1, 217
  
1 0.0 STK_MAST SM_VREGNO I -1 131, 241
  
1 0.0 STK_MAST SM_VREGNO T -1 1, 241
  
1 0.0 STK_MAST SM_WAYBILLNO I -1 391, 241
  
1 0.0 STK_MAST SM_WAYBILLNO T -1 291, 241
  
1 0.0 GRID G -1 1, 361
  
1 0.0 Label 16 T -1 291, 25
  
1 0.0 Label 17 T -1 315, 49
  
1 0.0 Label 18 T -1 621, 25
  
1 0.0 Label 19 T -1 671, 25
  
1 0.0 Label 20 T -1 621, 49
  
1 0.0 Label 21 T -1 671, 49
  
1 0.0 STK_DETS SD_CONSIGN I -1 31, 337
  
1 0.0 STK_DETS SD_CONSIGN T -1 34, 313
  
1 0.0 I -1 111, 337
  
1 0.0 Label 24 T -1 111, 313
  
1 0.0 STK_DETS SD_RECQTY I -1 250, 337
  
1 0.0 STK_DETS SD_RECQTY T -1 251, 313
  
1 0.0 RSN_CODE T -1 321, 313
  
1 0.0 STK_DETS SD_CERTNO I -1 516, 337
  
1 0.0 I -1 368, 337
  
1 0.0 T -1 369, 312
  
1 0.0 Label 29 T -1 211, 145
  
1 0.0 Label 30 T -1 211, 169
  
1 0.0 Label 31 T -1 211, 193
  
1 0.0 Label 32 T -1 211, 217
  
1 0.0 Label 33 T 0 321, 277
  
1 0.0 SOLD QTY I -1 280, 337
  
1 0.0 Label 35 T -1 478, 288
  
1 0.0 SD_DISQTY I -1 476, 337
  
1 0.0 SD_CERTNO T -1 518, 312
  
1 0.0 STK_TRANS ST_RSN_CODE D -1 321, 337
  
1 0.0 SD_CFM T -1 599, 311
  
1 0.0 CONFIRM I -1 600, 337
  
1 0.0 DEDUCT_TRANS DT_DEDUCT_CODE I -1 635, 337
  
1 0.0 ACTION I -1 771, 337
$CALCULATE  'CONVERT TO UPERCASE  C:UCASE    'DISPLAY ERROR MESSAGE IF ANY OTHER VALUES OTHER THAN BLANK OR 'D' ARE ENTERED  V:D;    I:D\RSN_CODE;=;  D:THERE ARE NO DISCARDS ON THIS CONSIGNMENT;ERRORM;I\LINE               U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\DISCARD;I\LINE    A:CONST;;I\LINE,I\SD_CONSIGN,I\ST_DOCNO,I\SD_COM
1 0.0 Label 44 T -1 713, 311
  
1 0.0 Label 45 T -1 771, 313
  
1 0.0 Label 46 T -1 635, 311
  
1 0.0 Label 47 T -1 251, 291
  
1 0.0 Label 48 T 0 281, 277
  
1 0.0 Label 49 T -1 477, 312
  
1 0.0 Work 56 I 0 1, 529
  
1 0.0 DEFAULT I 0 41, 61
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'INITIALIZE GRID  U:ZZGRID_SPLIT;INIT_GRID;G\DISCARD;I\LINE,I\SD_CONSIGN,I\ST_DOCNO:H,I\SD_COMM,I\SD_RECQTY,I\FLAG:H,I\SD_QTY:H,D\RSN_CODE,I\ST_REASON,I\SD_DISQTY,I\SD_CERTNO,I\SD_CFM,I\SD_CLASS:H,I\SD_SIZE:H,I\SD_CONT:H,I\SD_CONTMASS:H,I
1 0.0 Work 52 I 0 23, 531
  
1 0.0 Work 53 I 0 44, 530
  
1 0.0 CMD 54 C -1 231, 109
$SELECT  'DISPLAY SELECTION WINDOW FOR DELIVERIES  'S:DELIVERY_CONSIGN;I\SM_DELNO  'S:DELIVERY_CONSIGN_2;I\SM_DELNO  S:DISCARDS_CONSIGN;I\SM_DELNO  
1 0.0 STK_DETS SD_CLASS I 0 131, 541
  
1 0.0 STK_DETS SD_SIZE I 0 151, 541
  
1 0.0 STK_DETS SD_CONT I 0 171, 541
  
1 0.0 STK_DETS SD_CONTMASS I 0 201, 541
  
1 0.0 STK_DETS SD_PROV I 0 281, 565
  
1 0.0 Label 3 T -1 1, 493
  
1 0.0 Label 4 T -1 281, 493
  
1 0.0 Label 5 T -1 551, 493
  
1 0.0 Work 6 I -1 671, 493
  
1 0.0 Work 7 I -1 421, 493
  
1 0.0 Work 8 I -1 111, 493
  
1 0.0 STK_DETS SD_RETQTY I 0 191, 565
  
1 0.0 STK_DETS SD_SLDQTY I 0 171, 565
  
1 0.0 STK_DETS SD_ADJQTY I 0 151, 565
  
1 0.0 STK_DETS SD_CSQTY I 0 131, 565
  
1 0.0 STK_DETS SD_RRQTY I 0 211, 565
  
1 0.0 DEDUCT_TRANS DT_AMOUNT I -1 711, 337
  
1 0.0 C\DT_CODE C -1 680, 336
$SELECT  'DISPLAY A SELECTION WINDOW  S:CHARGE_CODE;I\DT_DEDUCT_CODE    
1 0.0 Label 4 T -1 635, 286
  
1 0.0 Label 5 T -1 712, 286
  
1 0.0 DT_DEDUCT_CODE T 0 672, 263
  
1 0.0 W DELNO I 0 261, 109
  
1 0.0 Work 1 I 0 31, 85
  
1 0.0 STK_DETS SD_CONQTY I 0 231, 565
  
1 0.0 STK_DETS SD_PROVQTY I 0 251, 565
  
1 0.0 Work 1 I 0 311, 565
  
1 0.0 Work 2 I 0 331, 565
  
1 0.0 Work 1 I 0 371, 565
  
1 0.0 Work 1 I 0 351, 565
  
1 0.0 Work 2 I 0 391, 565
  
1 0.0 W SM_DDATE I 0 761, 109
  
1 0.0 Mode I 0 101, 61
$DEFAULT  A:CONST;R;I\MODE    
1 0.0 LINE I -1 1, 337
$SELECT  'DISPLAY A SELECTION WINDOW FOR GRID VALUES  S:G:G\DISCARD:R1        $CALCULATE  I:I\LINE;=;+  D:INVALID ENTRY;ERRORM;I\LINE    I:I\LINE;<>;  O:ENABLEINPUT;I\SD_ACTION    I:I\LINE;=;   DO(NULL)     A:CONST;;I\CODE,I\DIS_QTY,I\CERTNO,I\CFM,I\DEDUCT_CODE     A:CONST;;I\SD_CONSIGN,I\ST_DOCNO:H,I\SD_COMM,I\SD_RECQ
1 0.0 LINE T -1 1, 313
  
1 0.0 FLAG I 0 251, 373
  
1 0.0 ST_DOCNO I 0 71, 529
  
1 0.0 DIS QTY I 0 301, 529
  
1 0.0 CODE I 0 281, 529
  
1 0.0 CERTNO I 0 321, 529
  
1 0.0 CONFIRM I 0 341, 529
  
1 0.0 DEDUCT CODE I 0 361, 529
  
1 0.0 Label 7 T 0 481, 289
  
1 0.0 W LINE TEMP I 0 1, 289
  
1 0.0 LINE TEMP I 0 21, 289
  
1 0.0 LINE 2 I 0 41, 289
  
1 0.0 ZERO FILL I 0 301, 169
  
10 0.0 ZX_EXIT Z 0 1, 85
  
10 0.0 ZX_UPDATE Z 0 1, 85
  
10 0.0 ZX_SELECT Z 0 1, 85
  
10 0.0 ZX_DELETE Z 0 1, 85
  
10 0.0 ZX_PRINT Z 0 1, 85