Dictionary/3000 Reference Manual (32244-90001)

Chapter 7 253
The Dictionary DICTCDE Utility
Examples of Generated Code
VPLUS Forms File Definitions
DICTCDE allows you to generate the definition for an entire forms file or for selected
forms. The code generated for the forms file includes the forms file name and the record
layouts for all the related forms. The form records generated include the form name and
their associated elements. The form name is generated as an 01-level identifier, and the
fields are generated as 05-level identifiers. DICTCDE can also generate field number
tables for each form in the forms file. (See the discussion of VPLUS Forms Definition for an
example of the field number tables generated for a VPLUS form.)
The VPLUS standard parameters can also be generated for a forms file. (See the
discussion of Parameters under Examples of Generated Code for more information.)
Example
The following is an example of the code generated for a VPLUS forms file:
000100
000200 01 ADDCUST-DATA.
000300 05 ACCOUNT PIC X(10).
000400 05 L-NAME PIC X(20).
000500 05 F-NAME PIC X(18).
000600 05 INITIAL PIC X(1).
000700 05 STREET-ADDR PIC X(22).
000800 05 CITY PIC X(14).
000900 05 STATE PIC X(2).
001000 05 ZIP-CODE PIC X(5).
001100 05 CREDIT PIC X(2).
001200 01 ADDCUST-FIELDS.
001300 05 ACCOUNT-FIELDNO PIC S9(4) COMP VALUE 17.
001400 05 L-NAME-FIELDNO PIC S9(4) COMP VALUE 18.
001500 05 F-NAME-FIELDNO PIC S9(4) COMP VALUE 19.
001600 05 INITIAL-FIELDNO PIC S9(4) COMP VALUE 20.
001700 05 STREET-ADDR-FIELDNO PIC S9(4) COMP VALUE 21.
001800 05 CITY-FIELDNO PIC S9(4) COMP VALUE 22.
001900 05 STATE-FIELDNO PIC S9(4) COMP VALUE 5.
002000 05 ZIP-CODE-FIELDNO PIC S9(4) COMP VALUE 23.
002100 05 CREDIT-FIELDNO PIC S9(4) COMP VALUE 24.
002200
002300 01 ADDPROD-DATA.
002400 05 PROD-NO PIC X(8).
002500 05 DESCRIPTION PIC X(30).
002600 01 ADDPROD-FIELDS