Program drill-down
ZZ_PROGPW_MAN
PROGRAM ACCESS CONTROL. Type MAN, base table PASSWORD_MAST.
Field inventory
36
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 8 | T | -1 | 251, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 281, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 611, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 611, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 661, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 661, 49 | ||
| 1 | 0.0 | DEFAULT | I | 0 | 1, 49 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 |
|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | PASSWORD_MAST | PW_PASSWORD | I | 0 | 321, 301 | |
| 1 | 0.0 | PASSWORD_MAST | PW_PASSWORD | T | -1 | 161, 325 | |
| 1 | 0.0 | PASSWORD_MAST | PW_MARKET | I | -1 | 321, 133 | $DEFAULT 'A:ORG;;I\PW_MARKET A:ORG;;I\MARKET A:CONST;$I\MARKET$;I\PW_MARKET F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\MARKET$' 'F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\PW_MARKET$' A:VAR;T\MARKET;T\MARKET1 C:MCASE;;T\MARKET $SELECT S:CLIENT_MAST;I\PW_MARKET $VALIDATE F:CLIENT_MAST; |
| 1 | 0.0 | PASSWORD_MAST | PW_AGENT | I | -1 | 321, 169 | $DEFAULT A:ORGS;;I\ORGS A:CONST;$I\ORGS$;I\PW_AGENT F:AGENT_MAST;;;T\AGENT=AM_NAME;AM_CODE='$I\PW_AGENT$' I:I\ORGS;<>; DO(AGN) O:DISABLEINPUT;I\PW_AGENT,C\AGENT DOEND(AGN) I:I\ORGS;=; DO(MKT) O:ENABLEINPUT;I\PW_AGENT,C\AGENT DOEND(MKT) $SELECT S:AGENT_MAST_MKT;I\PW_AGENT;I\PW_MARKET $VALIDAT |
| 1 | 0.0 | PASSWORD_MAST | PW_AGENT | T | -1 | 161, 169 | |
| 1 | 0.0 | PASSWORD_MAST | PW_DESC | I | -1 | 321, 265 | |
| 1 | 0.0 | PASSWORD_MAST | PW_DESC | T | -1 | 161, 265 | |
| 1 | 0.0 | PASSWORD_MAST | PW_KEY | I | -1 | 321, 229 | $SELECT S:ZP_PGMS_1;I\PW_KEY $VALIDATE M: C:UCASE F:ZP_PGMS;Y;ZP_PROGRAM; |
| 1 | 0.0 | PASSWORD_MAST | PW_KEY | T | -1 | 161, 229 | |
| 1 | 0.0 | PASSWORD_MAST | PW_LASTCHANGE | I | -1 | 321, 373 | $DEFAULT A:DATE;DD MMM YYYY;I\PW_LASTCHANGE $AFTER_READ A:VAR;I\PW_PASSWORD;I\SAVEPW $BEFORE_WRITE I:I\PW_PASSWORD;<>;I\SAVEPW A:DATE;DD MMM YYYY;I\PW_LASTCHANGE |
| 1 | 0.0 | PASSWORD_MAST | PW_LASTCHANGE | T | -1 | 161, 373 | |
| 1 | 0.0 | Label 7 | T | -1 | 161, 133 | ||
| 1 | 0.0 | CMD 8 | C | 0 | 361, 133 | $SELECT S:CLIENT_MAST;I\PW_MARKET |
|
| 1 | 0.0 | Label 9 | T | -1 | 401, 133 | ||
| 1 | 0.0 | CMD 10 | C | -1 | 361, 169 | $SELECT S:AGENT_MAST_MKT;I\PW_AGENT;I\PW_MARKET |
|
| 1 | 0.0 | Label 11 | T | -1 | 401, 169 | ||
| 1 | 0.0 | Label 12 | T | -1 | 601, 229 | ||
| 1 | 0.0 | CMD 13 | C | -1 | 561, 229 | $SELECT S:ZP_PGMS_1;I\PW_KEY |
|
| 1 | 0.0 | Work 15 | I | -1 | 321, 325 | $DEFAULT A:SETPWFIELD;I\PW '$CALCULATE 'I:I\PW_PASSWORD;<>;I\PW 'A:VAR;I\PW;I\PW_PASSWORD $AFTER_READ A:VAR;I\PW_PASSWORD;I\PW $BEFORE_WRITE I:I\PW_PASSWORD;<>;I\PW DO(001) A:VAR;I\PW;I\PW_PASSWORD U:ZZ_PROG_PW;ENCRYPT;I\PW_PASSWORD,I\PW_LASTCHANGE,I\PW_KEY,I\PW DOEND(001) |
|
| 1 | 0.0 | Work 14 | I | 0 | 321, 409 | ||
| 1 | 0.0 | Work 1 | I | 0 | 41, 49 | ||
| 1 | 0.0 | Work 2 | I | 0 | 91, 49 | ||
| 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 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |