Freshmark replication server

freshmark-canonical

Program drill-down

GATE_DEL_PASS

GATE PASSWORD. 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 CMD 7 C -1 271, 277
$SELECT    A:LEN;I\PASSWORD;I\TMP3  I:I\TMP3;<;4  D:PASSWORD MUST BE ATLEAST 4 CHARECTERS;ERRORM;I\PASSWORD    U:GOODS_DEL_PASSWORD;UPDATE  A:CONST;;I\PASSWORD,I\USER,I\TMP3      O:SETFOCUS;I\USER  
1 0.0 Work 1 I -1 341, 193
$VALIDATE  M:  C:UCASE
1 0.0 H -1 0, 0
  
1 0.0 Work 8 I 0 1, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    A:SETPWFIELD;I\PASSWORD    O:SETFOCUS;I\USER  
1 0.0 Work 9 I 0 81, 61
$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    '$CALCULATE  'U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\LV_CODE,I\LV_DESC,I\LV_CALC_TYPE,I\LV_RATE,I\LV_MRATE,I\LV_VATCD,I\LV_BOARD  'U:ZZGRID_SPLIT;DB_TO_GRID;G\GRIDM;LEVY_MAST    O:SETFOCUS;I\DA_CODE    '$BEFORE_DELETE  
1 0.0 Label 2 T -1 211, 193
  
1 0.0 Work 6 I -1 341, 229
$VALIDATE    M:  'C:UCASE  A:LEN;I\PASSWORD;I\TMP3  I:I\TMP3;<;4  D:PASSWORD MUST BE ATLEAST 4 CHARECTERS;ERRORM;I\PASSWORD    O:SETFOCUS;C\UPD  O:BACKCOLOR;C\UPD;YELLOW        
1 0.0 Work 1 I 0 551, 157
  
1 0.0 Label 6 T -1 621, 49
  
1 0.0 Label 7 T -1 671, 49
  
1 0.0 Label 5 T -1 291, 49
  
1 0.0 Label 3 T -1 621, 25
  
1 0.0 Label 4 T -1 671, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Work 1 I 0 1, 85
  
1 0.0 Label 5 T -1 211, 229
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0
  
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0