Freshmark replication server

freshmark-canonical

Program drill-down

ZZPW_MAN

USER PASSWORD MAINTENANCE. Type UPD, base table ZU_USER.

Field inventory

55

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 4 I 0 21, 265
  
1 0.0 ZU_USER ZU_SURNAME I -1 361, 73
X
1 0.0 H -1 1, 1
X
1 0.0 ZU_USER ZU_USERID T -1 171, 37
X
1 0.0 ZU_USER ZU_USERID I -1 361, 37
$AFTER_READ  A:VAR;I\ZU_SURNAME;W\ZU_SURNAME  I:W\ZU_SURNAME;=;  A:CONST;Y;I\RESET_PW    I:W\ZU_SURNAME;<>;  A:CONST;;I\RESET_PW        $DEFAULT  A:USERID  A:ORG;;I\MARKET    'NEW BY JD 20150622 - TO USE THE PASSWORD PARAMETERS SET UP IN THE NEW MAINTENANCE SCREEN  F:PASSWORD_PARAMETERS;;;I\PP_LENGTH=PP_LENGTH,I\PP_ALP
1 0.0 ZU_USER ZU_SHORTCUT I -1 71, 421
  
1 0.0 ZU_USER ZU_SHORTCUT T -1 71, 397
X
1 0.0 ZU_USER ZU_STATUS I -1 361, 325
  
1 0.0 Work 1 I 0 521, 37
$DEFAULT  A:USERID
1 0.0 ZU_USER ZU_STATUS T -1 171, 325
X
1 0.0 ZU_USER ZU_ZC T -1 171, 169
X
1 0.0 Label 9 T -1 491, 169
X
1 0.0 Work 1 I 0 21, 193
  
1 0.0 ZU_USER ZU_INITIALS I -1 361, 133
X
1 0.0 ZU_USER ZU_ZC I -1 361, 169
$SELECT  S:ZC_SEC_GROUP;I\ZU_ZC  '$VALIDATE  'F:ZC_SEC_GROUP;Y;ZC_KEY;T\ZU_ZC_DESC=ZC_DESC  '$AFTER_READ  'F:ZC_SEC_GROUP;;ZC_KEY;T\ZU_ZC_DESC=ZC_DESC
1 0.0 ZU_USER ZU_INITIALS T -1 171, 133
X
1 0.0 ZU_USER ZU_SURNAME T -1 171, 73
X
1 0.0 Work 3 I -1 361, 349
$DEFAULT  A:CONST;Y  $AFTER_READ  A:CONST;Y  $AFTER_WRITE  I:I\RESET_PW;=;"Y"    A:SETPW;I\ZU_USERID;I\ZU_PASSWORD
1 0.0 PP_ALPHA I 0 181, 253
  
1 0.0 Label 2 T -1 171, 349
X
1 0.0 Label 1 T 0 671, 109
X
1 0.0 ZU_USER ZU_PASSWORD I 0 671, 325
$BEFORE_WRITE  I:I\RESET_PW;=;Y    DO(01)      A:VAR;I\NEW_PASSWORD;I\ZU_PASSWORD      I:I\MARKET;=;13      DO(BLOM_CHK)       I:I\PC_PASSWORD;=;       U:PASSWORD_CHECK;UPDATE_DATA         DOEND(BLOM_CHK)      I:I\MARKET;=;18      DO(DUR_CHK)       I:I\PC_PASSWORD;=;       U:PASSWORD_CHECK;UPDATE_DATA         DOEND(DUR
1 0.0 ZU_USER ZU_PASSWORD T 0 671, 301
X
1 0.0 ZU_USER ZU_PW_EXPIRY I -1 581, 349
X
1 0.0 Label 1 T -1 391, 325
  
1 0.0 ZU_USER ZU_PW_EXPIRY T -1 391, 349
X
1 0.0 Work 2 I -1 581, 325
$VALIDATE  A:CONST;;I\INVALID    '------------------------------------------  'NEW SECTION FOR PRESET PASSWORD PARAMETERS  '------------------------------------------    F:CLIENT_MAST;;;I\APPLY_TO_DEV=CM_APPLY_PW_DEV;CM_CODE='$I\MARKET$'    I:I\APPLY_TO_DEV;=;Y  A:CONST;Y;I\SESSION_RULE    I:I\APPLY_TO_DEV;=;N  DO(IIA)
1 0.0 ZU_USER ZU_LOCAL_IP I -1 361, 373
  
1 0.0 ZU_USER ZU_LOCAL_IP T -1 171, 373
  
1 0.0 CMD 2 C -1 601, 373
$SELECT  A:LOCALIP;;I\ZU_LOCAL_IP
1 0.0 Work 2 I 0 21, 241
  
1 0.0 USR_TYPE I 0 21, 169
$DEFAULT  A:USERTYPE;;I\USR_TYPE  A:LEFT;I\USR_TYPE,3;I\USR_TYPE    F:ZC_SEC_GROUP;;;I\ZC_CHANGE_PW=ZC_CHANGE_PW;ZC_KEY='$I\USR_TYPE$';
1 0.0 ZU_USER ZU_NAME T -1 171, 109
X
1 0.0 ZU_USER ZU_NAME I -1 361, 109
X
1 0.0 Work 3 I 0 21, 217
  
1 0.0 Work 5 I 0 21, 145
  
1 0.0 Work 1 I 0 71, 469
  
1 0.0 PP_LENGTH I 0 181, 229
  
1 0.0 PP_REUSE I 0 181, 277
  
1 0.0 APPLY_TO_DEV I 0 511, 205
  
1 0.0 SESSION_RULE I 0 511, 229
  
1 0.0 Work 1 I 0 21, 109
  
1 0.0 Work 1 I -1 71, 505
$DEFAULT    A:DATE;YYYY/MM/DD;I\DATE
1 0.0 Work 1 I 0 21, 85
  
1 0.0 Work 1 I 0 21, 289
  
10 0.0 ZX_SELECT Z 0 1, 1
X
10 0.0 ZX_PRINT Z 0 1, 1
X
10 0.0 zzPrint Z 0 1, 1
X
10 0.0 zzDelete Z 0 1, 1
X
10 0.0 zzSelect Z 0 1, 1
X
10 0.0 zzUpdate Z 0 1, 1
X
10 0.0 zzExit Z 0 1, 1
X
10 0.0 ZX_UPDATE Z 0 1, 1
'$AFTER_WRITE  'U:PWD_STAT_UPD;USER_CHANGE  ''W:AUD_ZU_USER;;;ZUA_PASSWORD='Y';ZUA_USERID='$I\ZU_USERID$'AND ZUA_AUD_DATE='$I\DATE$'  'A:CONST;;I\ZU_USERID  X
10 0.0 ZX_DELETE Z 0 1, 1
X
10 0.0 ZX_EXIT Z 0 1, 1
X