Program drill-down
SYS_CONTROL
SYSTEM CONTROL. Type MAN, base table ZV_USER_DEFAULTS.
Field inventory
30
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 0, 60 | |||
| 1 | 0.0 | ZV_USER_DEFAULTS | ZV_DESC | I | -1 | 211, 145 | $VALIDATE 'MAKE FIELD A MANDATORY FIELD M: 'CONVERT THE VALUES TO UPPERCASE C:UCASE 'REMOVE EMPTY SPACES ON EOTHER SIDE A:TRIM;I\ZV_DESC;I\ZV_DESC 'CLEAR FIELDS A:CONST;;W\TEMP1 A:CONST;;W\TEMP2 'CHECK IF CODE ALREADY EXISTS U:PALLET_TYPE;CODE_CHECK;I\ZV_CODE,G\GRIDM,W\TEMP1,I\ZV_DESC I:W\TEMP1;=; |
| 1 | 0.0 | ZV_USER_DEFAULTS | ZV_DESC | T | -1 | 211, 121 | |
| 1 | 0.0 | ZV_USER_DEFAULTS | ZV_NUMBER | I | -1 | 411, 145 | $VALIDATE 'CONVERT THE VALUES TO UPPERCASE C:UCASE I:I\ZV_NUMBER;<>; DO(DU) A:ISNUMERIC;I\ZV_NUMBER;W\ZV_NUMBER I:W\ZV_NUMBER;=;N D:INVALID ENTRY - ENTER NUMERIC VALUES ONLY;ERRORM;I\ZV_NUMBER DOEND(DU) 'DISPLAY AN ERROR MESSAGE IF A VALUE ALREADY EXISTS IN THE I\ZV_TEXT FIELD I:I\ZV_NUMBER;<> |
| 1 | 0.0 | NUMTST | I | 0 | 21, 541 | ||
| 1 | 0.0 | ZV_USER_DEFAULTS | ZV_TEXT | I | -1 | 541, 145 | $VALIDATE 'CONVERT THE VALUES TO UPPERCASE C:UCASE 'TRIM LEFT AND RIGHT SPACES A:TRIM;I\ZV_TEXT;I\ZV_TEXT 'DISPLAY AN ERROR MESSAGE IF A VALUE ALREADY EXISTS IN THE I\ZV_NUMBER FIELD I:I\ZV_TEXT;<>; DO(RE2) I:I\ZV_NUMBER;<>; D:VALUE ALREADY EXISITS IN THE "NUMBER" INPUT FIELD;ERRORM;I\ZV_TEXT |
| 1 | 0.0 | ZV_USER_DEFAULTS | ZV_TEXT | T | -1 | 541, 121 | |
| 1 | 0.0 | Label 8 | T | -1 | 261, 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 | I | 0 | 11, 73 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 '$CALCULATE U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\ZV_CODE,I\ZV_DESC,I\ZV_NUMBER,I\ZV_TEXT U:ZZGRID_SPLIT;DB_TO_GRID;G\GRIDM;ZV_USER_DEFAULTS |
||
| 1 | 0.0 | Work 2 | G | -1 | 11, 169 | ||
| 1 | 0.0 | ZV_USER_DEFAULTS | ZV_NUMBER | T | -1 | 411, 121 | |
| 1 | 0.0 | ZV_USER_DEFAULTS | ZV_CODE | I | -1 | 11, 145 | 'ALLOW THE USER TO PRESS F5 TO VIEW SELECTION WINDOW $SELECT S:ZV_USER_DEFAULTS_2;I\ZV_CODE $VALIDATE 'MAKE FIELD A MANDATORY FIELD M: 'TRIM LEFT AND RIGHT SPACES A:TRIM;I\ZV_CODE;I\ZV_CODE 'CONVERT THE VALUES TO UPPERCASE C:UCASE 'DISPLAY ERROR MESSAGE IF THERE ARE SPACES IN THE ZV_CODE I:I\ZV_CODE; |
| 1 | 0.0 | ZV_USER_DEFAULTS | ZV_CODE | T | -1 | 11, 121 | |
| 1 | 0.0 | CMD 1 | C | -1 | 181, 145 | 'ALLOW THE USER TO VIEW SELECTION WINDOW $SELECT S:ZV_USER_DEFAULTS_2;I\ZV_CODE |
|
| 1 | 0.0 | Work 1 | I | 0 | 491, 85 | ||
| 1 | 0.0 | Work 7 | I | 0 | 201, 541 | ||
| 1 | 0.0 | Work 8 | I | 0 | 241, 541 | ||
| 1 | 0.0 | Work 13 | I | 0 | 61, 73 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL C:MCASE;;T\MARKET |
|
| 1 | 0.0 | Work 1 | I | 0 | 431, 85 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 60 |