Freshmark replication server

freshmark-canonical

Program drill-down

PW_PARAM_MAN

PW PARAM MAN. Type MAN, base table PASSWORD_PARAMETERS.

Field inventory

33

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Work 1 I 0 21, 121
  
1 0.0 H -1 0, 0
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 295, 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 MARKET I 0 11, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET  A:ORG;;I\PP_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;
1 0.0 T -1 21, 85
  
1 0.0 PASSWORD_PARAMETERS PP_MARKET I -1 131, 85
$VALIDATE  M:  C:UCASE    I:I\PP_MARKET;<>;I\MARKET  D:YOU MAY ONLY ENTER MARKET $I\MARKET$;ERRORM;I\PP_MARKET    F:CLIENT_MAST;;;I\NOATTEMPT=CM_PW_ERR_CNT,I\CM_DELSECT=CM_DELSECT,I\CM_SUPPL_PROFORMA=CM_SUPPL_PROFORMA;CM_CODE='$I\MARKET$'    F:CLIENT_MAST;;CM_CODE;T\MKT_NAME=CM_NAME,I\NOATTEMPT=CM_PW_ERR_CNT    $AFTER_
1 0.0 Label 12 T -1 211, 133
  
1 0.0 PASSWORD_PARAMETERS PP_EXPIRY_DAYS I -1 381, 133
$VALIDATE  M:  I:I\PP_EXPIRY_DAYS;>;999;VAL  D:MAX ENTRY ALLOWED IS 999;ERRORM;I\PP_EXPIRY_DAYS    $BEFORE_WRITE  I:I\PP_EXPIRY_DAYS;>;0;VAL  DO(FRT)    I:I\PP_EXPIRY_DAYS;<>;I\OLD_PW_EXP_DAYS;VAL    U:PASSWORD_PARAMETERS;UPDATE_EXPIRY  DOEND(FRT)
1 0.0 Label 14 T -1 211, 169
  
1 0.0 PASSWORD_PARAMETERS PP_LENGTH I -1 381, 169
$VALIDATE  M:  ''I:I\PP_LENGTH;>;5;VAL  ''D:MAX ENTRY ALLOWED IS 5;ERRORM;I\PP_LENGTH
1 0.0 Label 16 T -1 211, 205
  
1 0.0 PASSWORD_PARAMETERS PP_MONTHS_UNTIL_REUSE I -1 381, 205
$VALIDATE  M:  I:I\PP_MONTHS_UNTIL_REUSE;>;999;VAL  D:MAX ENTRY ALLOWED IS 999;ERRORM;I\PP_MONTHS_UNTIL_REUSE
1 0.0 Label 18 T -1 211, 241
  
1 0.0 PASSWORD_PARAMETERS PP_ALPHANUMERIC I -1 381, 241
$VALIDATE  C:UCASE    V:Y;N;    I:I\PP_ALPHANUMERIC;=;  A:CONST;Y;I\PP_ALPHANUMERIC    
1 0.0 Label 1 T -1 211, 277
  
1 0.0 Work 1 I 0 461, 133
  
1 0.0 Label 2 T -1 191, 85
  
1 0.0 PASSWORD_PARAMETERS PP_UCASE I -1 381, 349
$VALIDATE  C:UCASE    V:Y;N;    I:I\UCASE;=;  A:CONST;N;I\UCASE  
1 0.0 Label 1 T -1 211, 349
  
1 0.0 Work 2 I -1 381, 277
$VALIDATE  I:I\TMP_ATT;=;  A:VAR;I\NOATTEMPT;I\TMP_ATT
1 0.0 PASSWORD_PARAMETERS PP_SPECIAL_CHAR I -1 381, 313
$VALIDATE  C:UCASE    V:Y;N;    I:I\PP_ALPHANUMERIC;=;  A:CONST;N;I\SPECIAL_CHAR  
1 0.0 Label 1 T -1 211, 313
  
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
$BEFORE_WRITE  U:PASSWORD_NO_ATTEMPT;UPDATE  U:UPPERCASE_UPDATE;UPDATE
10 0.0 ZX_EXIT Z 0 0, 0