Freshmark replication server

freshmark-canonical

Program drill-down

DEBTOR_INTEREST

RUN DEBTOR INTEREST. Type DSP, base table DEBTOR_MAST.

Field inventory

22

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 311, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 671, 25
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Work 8 I 0 81, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 Work 9 I 0 61, 61
$DEFAULT  A:USERIP;;I\IP  
1 0.0 Work 10 I 0 41, 61
$DEFAULT  A:ORGS;;I\ORGS
1 0.0 Work 11 I 0 21, 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
1 0.0 Label 2 T -1 241, 277
  
1 0.0 Work 12 I 0 1, 61
'==========  'DONE BY JD  '==========    $DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    O:SETFOCUS;C\RUN  O:BACKCOLOR;C\RUN;YELLOW
1 0.0 CMD 13 C -1 311, 241
$SELECT  I:I\RUN;=;Y  D:INTEREST HAS BEEN RUN ALREADY;ERRORM    O:DISABLEINPUT;C\RUN  A:CONST;Y;I\RUN  A:CONST;DEBTOR INTEREST RUN IN PROGRESS;T\PROG    ''U:DEBTOR_INTEREST2;CHECK_DAY  I:I\TMP;=;N  D:INTEREST CAN ONLY BE RUN ON TUESDAY;ERRORM;Z\ZX_EXIT    U:DEBTOR_INTEREST2;CALCULATE  U:DEBTOR_INTEREST2;ZV_USER_DEFAULT
1 0.0 RUN I 0 611, 241
  
1 0.0 TMP I 0 621, 313
  
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