Program drill-down
IP_CONTROL_MAN
IP CONTROL MAINTENACE. Type MAN, base table IP_CONTROL.
Field inventory
29
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 1 | T | -1 | 1, 25 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | IP_CONTROL | IP_IP | I | -1 | 371, 229 | |
| 1 | 0.0 | IP_CONTROL | IP_IP | T | -1 | 171, 205 | |
| 1 | 0.0 | Label 10 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Work 11 | I | 0 | 91, 61 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'U:ZZGRID_SPLIT;INIT_GRID;G\GRIDIP;I\IP_CODE,I\IP_IP,I\IP_TYPE 'U:ZZGRID_SPLIT;DB_TO_GRID;G\GRIDIP;IP_CONTROL;IP_CODE $BEFORE_DELETE I:I\IP_MENU;=; DO(01) I:I\IP_IP;= D:CANNOT DELETE, NO RECORD SELECTED;ERRORM;I\IP_CODE |
|
| 1 | 0.0 | Label 3 | T | -1 | 291, 49 | ||
| 1 | 0.0 | CMD 13 | C | -1 | 251, 133 | 'SELECTING SEQUENCE CODE FROM IP_CONTROL TABLE $SELECT S:MENU_GROUP;I\IP_MENU |
|
| 1 | 0.0 | Work 1 | I | 0 | 51, 469 | $AFTER_READ 'U:IP_CONTROL_CODE;MV_LOAD1 |
|
| 1 | 0.0 | Label 7 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 9 | T | -1 | 671, 49 | ||
| 1 | 0.0 | IP_CONTROL | IP_MENU | T | -1 | 171, 109 | |
| 1 | 0.0 | Label 2 | T | -1 | 291, 25 | ||
| 1 | 0.0 | IP_CONTROL | IP_MENU | I | -1 | 171, 133 | 'SELECTING SEQUENCE CODE FROM IP_CONTROL TABLE $SELECT S:MENU_GROUP;I\IP_MENU 'CHANGING CASE TO UPPER CASE AND SET FIELD MANDATORY $VALIDATE M: C:UCASE 'LOOK UP FOR GROUP CODE FROM DATABASE TABLE F:ZC_SEC_GROUP;Y;ZC_KEY;;;I\IP_MENU 'LOOK UP FOR GROUP CODE (IP_MENU) FROM DATABASE TABLE 'F:IP_CONTROL;Y;IP |
| 1 | 0.0 | Work 2 | I | 0 | 151, 61 | $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 |
|
| 1 | 0.0 | Work 3 | I | 0 | 11, 169 | ||
| 1 | 0.0 | Work 4 | I | 0 | 81, 469 | ||
| 1 | 0.0 | Work 5 | I | 0 | 111, 469 | ||
| 1 | 0.0 | CMD 6 | C | -1 | 271, 265 | $SELECT I:I\IP_MENU;<>; DO(02) I:I\IP;<>; DO(CHK) I:I\IP;<>; U:DELETE_MV;DELETE;I\IP,I\IP_IP DOEND(CHK) I:I\IP;=; DO(01) I:I\IP;=; D:NO IP ADDRESS SELECTED - DELETE NOT ALLOWED;ERRORM;I\IP DOEND(01) A:CONST;;I\IP O:SETFOCUS;C\DEL;I\IP DOEND(02) |
|
| 1 | 0.0 | Work 7 | I | 0 | 141, 469 | ||
| 1 | 0.0 | IP | I | -1 | 171, 229 | $VALIDATE I:I\IP;<>; DO(TEST) U:IP_CHECK;IP_SECTIONS;I\IP,W\IP 'U:IP_CONTROL_CODE;IP_ADDR_CHK;I\IP,.,W\IP I:W\IP;=;1 D:INVALID IP ADDRESS;ERRORM;I\IP I:W\IP;=;2 D:INVALID IP ADDRESS;ERRORM;I\IP I:W\IP;=;3 D:INVALID IP ADDRESS;ERRORM;I\IP I:W\IP;=;4 D:INVALID IP ADDRESS |
|
| 1 | 0.0 | Label 2 | T | -1 | 371, 205 | ||
| 1 | 0.0 | Work 3 | I | 0 | 171, 469 | ||
| 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 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 |