Freshmark replication server

freshmark-canonical

Program drill-down

BYR_STMT_MSG_MAN

BUYER STATEMENT MESSAGE MAINTENANCE. Type MAN, base table BUYER_STATEMENT_MSG.

Field inventory

32

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 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 221, 49
  
1 0.0 Label 4 T -1 671, 25
  
1 0.0 Label 5 T -1 621, 25
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 8 T -1 201, 181
  
1 0.0 Label 9 T -1 201, 217
  
1 0.0 Label 10 T -1 201, 325
  
1 0.0 Work 11 I 0 1, 61
$DEFAULT    'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    '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    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'INITIALIZES THE DATE AND TIME 
1 0.0 Work 12 I 0 31, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  'A:DATE;DD MMM YYYY;I\FROM_DATE  'A:DATE;DD MMM YYYY;I\TO_DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000
1 0.0 BUYER_STATEMENT_MSG BSM_BUYER I -1 321, 181
$SELECT  S:DEBTOR;I\BUYER      $VALIDATE      I:I\BUYER;<>;  DO(02)  O:DISABLEINPUT;I\NAME  F:DEBTOR_MAST;Y;DM_DEBTOR;T\BUYER_NAME=DM_NAME,I\ACCTYPE=DM_ACCTYPE;;I\BUYER        I:I\BUYER;=;  DO(03)  A:CONST;;I\BUYER_NAME  O:ENABLEINPUT;I\BUYER_NAME  DOEND(03)                
1 0.0 BUYER_STATEMENT_MSG BSM_TYPE I -1 321, 217
$SELECT  S:BUYER_ACC;I\DEBTOR_TYPE    $VALIDATE    C:UCASE    I:I\DEBTOR_TYPE;<>;  F:ACCOUNT_TYPE;Y;;T\ACC_TYPE=AT_DESC;AT_CODE='$I\DEBTOR_TYPE$';I\DEBTOR_TYPE  
1 0.0 BUYER_STATEMENT_MSG BSM_MESSAGE I -1 321, 325
$VALIDATE    C:UCASE    I:I\MESSAGE;=;  D:ENTER BUYER MESSAEGE;ERRORM;I\MESSAGE
1 0.0 CMD 16 C -1 421, 181
$SELECT  S:DEBTOR;I\BUYER
1 0.0 Label 17 T -1 461, 181
  
1 0.0 Label 1 T -1 201, 253
  
1 0.0 BUYER_STATEMENT_MSG BSM_FROM_DATE I -1 321, 253
$VALIDATE    I:I\FROM_DATE;=;  A:DATE;DD MMM YYYY;I\FROM_DATE
1 0.0 BUYER_STATEMENT_MSG BSM_TO_DATE I -1 321, 289
$VALIDATE    I:I\TO_DATE;=;  A:DATE;DD MMM YYYY;I\TO_DATE
1 0.0 Work 4 I 0 1, 313
  
1 0.0 CMD 2 C -1 421, 217
$SELECT  S:BUYER_ACC;I\DEBTOR_TYPE
1 0.0 Work 1 I 0 1, 349
  
1 0.0 Label 1 T -1 461, 217
  
1 0.0 Label 2 T -1 201, 289
  
1 0.0 Work 2 I 0 1, 373
  
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