Dictionary/3000 Reference Manual (32244-90001)

ManualsBrandsHP ManualsSoftwareMPE/iX 6.0 Operating System

251

252

253

254

255

256

257

258

259

260

Chapter 7 255

The Dictionary DICTCDE Utility

Examples of Generated Code

001100 01 DELSALE-FIELDS

001200 05 ACCOUNT-FIELDNO PIC S9(4) COMP VALUE 11.

001300 05 PROD-NO-FIELDNO PIC S9(4) COMP VALUE 12.

001400 05 QUANTITY-FIELDNO PIC S9(4) COMP VALUE 13.

001500 05 PRICE-FIELDNO PIC S9(4) COMP VALUE 14.

001600 05 TOTAL-FIELDNO PIC S9(4) COMP VALUE 15.

001700 05 PURCH-DATE-FIELDNO PIC S9(4) COMP VALUE 16.

001800 05 DELIV-DATE-FIELDNO PIC S9(4) COMP VALUE 17.

001900 05 PURCH-NO-FIELDNO PIC S9(4) COMP VALUE 18.

002000

If the alias option is enabled when the code is generated for a form, then any element that

has an alias within that form will be generated with its alias as the COBOL identiﬁer for

that element.

Example

The following is an example of the code generated for a form:

000100

000200 01 DELSALE-DATA.

000300 05 ACCOUNT PIC X(10).

000400 05 PROD-NO PIC X(8).

000500 05 QUANTITY PIC 9(8).

000600 05 PRICE PIC X(12).

000700 05 TOTAL PIC X(12).

000800 05 PURCH-DATE PIC X(6).

000900 05 DELIV-DATE PIC X(6).

001000 05 PURCH-NO PIC X(6).