Freshmark replication server

freshmark-canonical

Program drill-down

SEFA_BUYERS_LIST

SEFA BUYERS LISTING. Type DSP, base table DEBTOR_MAST.

Field inventory

37

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 1 T -1 271, 241
  
1 0.0 Work 3 I 0 81, 493
  
1 0.0 H -1 0, 30
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 290, 25
  
1 0.0 Label 3 T -1 301, 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 1, 61
$DEFAULT    'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORGS;;I\ORGS    '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    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'INITIALIZES THE DATE AND TIME 
1 0.0 Work 9 I 0 31, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:DATE;DD MMM YYYY;I\FROMDATE  A:DATE;DD MMM YYYY;I\TODATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000  
1 0.0 Label 12 T -1 271, 169
  
1 0.0 Label 13 T -1 271, 205
  
1 0.0 Label 10 T -1 271, 133
  
1 0.0 Label 14 T -1 271, 277
  
1 0.0 I -1 381, 133
$SELECT  S:DEBTOR;I\SEFA_BUYER    $VALIDATE  C:UCASE  'M:  I:I\SEFA_BUYER;<>;  DO(02)  O:DISABLEINPUT;T\NAME  F:DEBTOR_MAST;Y;;T\NAME=DM_NAME;DM_DEBTOR='$I\SEFA_BUYER$';I\SEFA_BUYER  DOEND(02)    I:I\SEFA_BUYER;=;  DO(03)  A:CONST;;T\NAME  O:ENABLEINPUT;T\NAME  DOEND(03)
1 0.0 CMD 30 C -1 481, 133
$SELECT  S:DEBTOR;I\DEBTOR
1 0.0 D -1 381, 277
$DEFAULT  'ADD ITEMS INTO THE COMBOBOX  B:ADDITEM;D\RACE;BLACK,WHITE,COLOURED    $VALIDATE    'UPPERCASE  C:UCASE
1 0.0 Label 29 T -1 281, 433
  
1 0.0 CMD 28 C -1 321, 397
$SELECT    A:CONST;PROCESING ...;T\PROG    'PATH THEN FOLLOWED BY PRINTING NAME THEN FOLLOWED BY PARAMETERS THEN LASTLY THE OUTPUT TYPE IE: S OR P OR Y  E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_SEFA_BUYERS_LISTING;$I\MARKET$,$I\SEFA_BUYER$,$D\GENDER$,$I\START_AGE$,$I\END_AGE$,$D\RACE$,$I\DISABLED$,$D\OR
1 0.0 Label 9 T -1 271, 313
  
1 0.0 Work 10 I -1 381, 313
$VALIDATE    C:UCASE  V:Y;;N    'O:SETFOCUS;C\RUN   'O:BACKCOLOR;C\RUN;YELLOW
1 0.0 D -1 381, 169
$DEFAULT  'ADD ITEMS INTO THE COMBOBOX  B:ADDITEM;D\GENDER;M,F    $VALIDATE    'UPPERCASE  C:UCASE
1 0.0 Label 2 T -1 511, 133
  
1 0.0 Work 2 I -1 381, 241
$VALIDATE    I:I\END_AGE;<;0  D:AGE CANNOT BE LESS THAN ZERO;ERRORM;I\END_AGE       
1 0.0 I -1 381, 205
$VALIDATE    I:I\START_AGE;<;0  D:AGE CANNOT BE LESS THAN ZERO;ERRORM;I\START_AGE     
1 0.0 Work 8 I 0 221, 577
  
1 0.0 Work 7 I 0 111, 577
  
1 0.0 Work 6 I 0 81, 577
  
1 0.0 Label 1 T -1 271, 349
  
1 0.0 Drop 3 D -1 381, 349
$DEFAULT  'ADD ITEMS INTO THE COMBOBOX  B:ADDITEM;D\ORDER;RACE,GENDER,DISABLED    $VALIDATE    M:  'UPPERCASE  C:UCASE  O:SETFOCUS;C\RUN   O:BACKCOLOR;C\RUN;YELLOW
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_UPDATE Z 0 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30