Freshmark replication server

freshmark-canonical

Program drill-down

REPRINT_E_WALLET

REPRINT E WALLET. Type DSP, base table DEBTOR_MAST.

Field inventory

20

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 H -1 0, 0
  
1 0.0 Work 7 I 0 11, 61
$DEFAULT    'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    O:HIDEUPDATE    A:USERID;;I\USERID        
1 0.0 Work 8 I -1 361, 97
$SELECT  'DISPLAY THE SELECTION WINDOW  S:MAIN_BUYER;I\DA_CODE    $VALIDATE  A:CONST;;T\NAME  'MAKE THIS FIELD MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE      'DISPLAY ERROR MESSAGE IF INVALID CODE IS ENTERED  F:DEBTOR_MAST;Y;DM_DEBTOR;T\NAME=DM_NAME;;I\DA_CODE  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 1 T -1 291, 25
  
1 0.0 Label 2 T -1 621, 25
  
1 0.0 Label 3 T -1 671, 25
  
1 0.0 Label 4 T -1 251, 49
  
1 0.0 Label 5 T -1 621, 49
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 CMD 4 C -1 461, 97
$SELECT  'DISPLAY THE SELECTION WINDOW  S:MAIN_BUYER;I\DA_CODE  
1 0.0 CMD 2 C -1 361, 133
$SELECT    U:U_E_WALLET_CREATION    I:T\CELNO2;<>;I\DA_CELLNO   W:DEBT_ADDR;;;DA_CELLNO=I\DA_CELLNO;DA_CODE='$I\DA_CODE$';    O:SETFOCUS;I\DA_CODE    'A:CONST;;I\DA_TYPE,I\DA_NAME,D\DA_TITLE,I\DA_FNAME,I\DA_SNAME,I\DA_ADDR1,I\DA_ADDR2,I\DA_ADDR3  A:CONST;;I\DA_NAME  A:CONST;;I\DA_CELLNO  'A:CONST;;I\DA_PCODE,I\DA_TELNO
1 0.0 Label 1 T -1 211, 97
  
1 0.0 Work 3 I 0 11, 97
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_NAME_ABBREV=CM_NAME_ABBREV    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    O:SETFOCUS;I\DA_CODE
1 0.0 Label 5 T -1 491, 97
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_PRINT 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