Program drill-down
COMM_LIST
COMMODITY LISTING. Type DSP, base table COMMODITY_MAST.
Field inventory
37
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 | VAR_MAST | VA_VARIETY | I | -1 | 331, 181 | $SELECT VARIETY_NB2 'S:VAR_CODE;I\VARIETY_CODE;I\PRODUCT_CODE S:VARIETY_NB2;I\VARIETY_CODE;I\PRODUCT_CODE $VALIDATE A:CONST;;W\VARIETY I:I\VARIETY_CODE;<>; DO(1) I:I\PRODUCT_CODE;=; DO(2) A:CONST;;I\VARIETY_CODE D:ERROR-PLEASE SELECT A PRODUCT;ERRORM;I\PRODUCT_CODE DOEND(2) C:UCASE 'F: |
| 1 | 0.0 | Label 4 | T | -1 | 471, 217 | ||
| 1 | 0.0 | Work 12 | I | 0 | 1, 385 | $DEFAULT A:DATE;DD MMM YYYY;I\STDATE A:DATE;DD MMM YYYY;I\ENDDATE A:TIME;HH:MM:SS;T\TIME A:DATE;DD MMM YYYY;T\DATE A:TIMER_ON;1000 O:SETFOCUS;I\PRODUCT_CODE O:DISABLEINPUT;I\VARIETY_CODE |
|
| 1 | 0.0 | Work 2 | I | -1 | 331, 289 | $VALIDATE 'UPPERCASE C:UCASE V:N;;Y I:I\DUMP;=; DO(1) A:CONST;N;I\DUMP DOEND(1) A:CONST;IN PROGRESS . . . .;T\PROG I:I\SECTION;=;ALL A:CONST;;I\SECTION E:$GBLROOT$LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_COMMODITY_LIST;$I\MARKET$,$I\PRODUCT_CODE$,$I\VARIETY_CODE$,$I\SECTION$,$I\NDA_CODE$,$I\DUMP |
|
| 1 | 0.0 | Work 2 | I | -1 | 331, 217 | $SELECT S:SECTION;I\SECTION $VALIDATE I:I\SECTION;<>; F:SECT_MAST;Y;;T\SE_DESC=SE_DESC;SE_SECT='$I\SECTION$';I\SECTION |
|
| 1 | 0.0 | CMD 13 | C | -1 | 431, 145 | $SELECT S:COMM_LIST;I\PRODUCT_CODE |
|
| 1 | 0.0 | CMD 14 | C | -1 | 431, 181 | $SELECT S:VARIETY_NB2;I\PRODUCT_CODE;I\VAREITY_CODE |
|
| 1 | 0.0 | CMD 3 | C | -1 | 431, 217 | $SELECT S:SECTION;I\SECTION |
|
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 221, 181 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 221, 145 | ||
| 1 | 0.0 | Label 5 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 6 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 7 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 9 | T | -1 | 301, 49 | ||
| 1 | 0.0 | PRODUCT_MUST | PR_PRODUCT | I | -1 | 331, 145 | $SELECT S:COMM_LIST;I\PRODUCT_CODE $VALIDATE ''M:I\PRODUCT_CODE='PRODUCT CODE' C:UCASE I:I\PRODUCT_CODE;<>; DO(1) A:CONST;;T\PROG F:PRODUCT_MAST;Y;PR_PRODUCT;T\PROD_DESC=PR_DESC;;I\PRODUCT_CODE DOEND(1) O:ENABLEINPUT;I\VARIETY_CODE |
| 1 | 0.0 | Label 2 | T | -1 | 471, 145 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 409 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MKT A:CONST;N;I\DUMP 'A:ORGS;;I\ORGS 'A:ORGS;;I\AGENT 'I:I\ORGS;<>; 'DO(ORGS) 'F:AGENT_MAST;Y;;T\AGENT_NAME=AM_NAME;AM_CODE= |
|
| 1 | 0.0 | Label 1 | T | -1 | 221, 253 | ||
| 1 | 0.0 | Work 2 | I | -1 | 331, 253 | $SELECT S:NDA_CODE;I\NDA_CODE |
|
| 1 | 0.0 | CMD 3 | C | -1 | 431, 253 | $SELECT S:NDA_CODE;I\NDA_CODE |
|
| 1 | 0.0 | Label 1 | T | -1 | 221, 289 | ||
| 1 | 0.0 | Label 1 | T | -1 | 221, 217 | ||
| 1 | 0.0 | Work 2 | I | 0 | 1, 361 | ||
| 1 | 0.0 | Label 1 | T | -1 | 271, 337 | ||
| 1 | 0.0 | Work 3 | I | 0 | 1, 157 | $SELECT S:AGENT_CODE;I\AGENT $CALCULATE A:CONST;;T\PROG C:UCASE I:I\AGENT;<>; F:AGENT_MAST;Y;;T\AGENT_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT I:I\AGENT;=; A:CONST;;T\AGENT_NAME |
|
| 1 | 0.0 | CMD 4 | C | 0 | 101, 157 | $SELECT S:AGENT_CODE;I\AGENT |
|
| 1 | 0.0 | Label 1 | T | 0 | 1, 121 | ||
| 1 | 0.0 | Label 5 | T | 0 | 1, 193 | ||
| 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 |