Freshmark replication server

freshmark-canonical

Program drill-down

BANK_GUAR_CHANGES

BANK GUARANTEES CHANGES. Type DSP, base table DEBTOR_MAST.

Field inventory

23

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 1 T -1 501, 229
  
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,W\DM_BANK_GUAR=DM_BANK_GUAR,I\ACCTYPE=DM_ACCTYPE,I\DM_BANK_GUAR=DM_BANK_GUAR,I\DM_BNKGFAC=DM_BNKGFAC,I\DM_M
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 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 241, 49
  
1 0.0 CMD 15 C -1 291, 325
$SELECT    U:BANK_GAUR_UPDATE;UPDATE  A:CONST;;I\DM_BANK_GUAR,I\DEBTOR,W\DM_BANK_GUAR,I\DEBTOR,I\ACCTYPE  A:DATE;DD MMM YYYY;I\DATE  O:SETFOCUS;I\DEBTOR
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 2 I -1 401, 265
$VALIDATE    I:I\MARKET;=;11  DO(F99)    I:I\DM_BANK_GUAR;>;0;NUM    DO(D81)      I:I\ACCTYPE;<>;CR      DO(D11)        I:I\ACCTYPE;<>;SU        DO(FM1)          A:CONST;0;I\DM_BANK_GUAR          D:MUST BE ZERO FOR THIS BUYER TYPE!;ERRORM;I\DM_BANK_GUAR        DOEND(FM1)      DOEND(D11)    DOEND(D81)  DOEND(F99)       
1 0.0 Work 1 I 0 1, 97
  
1 0.0 Work 1 I 0 1, 121
  
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