Freshmark replication server

freshmark-canonical

Program drill-down

FM_USER_MAN

FARMERS MARKET USER MAN. Type MAN, base table FM_USER_MAST.

Field inventory

36

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 CMD 1 C 0 651, 548
$SELECT    A:CONST;IN PROGRESS ...;T\PROG    U:PED_MAN;USER_MAN    A:CONST;COMPLETE !!!;T\PROG    A:CONST;;I\FM_USERID,I\FM_FIRSTNAME,I\FM_SURNAME,I\FM_PASSWORD,I\CONF_PWD,I\FM_USERID,I\FM_BLOCKED    O:SETFOCUS;I\FM_USERID
1 0.0 Work 5 I -1 391, 289
$VALIDATE  M:  C:UCASE  A:LEN;I\CONF_PWD;I\TMP2    I:I\TMP1;<>;I\TMP2  D:PASSWORDS ARE NOT THE SAME LENGTH;ERROR;I\CONF_PWD    I:I\CONF_PWD;<>;I\FM_PASSWORD  D:PASSWORDS DON'T MATCH;ERROR;I\CONF_PWD      
1 0.0 Label 1 T -1 211, 181
  
1 0.0 H -1 0, 0
  
1 0.0 Work 4 I 0 41, 109
  
1 0.0 FM_USER_MAST FM_FIRSTNAME I -1 341, 217
$VALIDATE  C:UCASE    
1 0.0 Work 2 I 0 21, 133
  
1 0.0 Work 1 I 0 21, 109
  
1 0.0 FM_USER_MAST FM_PASSWORD I -1 391, 253
$VALIDATE  A:CONST;;T\PROG  M:  C:UCASE  A:LEN;I\FM_PASSWORD;I\TMP1  
1 0.0 Label 3 T -1 211, 217
  
1 0.0 Label 6 T -1 211, 289
  
1 0.0 Label 15 T -1 621, 25
  
1 0.0 Label 2 T -1 211, 145
  
1 0.0 Label 4 T -1 341, 49
  
1 0.0 Label 5 T -1 671, 49
  
1 0.0 Label 7 T -1 211, 253
  
1 0.0 Label 16 T -1 621, 49
  
1 0.0 FM_USER_MAST FM_BLOCKED I -1 391, 325
$VALIDATE    V:Y;N;    I:I\FM_BLOCKED;=;  A:CONST;N;I\FM_BLOCKED    'O:SETFOCUS;C\RUN  'O:BACKCOLOR;C\RUN;YELLOW    
1 0.0 Label 4 T -1 211, 325
  
1 0.0 CMD 1 C -1 441, 145
$SELECT  S:USER2;I\ZU_USERID
1 0.0 FM_USER_MAST FM_SURNAME I -1 341, 181
$VALIDATE  C:UCASE  
1 0.0 Work 2 I 0 21, 397
  
1 0.0 Label 1 T -1 321, 385
  
1 0.0 Label 1 T -1 3, 25
  
1 0.0 Label 2 T -1 350, 25
  
1 0.0 Label 3 T -1 671, 25
  
1 0.0 Work 5 I 0 41, 133
  
1 0.0 Work 1 I 0 21, 373
  
1 0.0 FM_USER_MAST FM_MARKET I 0 21, 73
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME;    C:MCASE;;T\MARKET    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME    A:SETPWFIELD;I\FM_PASSWORD  A:SETPWFIELD;I\CONF_PWD    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEX
1 0.0 Work 12 I 0 51, 73
  
1 0.0 FM_USER_MAST FM_USERID I -1 341, 145
$SELECT  S:USER3;I\FM_USERID    $VALIDATE  M:  C:UCASE  'F:ZU_USER;Y;;I\FM_FIRSTNAME=ZU_NAME,I\FM_SURNAME=ZU_SURNAME;ZU_USERID='$I\FM_USERID$' AND ZU_ZC IN ('FRM','DEV');I\FM_USERID          $AFTER_READ  A:VAR;I\FM_PASSWORD;I\CONF_PWD;    'F:FM_USER_MAST;;;I\CONF_PWD=FM_PASSWORD,I\FM_PASSWORD=FM_PASSWORD;FM_USERID='$I\
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z -1 0, 0
$SELECT  'U:PED_MAN;USER_MAN
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