Freshmark replication server

freshmark-canonical

Program drill-down

ITEM_TONN_DUMP

ITEM TONNAGE DUMP. Type DSP, base table STK_MAST.

Field inventory

43

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 27 C -1 271, 445
$SELECT      A:CONST;PROCESSING ...;T\PROG    'PATH THEN FOLLOWED BY PRINTING NAME THEN FOLLOWED BY PARAMETERS THEN LASTLY THE OUTPUT TYPE IE: S OR P OR Y  E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_ITEM_TON_DUMP;$I\MARKET$,$I\AGENT$,$I\FROM_DATE$,$I\TO_DATE$,$I\SUPPL$,$I\ITEM$,$I\AREA1$,$I\AREA2$,$I\DUMP
1 0.0 CMD 29 C -1 431, 133
$SELECT  S:AGENT_CODE;I\AGENT
1 0.0 CMD 31 C -1 431, 241
$SELECT  S:SUPPLIER_CODE3;I\SUPPL
1 0.0 CMD 36 C -1 431, 277
$SELECT  S:COMM_LIST;I\PROD_CODE  'S:PRODUCT;I\ITEM
1 0.0 H -1 0, 0
  
1 0.0 Work 25 I -1 331, 385
$VALIDATE  C:UCASE    V:Y;N    O:SETFOCUS;C\RUN  O:BACKCOLOR;C\RUN;YELLOW
1 0.0 Work 14 I -1 331, 277
$SELECT  S:COMM_LIST;I\ITEM    $VALIDATE    I\ITEM='PRODUCT CODE'  C:UCASE    I:I\ITEM;<>;  DO(1)    A:CONST;;T\PROG    F:PRODUCT_MAST;;;W\PROD_DESC=PR_DESC;PR_PRODUCT='$I\ITEM$';I\ITEM      'I:W\PROD_DESC;=;    'D:ITEM $I\ITEM$ DOES NOT EXIST;ERRORM;I\ITEM  DOEND(1)    
1 0.0 Work 15 I -1 331, 313
$VALIDATE    I:I\AREA1;<>;  DO(1)  F:AREA_MAST;;;W\AREA1=AR_DESC;AR_CODE='$I\AREA1$'  I:W\AREA1;=;   DO(2)  F:PROV_MAST;;;W\PROV1=PR_DESC;PR_PROV='$I\AREA1$'  I:W\PROV1;=;  D:AREA $I\AREA1$ DOES NOT EXIST;ERRORM;I\AREA1  DOEND(2)  DOEND(1)
1 0.0 Work 16 I -1 331, 349
$VALIDATE  I:I\AREA2;<>;  DO(1)  I:I\AREA1;=;  D:ENTER STARTING AREA;ERRORM;I\AREA1  F:AREA_MAST;;;W\AREA2=AR_DESC;AR_CODE='$I\AREA2$'  I:W\AREA2;=;   DO(2)  F:PROV_MAST;;;W\PROV2=PR_DESC;PR_PROV='$I\AREA2$'  I:W\PROV2;=;  D:AREA $I\AREA2$ DOES NOT EXIST;ERRORM;I\AREA2  DOEND(2)  DOEND(1)
1 0.0 Work 32 I 0 1, 97
  
1 0.0 Work 33 I 0 1, 121
  
1 0.0 Work 34 I 0 1, 145
  
1 0.0 Work 35 I 0 1, 169
  
1 0.0 Work 38 I 0 1, 193
  
1 0.0 Work 8 I 0 1, 61
$DEFAULT    'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET      'INITIALIZES THE DATE AND TIME INTO THE T\DAT
1 0.0 Work 9 I 0 31, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:DATE;DD MMM YYYY;I\FROM_DATE  A:DATE;DD MMM YYYY;I\TO_DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000
1 0.0 Work 10 I -1 331, 133
$SELECT  S:AGENT_CODE;I\AGENT    $CALCULATE  M:  C:UCASE    I:I\AGENT;<>;  F:AGENT_MAST;Y;;T\AGENT_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT
1 0.0 Work 11 I -1 331, 169
$VALIDATE    I:I\FROM_DATE;=;  A:DATE;DD MMM YYYY;I\FROM_DATE
1 0.0 Work 12 I -1 331, 205
$VALIDATE    I:I\TO_DATE;=;  A:DATE;DD MMM YYYY;I\TO_DATE
1 0.0 Work 13 I -1 331, 241
$SELECT  S:SUPPLIER_CODE3;I\SUPPL    $VALIDATE    C:UCASE    I:I\SUPPL;<>;  F:SUPPLIER_MAST;Y;;T\SUPPL_NAME=SUM_NAME;SUM_SUPPL='$I\SUPPL$';I\SUPPL
1 0.0 Label 21 T -1 221, 277
  
1 0.0 Label 24 T -1 221, 385
  
1 0.0 Label 18 T -1 221, 169
  
1 0.0 Label 19 T -1 221, 205
  
1 0.0 Label 20 T -1 221, 241
  
1 0.0 Label 17 T -1 221, 133
  
1 0.0 Label 26 T -1 271, 469
  
1 0.0 Label 28 T -1 471, 133
  
1 0.0 Label 30 T -1 471, 241
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 321, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 22 T -1 221, 313
  
1 0.0 Label 23 T -1 221, 349
  
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
  
10 0.0 ZX_EXIT Z 0 0, 0