Freshmark replication server

freshmark-canonical

Program drill-down

DOCKET_CS_REPRINTS

CS DOC REPRINTS. Type DSP, base table LOC_TRANS.

Field inventory

33

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 1 I 0 431, 421
  
1 0.0 CMD 13 C -1 381, 205
$SELECT  I:I\AGENT;<>;  DO(NAG)    I:I\TYPE;=;01    S:CS_ISSUE_DOCNO;I\DOCNO;I\AGENT      I:I\TYPE;=;02    S:CS_DEPOSIT_DOCNO;I\DOCNO;I\AGENT  DOEND(NAG)    I:I\AGENT;=;  DO(LAP)    I:I\TYPE;=;01    S:CS_ISSUE_DOCNO1;I\DOCNO      I:I\TYPE;=;02    S:CS_DEPOSIT_DOCNO1;I\DOCNO  DOEND(LAP)
1 0.0 CMD 17 C -1 370, 391
$SELECT  A:CONST;;I\CONTINUE    I:I\TYPE;=;  D:TYPE MUST BE SPECIFIED;ERRORM;I\TYPE    I:I\DOCNO;=;  D:DOCNO MUST BE SPECIFIED;ERRORM;I\TYPE    U:REPRINT_DOCKETS;CS_PROCESS      A:CONST;;I\TYPE,I\DOCNO,I\COPIES,I\TRNO,I\DEPNO,I\REASON  O:SETFOCUS;I\TYPE    $ESC  O:SETFOCUS;I\COPIES
1 0.0 H -1 0, 0
  
1 0.0 Work 11 I -1 271, 169
$CALCULATE  M:  V:01;02    
1 0.0 Work 12 I -1 271, 205
$SELECT  I:I\AGENT;<>;  DO(NAG)    I:I\TYPE;=;01    S:CS_ISSUE_DOCNO;I\DOCNO;I\AGENT      I:I\TYPE;=;02    S:CS_DEPOSIT_DOCNO;I\DOCNO;I\AGENT  DOEND(NAG)    I:I\AGENT;=;  DO(LAP)    I:I\TYPE;=;01    S:CS_ISSUE_DOCNO1;I\DOCNO      I:I\TYPE;=;02    S:CS_DEPOSIT_DOCNO1;I\DOCNO  DOEND(LAP)    $CALCULATE  M:  C:UCASE  I:I\A
1 0.0 Work 14 I -1 271, 277
$CALCULATE  I:I\COPIES;=;  A:CONST;1;I\COPIES    O:SETFOCUS;C\GO  O:BACKCOLOR;C\GO;YELLOW
1 0.0 Work 4 I -1 271, 241
'$VALIDATE  $CALCULATE    C:UCASE    I:I\TYPE;=;01  M:    'DO(LAP)  'I:I\REASON;=;  'DO(FIX)  'D:"ERROR";$I\REASON$ IS MANDATORY FOR REASONCODE 01;I\REASON  'DOEND(FIX)  DOEND(LAP)    
1 0.0 Work 2 I 0 61, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 Work 1 I 0 81, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 Work 19 I 0 21, 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    A:CONST;Y;I\REPRINT
1 0.0 Work 18 I 0 41, 61
$DEFAULT  A:ORGS;;I\AGENT
1 0.0 Work 20 I 0 1, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000
1 0.0 Work 21 I 0 400, 421
  
1 0.0 Work 22 I 0 400, 451
  
1 0.0 Work 1 I 0 401, 481
  
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 201, 169
  
1 0.0 Label 9 T -1 361, 169
  
1 0.0 Label 10 T -1 201, 205
  
1 0.0 Label 15 T -1 201, 277
  
1 0.0 Label 3 T -1 201, 241
  
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