Freshmark replication server

freshmark-canonical

Program drill-down

CREDIT_BUYER_MAN

BUYER MAINTENANCE. Type MAN, base table DEBTOR_MAST.

Field inventory

54

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 31 T -1 461, 217
  
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 621, 25
  
1 0.0 Label 4 T -1 621, 49
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 671, 49
  
1 0.0 Label 7 T -1 261, 49
  
1 0.0 Label 8 T -1 201, 145
  
1 0.0 Label 9 T -1 201, 169
  
1 0.0 Label 10 T -1 201, 193
  
1 0.0 Label 11 T -1 201, 217
  
1 0.0 Label 1 T -1 201, 385
  
1 0.0 Label 12 T -1 201, 241
  
1 0.0 Label 13 T -1 201, 265
  
1 0.0 Label 14 T -1 201, 289
  
1 0.0 Label 15 T -1 201, 313
  
1 0.0 Label 16 T -1 201, 337
  
1 0.0 Label 17 T -1 201, 361
  
1 0.0 DEBTOR_MAST DM_DEBTOR I -1 361, 145
$SELECT  S:DEBTOR;I\DM_DEBTOR    $CALCULATE  I:I\DM_DEBTOR;<>;  DO(DPT)    C:UCASE    F:DEBTOR_MAST;Y;;T\NAME=DM_NAME,W\PROV_SALE_BLK=DM_PROV_SALE;DM_DEBTOR='$I\DM_DEBTOR$';I\DM_DEBTOR  DOEND(DPT)
1 0.0 DEBTOR_MAST DM_NAME I -1 361, 169
  
1 0.0 DEBTOR_MAST DM_CRLIMIT I -1 361, 193
  
1 0.0 DEBTOR_MAST DM_PURCH_PERIOD I -1 361, 217
  
1 0.0 DEBTOR_MAST DM_PAYM_PERIOD I -1 361, 241
  
1 0.0 DEBTOR_MAST DM_TRANSPERC I -1 361, 265
  
1 0.0 DEBTOR_MAST DM_TRANSVAT I -1 361, 289
  
1 0.0 DEBTOR_MAST DM_SURETY_BUYER I -1 361, 313
$VALIDATE    C:UCASE  I:I\DM_SURETY_BUYER;=;  A:CONST;N;I\DM_SURETY_BUYER  V:Y;N    
1 0.0 DEBTOR_MAST DM_BLOCKED I -1 361, 337
$VALIDATE  C:UCASE  I:I\DM_BLOCKED;=;  A:CONST;N;I\DM_BLOCKED  V:Y;N    
1 0.0 DEBTOR_MAST DM_PROVSLS_VALIDATE I -1 361, 361
$VALIDATE  C:UCASE  I:I\DM_PROVSLS_VALIDATE;=;  DO(1)  A:CONST;N;I\DM_PROVSLS_VALIDATE  DOEND(1)    V:Y;N    
1 0.0 Work 30 I 0 1, 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:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000  O:DISABLEINPUT;I\PASSWORD  O:HIDE;I\PASSWORD
1 0.0 Label 32 T -1 461, 241
  
1 0.0 Label 33 T -1 461, 265
  
1 0.0 DEBTOR_MAST DM_PROXY_PROV I -1 361, 409
$VALIDATE  C:UCASE  I:I\DM_PROXY_PROV;=;  A:CONST;N;I\DM_PROXY_PROV  V:Y;N    
1 0.0 DEBTOR_MAST DM_PROV_VAL_PERIOD I -1 361, 385
$SELECT    S:PROV_PERIOD;I\PROV_VAL_PERIOD    $VALIDATE  I:I\PROV_VAL_PERIOD;<>;  DO(DPT)    C:UCASE    F:PROV_PERIOD;Y;;T\PV_NAME=PP_DESC;PP_CODE='$I\PROV_VAL_PERIOD$';I\PROV_VAL_PERIOD  DOEND(DPT)
1 0.0 Label 5 T -1 491, 385
  
1 0.0 CMD 4 C -1 461, 385
$SELECT    S:PROV_PERIOD;I\PROV_VAL_PERIOD
1 0.0 CMD 6 C -1 461, 145
$SELECT  S:DEBTOR;I\DM_DEBTOR
1 0.0 Label 2 T -1 201, 409
  
1 0.0 Label 3 T -1 201, 433
  
1 0.0 DEBTOR_MAST DM_PROV_TRANS_FEE I -1 361, 433
$VALIDATE  C:UCASE  I:\DM_PROV_TRANS_FEE;=;  A:CONST;N;I\DM_PROV_TRANS_FEE  V:Y;N    
1 0.0 DEBTOR_MAST DM_PROV_LOOKUP_BLOCK I -1 361, 457
$VALIDATE  C:UCASE  I:I\DM_PROV_LOOK_UP_BLOCK;=;  DO(1)  A:CONST;N;I\DM_PROV_LOOK_UP_BLOCK  DOEND(1)    V:Y;N
1 0.0 DEBTOR_MAST DM_PROV_SALE I -1 371, 481
$VALIDATE    'UPPERCASE  C:UCASE      'VALIDATE THE FIELD  V:Y;N;      'DEFAULT TO 'N'    I:I\DM_PROV_SALE;<>;W\PROV_SALE_BLK  DO(1)  O:ENABLEINPUT;I\PASSWORD  O:SHOW;I\PASSWORD  DOEND(1)
1 0.0 Work 1 I -1 401, 481
$DEFAULT  A:SETPWFIELD;I\PASSWORD  $VALIDATE    I:I\DM_PROV_SALE;<>;W\PROV_SALE_BLK  DO(1)  M:  DOEND(1)    F:CLIENT_MAST;;;W\PASS=CM_PROV_PASSW;CM_CODE= '$I\MARKET$' AND CM_PROV_PASSW = '$I\PASSWORD$'    I:W\PASS;<>;I\PASSWORD  D:INCORRECT PASSWORD !!!!!!;ERRORM;I\PASSWORD
1 0.0 Label 2 T -1 201, 481
  
1 0.0 Label 1 T -1 201, 457
  
1 0.0 Work 2 I 0 1, 85
  
1 0.0 Work 3 I 0 1, 109
  
1 0.0 Label 4 T 0 511, 481
  
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