Freshmark replication server

freshmark-canonical

Program drill-down

DELIVERY_COUNT

DELIVERY COUNT. Type DSP, base table TROLLEY_MAST.

Field inventory

30

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 31 C -1 351, 445
$SELECT       A:CONST;COLLECTING DATA . . . . .;T\PROG   E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_DELIVERY_COUNT;$I\FROM_DATE$,$I\TO_DATE$,$I\FROM_TIME$,$I\TO_TIME$,S   A:CONST;DONE COLLECTING DATA . . . . .;T\PROG    A:DATE;DD MMM YYYY;I\FROM_DATE  A:DATE;DD MMM YYYY;I\TO_DATE  A:CONST;;I\FROM_TIME,I\T
1 0.0 H -1 0, 0
  
1 0.0 Work 25 I 0 11, 97
$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 26 I 0 11, 133
$DEFAULT    A:TIME;HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE    A:TIMER_ON;1000
1 0.0 Work 35 I 0 11, 169
  
1 0.0 Work 21 I -1 351, 217
$VALIDATE  I:I\TO_DATE;=;  A:DATE;DD MMM YYYY;I\TO_DATE  I:I\TO_DATE;<;I\FROM_DATE  DO(02)    A:DATE;DD MMM YYYY;I\TO_DATE  DOEND(02)  
1 0.0 Work 18 I -1 351, 253
$VALIDATE  A:CONST;;I\TMP1,T\PROG      'CHECK THAT THE THIRD DIGIT IS A ":"  A:MID;I\FROM_TIME,3,1;I\TMP1    I:I\TMP1;<>;:    D:ENTER IN FORMAT XX:XX;ERRORM;I\FROM_TIME    'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24  A:LEFT;I\FROM_TIME,2;I\TMP1    I:I\TMP1;>;23    D:CANNOT BE GREATER THAN 23:59;ERRORM;I\FROM
1 0.0 Work 19 I -1 351, 289
$VALIDATE  A:CONST;;I\TMP2    A:MID;I\TO_TIME,3,1;I\TMP2    I:I\TMP2;<>;:    D:ENTER IN FORMAT XX:XX;ERRORM;I\TO_TIME    'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24  A:LEFT;I\TO_TIME,2;I\TMP2    I:I\TMP2;>;23    D:CANNOT BE GREATER THAN 23:59;ERRORM;I\TO_TIME    'CHECK THAT THE LAST TWO DIGITS ARE BETWEEN 00
1 0.0 Work 20 I -1 351, 181
$VALIDATE  I:I\FROM_DATE;=;  A:DATE;DD MMM YYYY;I\FROM_DATE
1 0.0 Work 1 I 0 11, 277
  
1 0.0 Work 36 I 0 11, 205
  
1 0.0 Work 37 I 0 11, 241
$DEFAULT  A:ORGS;;I\ORGS  A:CONST;$I\ORGS$;I\AGN    I:I\ORGS;<>;  DO(03)  O:DISABLEINPUT;I\AGN  O:DISABLEINPUT;C\AGN  F:AGENT_MAST;;;T\NAME=AM_NAME;AM_CODE='$I\ORGS$'  DOEND(03)
1 0.0 Work 2 I 0 11, 301
  
1 0.0 Label 9 T -1 231, 253
  
1 0.0 Label 10 T -1 231, 289
  
1 0.0 Label 15 T -1 351, 469
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 5 T -1 331, 49
  
1 0.0 Label 4 T -1 671, 25
  
1 0.0 Label 3 T -1 621, 25
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 11 T -1 231, 181
  
1 0.0 Label 12 T -1 231, 217
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
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