Program drill-down
CHANGE_AUTH_MAN
DATA CHANGE AUTHORIZATION. Type MAN, base table CHANGE_AUTH.
Field inventory
39
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | CHANGE_AUTH | CA_MARKET | I | 0 | 91, 49 | |
| 1 | 0.0 | CHANGE_AUTH | CA_FIELD | I | -1 | 221, 265 | $SELECT S:FIELD;I\CA_FIELD;I\CA_PROGRAM $VALIDATE M: C:UCASE $CALCULATE 'CLEAR WORK FIELDS A:CONST;;W\FIELD,W\FIELD2,W\FIELD1,W\FIELD3,W\FIELD4,I\FIELD 'CHECK IF ITS NUMERIC A:ISNUMERIC;I\CA_FIELD;W\FIELD 'DO THE FOLLOWING ONLY IF IT IS NOT NUMERIC I:W\FIELD;=;N DO(01) A:LEFT;I\CA_FIELD,2;W\FIELD1 |
| 1 | 0.0 | CHANGE_AUTH | CA_FIELD | T | -1 | 81, 265 | |
| 1 | 0.0 | CHANGE_AUTH | CA_AGENT | I | -1 | 221, 121 | 'RETRIVING AGENT NAME $DEFAULT A:ORGS;I\CA_AGENT F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME;AM_CODE='$I\CA_AGENT$' I:I\CA_AGENT;<>; O:DISABLEINPUT;I\CA_AGENT,C\AGENT I:I\CA_AGENT;=; O:ENABLEINPUT;I\CA_AGENT,C\AGENT $SELECT S:AGENT_CODE;I\CA_AGENT $VALIDATE A:CONST;;T\AGENT M: C:UCASE F:AGENT_MAST;Y;A |
| 1 | 0.0 | CHANGE_AUTH | CA_AGENT | T | -1 | 81, 121 | |
| 1 | 0.0 | CHANGE_AUTH | CA_PROGRAM | I | -1 | 221, 229 | $SELECT S:PROGRAM;I\CA_PROGRAM $VALIDATE M: C:UCASE F:ZP_PGMS;Y;;;ZP_PROGRAM='$I\CA_PROGRAM$';I\CA_PROGRAM |
| 1 | 0.0 | CHANGE_AUTH | CA_PROGRAM | T | -1 | 81, 229 | |
| 1 | 0.0 | CHANGE_AUTH | CA_USER | I | -1 | 221, 157 | $DEFAULT A:USERID;;I\CA_USER 'A:USERIP;;I\IP $SELECT S:USER2;I\CA_USER $VALIDATE M: C:UCASE F:ZU_USER;Y;;;ZU_USERID='$I\CA_USER$';I\CA_USER |
| 1 | 0.0 | CHANGE_AUTH | CA_USER | T | -1 | 81, 157 | |
| 1 | 0.0 | CHANGE_AUTH | CA_IP | I | -1 | 221, 193 | $DEFAULT A:USERIP;;I\CA_IP '$SELECT 'S:IP_ADDRESS;I\CA_IP $VALIDATE M: U:IP_CHECK;IP_SECTIONS;I\CA_IP,W\IP I:W\IP;=;1 D:INVALID IP ADDRESS;ERRORM;I\CA_IP I:W\IP;=;2 D:INVALID IP ADDRESS;ERRORM;I\CA_IP I:W\IP;=;3 D:INVALID IP ADDRESS;ERRORM;I\CA_IP I:W\IP;=;4 D:INVALID IP ADDRESS;ERRORM;I\CA_IP |
| 1 | 0.0 | CHANGE_AUTH | CA_IP | T | -1 | 81, 193 | |
| 1 | 0.0 | CHANGE_AUTH | CA_PASSWORD | I | -1 | 221, 301 | $VALIDATE M: C:UCASE A:LEN;I\CA_PASSWORD;I\TMP I:I\TMP;<;4;NUM D:ERROR - PASSWORD MUST BE AT LEAST FOUR CHARACTERS;ERRORM;I\CA_PASSWORD |
| 1 | 0.0 | CHANGE_AUTH | CA_PASSWORD | T | -1 | 81, 301 | |
| 1 | 0.0 | Label 2 | T | -1 | 321, 121 | ||
| 1 | 0.0 | Label 8 | T | -1 | 271, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 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 | CMD 1 | C | -1 | 281, 121 | $SELECT S:AGENT_CODE;I\CA_AGENT |
|
| 1 | 0.0 | I | 0 | 51, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\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 A:VAR;I\MARKET;I\CA_MARKET $AFTER_READ A:VAR;I\MARKET;I\CA_MARKET |
||
| 1 | 0.0 | Work 7 | I | 0 | 181, 445 | ||
| 1 | 0.0 | Work 1 | I | 0 | 411, 373 | ||
| 1 | 0.0 | Work 2 | I | 0 | 351, 373 | ||
| 1 | 0.0 | Work 3 | I | 0 | 381, 373 | ||
| 1 | 0.0 | Work 4 | I | 0 | 121, 445 | ||
| 1 | 0.0 | Work 5 | I | 0 | 151, 445 | ||
| 1 | 0.0 | Work 2 | I | 0 | 271, 445 | ||
| 1 | 0.0 | Work 3 | I | 0 | 231, 445 | ||
| 1 | 0.0 | Work 6 | I | 0 | 201, 445 | ||
| 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 |