Freshmark replication server

freshmark-canonical

Program drill-down

CT_MONTHLY_DUMPS

MNTH CAPE TOWN DUMPS. Type DSP, base table DEBT_ADDR.

Field inventory

26

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 1 T -1 251, 193
  
1 0.0 END_DATE I -1 371, 193
$CALCULATE  M:  A:VAR;I\END_DATE;I\END_DATE;;YYYY-MM-DD    
1 0.0 Label 3 T -1 331, 49
  
1 0.0 Label 9 T -1 251, 121
  
1 0.0 MNTH I -1 371, 121
$CALCULATE  A:VAR;I\MNTH;I\MNTH;;00  V:01;02;03;04;05;06;07;08;09;10;11;12    U:CT_MONTHLY_DUMPS_DATE_FUNCTION;GET_DATES
1 0.0 H -1 0, 0
  
1 0.0 Work 8 I 0 11, 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    '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    U:CT_MONTH
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 Label 10 T -1 251, 157
  
1 0.0 Label 12 T -1 261, 301
  
1 0.0 Label 3 T -1 251, 229
  
1 0.0 RUN I -1 371, 229
$CALCULATE  C:UCASE  V:Y    O:ENABLEINPUT;C\RUN  O:BACKCOLOR;C\RUN;YELLOW  O:SETFOCUS;C\RUN
1 0.0 Work 9 I 0 541, 169
  'ENABLE THE BUTTON AFTER THE INDICATOR IS SET  I:I\RUN;=;Y  DO(VGM)    O:ENABLEINPUT;C\RUN    O:BACKCOLOR;C\RUN;YELLOW    O:SETFOCUS;C\RUN  DOEND(VGM)
1 0.0 IND I 0 521, 169
  
1 0.0 START_DATE I -1 371, 157
$CALCULATE  M:  A:VAR;I\START_DATE;I\START_DATE;;YYYY-MM-DD    'O:ENABLEINPUT;C\RUN  'O:BACKCOLOR;C\RUN;YELLOW  'O:SETFOCUS;C\RUN
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 CMD 11 C -1 291, 265
$SELECT  'DISABLE THE BUTTON TO DISALLOW A DOUBLE RUN  O:DISABLEINPUT;C\RUN    O:BACKCOLOR;T\PROG;RED  A:CONST;DUMP RUN IN PROGRESS;T\PROG  'CALL THE DUMPS  E:$GBLROOT$LEGEND\PROJ_FMS\STATS\DAILYSTATS.EXE 1001,$I\START_DATE$,$I\END_DATE$    O:BACKCOLOR;T\PROG;BLUE  A:CONST; DUMP RUN COMPLETED;T\PROG    'CLEAR FIELDS  '
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