Freshmark replication server

freshmark-canonical

Program drill-down

PALL_NOT_RETURNED

PALLETS NOT RETURNED WITHIN PERIOD. Type DSP, base table PALL_TRANS.

Field inventory

36

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 1 C -1 461, 145
$SELECT  S:AGENT_CODE;I\AGENT
1 0.0 Label 2 T -1 501, 145
  
1 0.0 ORGS I 0 21, 97
$DEFAULT  A:ORGS;;I\ORGS    'IF USER IS NOT AN AGENT  I:I\ORGS;=;  DO(NOA)        DOEND(NOA)    'IF USER IS AN AGENT  I:I\ORGS;<>;  DO(YAA)    A:VAR;I\ORGS;I\AGENT    O:DISABLEINPUT;I\AGENT,C\AGN    F:AGENT_MAST;;;T\AGN_NAME=AM_NAME;AM_CODE='$I\AGENT$'  DOEND(YAA)  
1 0.0 Label 4 T -1 501, 181
  
1 0.0 Label 1 T -1 201, 289
  
1 0.0 Work 2 I -1 361, 289
$VALIDATE    C:UCASE  M:  I:I\SUMMARY;=;  A:CONST;S;I\SUMMARY  V:D;S    I:I\SUMMARY;=;S  DO(01)  O:DISABLEINPUT;I\SELECTION  A:CONST;S;I\SELECTION  O:SETFOCUS;I\DUMP  DOEND(01)
1 0.0 Label 1 T -1 201, 181
  
1 0.0 Work 2 I -1 361, 181
$SELECT  S:MAIN_DEBTOR;I\DEBTOR    $CALCULATE  A:CONST;;T\NAME    C:UCASE    'CHECK IF EXISTS  F:DEBTOR_MAST;Y;;T\NAME=DM_NAME;DM_DEBTOR='$I\DEBTOR$';I\DEBTOR
1 0.0 CMD 3 C -1 461, 181
$SELECT  S:MAIN_DEBTOR;I\DEBTOR
1 0.0 H -1 0, 0
  
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 271, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 621, 49
  
1 0.0 Label 6 T -1 671, 25
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 8 T -1 201, 217
  
1 0.0 Work 9 I 0 111, 37
$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      A:DATE;DD MMM YYYY;I\FROM_DATE  A:DATE;DD MMM YYYY;I\TO_DATE    A:VAR;I\MARKET;I\TM_MARKET  A:CONST;N;I\DUMP    $AFTER_READ  A:
1 0.0 Work 10 I 0 131, 37
'DISPLAYING TIME  $DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  ''A:TIMER_ON;1000
1 0.0 Work 11 I -1 361, 217
  $CALCULATE    'DEFAULT DATE TO CURRENT  I:I\FROM_DATE;=;  A:DATE;DD MMM YYYY;I\FROM_DATE
1 0.0 Work 12 I -1 361, 361
$VALIDATE    C:UCASE    I:I\DUMP;=;  A:CONST;N;I\DUMP  V:Y;N    O:BACKCOLOR;C\GO;YELLOW  O:SETFOCUS;C\GO
1 0.0 CMD 15 C -1 301, 421
$SELECT    I:I\SUMMARY;=;S  A:CONST;S;I\SELECTION    A:CONST;IN PROGRESS...;T\PROG    E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_PALL_NOT_RETURNED_WITHIN_PERIOD;$I\AGENT$,$I\DEBTOR$,$I\FROM_DATE$,$I\TO_DATE$,$I\SUMMARY$,$I\SELECTION$,$I\DUMP$,S  A:CONST;COMPLETED!!!!;T\PROG        I:I\ORGS;<>;  DO(01)    
1 0.0 Label 13 T -1 201, 361
  
1 0.0 Label 1 T -1 201, 253
  
1 0.0 Label 16 T -1 301, 445
  
1 0.0 Label 1 T -1 201, 145
  
1 0.0 Work 2 I -1 361, 253
$CALCULATE    'DEFAULT DATE TO CURRENT  I:I\TO_DATE;=;  A:DATE;DD MMM YYYY;I\TO_DATE
1 0.0 Work 2 I -1 361, 145
$SELECT  S:AGENT_CODE;I\AGENT    $CALCULATE  A:CONST;;T\PROG  C:UCASE    I:I\AGENT;<>;  DO(CL9)    F:AGENT_MAST;Y;;T\AGN_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT  DOEND(CL9)
1 0.0 Label 3 T -1 201, 325
  
1 0.0 Work 4 I -1 361, 325
$VALIDATE    C:UCASE  M:  I:I\SELECTION;=;  A:CONST;A;I\SELECTION  V:A;S
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