Freshmark replication server

freshmark-canonical

Program drill-down

CRLIMIT_CHANGES

CREDIT LIMIT UPDATE. Type DSP, base table DEBTOR_MAST.

Field inventory

26

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 15 C -1 291, 325
$SELECT    U:CREDIT_LIMIT_UPDATE;UPDATE  A:CONST;;I\DM_BANK_GUAR,I\DEBTOR,I\DM_MAIN_DEBTOR,I\ACCTYPE  A:CONST;;T\BUYER,I\DM_BNKGFAC,I\CRLIMIT,W\CRLIMIT  A:DATE;DD MMM YYYY;I\DATE  O:SETFOCUS;I\DEBTOR
1 0.0 H -1 0, 0
  
1 0.0 Work 11 I -1 401, 229
$SELECT  'DISPLAY THE SELECTION WINDOW  S:DEBTOR;I\DEBTOR    $VALIDATE  A:CONST;;T\NAME  'MAKE THIS FIELD MANDATORY    'CONVERT TO UPPERCASE  C:UCASE  M:  I:I\DEBTOR;<>;  F:DEBTOR_MAST;Y;DM_DEBTOR;T\BUYER=DM_NAME,I\CRLIMIT=DM_CRLIMIT,W\CRLIMIT=DM_CRLIMIT,I\ACCTYPE=DM_ACCTYPE,I\DM_BANK_GUAR=DM_BANK_GUAR,I\DM_BNKGFAC=DM_
1 0.0 Work 13 I 0 1, 73
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MKT    '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   
1 0.0 Work 2 I -1 401, 265
$VALIDATE  M:    I:I\CRLIMIT;=;W\CRLIMIT  D:CREDIT LIMIT MUST NOT BE THE SAME AS OLD LIMIT;ERRORM;I\CRLIMIT  'JD 20130823 - DISALLOW CREDIT LIMIT FOR SC BUYERS IN PRETORIA  I:I\MARKET;=;11  DO(F97)    I:I\CRLIMIT;>;0;NUM    DO(D8M)      I:I\ACCTYPE;<>;CR      DO(D13)        I:I\ACCTYPE;<>;SU        DO(FM3)          A:C
1 0.0 Work 1 I 0 1, 97
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 311, 49
  
1 0.0 Label 3 T -1 241, 229
  
1 0.0 Label 5 T -1 291, 25
  
1 0.0 Label 7 T -1 621, 49
  
1 0.0 Label 8 T -1 671, 25
  
1 0.0 Label 9 T -1 621, 25
  
1 0.0 Label 10 T -1 671, 49
  
1 0.0 Label 1 T -1 341, 385
  
1 0.0 Label 1 T -1 241, 265
  
1 0.0 Work 1 I 0 1, 121
  
1 0.0 Work 2 I 0 1, 157
  
1 0.0 Work 3 I 0 1, 193
  
1 0.0 Label 4 T -1 501, 229
  
1 0.0 Work 1 I 0 1, 217
  
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