Program drill-down
SECTION_MAINTENANCE
SECTION MAINTENANCE. Type MDL, base table SECT_MAST.
Field inventory
32
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | SECT_MAST | SE_DESC | I | -1 | 261, 157 | 'CHANGING TEXT CASE TO UPPERCASE AND SET THIS FIELD MANDATORY $VALIDATE M: C:UCASE 'CODE TO ENSURE THAT THE DESCRIPTION DOES NOT ALREADY EXIST IN THE GRID 'CLEAR FIELDS A:CONST;;W\TEMP1 A:CONST;;W\TEMP2 'CHECK IF CODE ALREADY EXISTS U:PALLET_TYPE;CODE_CHECK;I\SE_SECT,G\GRID,W\TEMP1,I\SE_DESC I:W\TEMP1;= |
| 1 | 0.0 | SECT_MAST | SE_TYPE | T | -1 | 211, 133 | |
| 1 | 0.0 | SECT_MAST | SE_TYPE | I | -1 | 211, 157 | $VALIDATE 'MAKE THIS FIELD MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'ONLY ALLOW I OR S SECTIONS V:I;S I:I\SE_TYPE;=;S DO(CCHECK_NUMERIC) A:ISNUMERIC;I\SE_SECT;W\NUMERIC I:W\NUMERIC;=;N D:ERROR - SECTION MUST BE NUMERIC;ERRORM;I\SE_SECT DOEND(CCHECK_NUMERIC) |
| 1 | 0.0 | SECT_MAST | SE_SECT | T | -1 | 131, 133 | |
| 1 | 0.0 | SECT_MAST | SE_SECT | I | -1 | 131, 157 | 'SELECT SECTION CODE FROM SECT_MAST $SELECT S:SECTION_MAST;I\SE_SECT 'CHANGING TEXT CASE TO UPPERCASE AND SET THIS FIELD MANDATORY $VALIDATE M: C:UCASE 'PUT 2 ZEROS AS FIRST 2 CHARACTERS A:LEN;I\SE_SECT;W\TEMP3 I:W\TEMP3;=;1 DO(LL) A:ISNUMERIC;I\SE_SECT;W\TEMP4 I:W\TEMP4;=;Y A:CON;"00";I\SE |
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Work 1 | I | 0 | 101, 73 | $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 | H | -1 | 1, 25 | |||
| 1 | 0.0 | SECT_MAST | SE_DESC | T | -1 | 261, 133 | |
| 1 | 0.0 | CMD 9 | C | -1 | 181, 157 | $SELECT S:SECTION_MAST;I\SE_SECT |
|
| 1 | 0.0 | Work 10 | G | -1 | 131, 181 | ||
| 1 | 0.0 | Label 12 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 13 | T | -1 | 301, 49 | ||
| 1 | 0.0 | Label 14 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 15 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 16 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 17 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Work 18 | I | 0 | 51, 73 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'INITIALIZES GRID AND RETRIEVE RECORDS FROM DATABASE TO GRID U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SE_SECT,I\SE_TYPE,I\SE_DESC U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;SECT_MAST,SE_DELIND <> 'Y' |
|
| 1 | 0.0 | Work 19 | I | 0 | 281, 517 | ||
| 1 | 0.0 | Work 20 | I | 0 | 251, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 311, 517 | ||
| 1 | 0.0 | Work 2 | I | 0 | 351, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 391, 517 | ||
| 1 | 0.0 | Work 2 | I | 0 | 381, 481 | ||
| 1 | 0.0 | Work 3 | I | 0 | 321, 481 | ||
| 1 | 0.0 | SECT_MAST | SE_DELIND | I | 0 | 131, 421 | $BEFORE_WRITE I:SE_DELIND;=; A:CONST;N;I\SE_DELIND |
| 1 | 0.0 | Work 1 | I | 0 | 451, 517 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 25 |