Dictionary/3000 Reference Manual (32244-90001)

254 Chapter7
The Dictionary DICTCDE Utility
Examples of Generated Code
002700 05 PROD-NO-FIELDNO PIC S9(4) COMP VALUE 10.
002800 05 DESCRIPTION-FIELDNO PIC S9(4) COMP VALUE 11.
002900
003000 01 ADDSALE-DATA.
003100 05 ACCOUNT PIC X(10).
003200 05 PROD-NO PIC X(8).
003300 05 QUANTITY PIC 9(8).
003400 05 PRICE PIC X(12).
003500 05 TOTAL PIC X(12).
003600 05 PURCH-DATE PIC X(6).
003700 05 DELIV-DATE PIC X(6).
003800 05 PURCH-NO PIC X(6).
003900 01 ADDSALE-FIELDS
004000 05 ACCOUNT-FIELDNO PIC S9(4) COMP VALUE 11.
004100 05 PROD-NO-FIELDNO PIC S9(4) COMP VALUE 12.
004200 05 QUANTITY-FIELDNO PIC S9(4) COMP VALUE 13.
004300 05 PRICE-FIELDNO PIC S9(4) COMP VALUE 14.
004400 05 TOTAL-FIELDNO PIC S9(4) COMP VALUE 15.
004500 05 PURCH-DATE-FIELDNO PIC S9(4) COMP VALUE 16.
004600 05 DELIV-DATE-FIELDNO PIC S9(4) COMP VALUE 17.
004700 05 PURCH-NO-FIELDNO PIC S9(4) COMP VALUE 18.
004800
004900 01 CHGCUST-DATA.
005000 05 ACCOUNT PIC X(10).
005100 05 L-NAME PIC X(20).
005200 05 F-NAME PIC X(18).
005300 05 INITIAL PIC X(1).
005400 05 STREET-ADDR PIC X(22).
005500
005600
005700 01 ORDERSFF-CONST PIC X(9) VALUE "ORDERSFF ".
VPLUS Form Definitions
The code generated for a VPLUS form includes the record layout of the form and the field
number table for the fields in the form. These tables provide the field number for each field
in a form. (The field number is useful in some VPLUS intrinsics such as VSETERROR.)
Each field in the form is represented by a data item in the table. The data items are COMP
variables initialized to the field number value defined in the Dictionary. The following is an
example of the field tables generated for a VPLUS form: