Freshmark replication server

freshmark-canonical

Program drill-down

PRINT_APC_STATEMENTS

PRINT APPLECO STATEMENTS. Type MAN, base table DEBTOR_TRANS.

Field inventory

25

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 30
  
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 251, 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 8 T -1 181, 121
  
1 0.0 Label 9 T -1 181, 169
  
1 0.0 Label 10 T -1 181, 217
  
1 0.0 Label 11 T -1 511, 217
  
1 0.0 Work 12 I -1 381, 121
$VALIDATE  M:  I:I\AGENT;<>;  D:AGENTS ARE NOT ALLOWED TO RUN THIS SCREEN;ERRORM;I\SDATE    $BEFORE_WRITE  I:I\AGENT;<>;  D:AGENTS ARE NOT ALLOWED TO RUN THIS SCREEN;ERRORM;I\SDATE    U:BUYER_STATEMENTS;APC_PRINT_DATA
1 0.0 Work 13 I -1 381, 169
$VALIDATE  M:
1 0.0 Work 14 I -1 381, 217
$SELECT  S:DEBTOR;I\BUYER    $VALIDATE  I:I\BUYER;<>;  DO(MAL)    F:DEBTOR_MAST;Y;;T\NAME=DM_NAME,I\TMP_TYPE=DM_ACCTYPE;DM_DEBTOR='$I\BUYER$';I\BUYER    I:I\TMP_TYPE;<>;CR    DO(DEQ)      I:I\TMP_TYPE;<>;SC      D:STATEMENTS ARE ONLY FOR SECURE CASH/CREDIT BUYERS;ERRORM;I\BUYER    DOEND(DEQ)  DOEND(MAL)
1 0.0 Work 15 I 0 41, 61
  
1 0.0 Work 16 I 0 21, 61
  
1 0.0 Work 17 I 0 1, 61
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:VAR;T\DATE;I\SDATE  A:VAR;T\DATE;I\EDATE    'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\MARKET$'    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    A
1 0.0 Work 18 I 0 611, 529
  
1 0.0 Work 19 I 0 61, 517
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_UPDATE Z 0 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30