Dictionary/3000 Reference Manual (32244-90001)

Chapter 7 259
The Dictionary DICTCDE Utility
Examples of Generated Code
000300 01 CUSTMPE-DATA.
000400 05 RECORD-LAYOUT-1 PIC X(80).
000500 01 CUSTMPE-DATA2.
000600 05 RECORD-LAYOUT-2-1 PIC X(40).
000700 05 RECORD-LAYOUT-2-2 PIC X(40).
If the record layout is to be generated in WORKING-STORAGE and the file has more than
one record format, DICTCDE will use an explicit REDEFINES to define the multiple
record layouts. (In other words, DICTCDE will use the REDEFINES clause to show the
relationship between the different record layouts.) The generated code for the FD
Statement and for WORKING-STORAGE is shown below:
000100
000200 FD CUSTMPE
000300 01 CUSTMPE-REC PIC X(80).
000100
000200 01 CUSTMPE-DATA.
000300 05 RECORD-LAYOUT-1 PIC X(80).
000400 01 CUSTMPE-DATA2 REDEFINES CUSTMPE-DATA.
000500 05 RECORD-LAYOUT-2-1 PIC X(40).
000600 05 RECORD-LAYOUT-2-2 PIC X(40).
Example
The following is an example of the code generated for an MPE file. (Note that the SELECT
STATEMENT and FD statement have both been generated. The record layout has been
generated in WORKING-STORAGE.)
000100
000200 SELECT CUSTMPE
000300 ASSIGN "CUSTMPE,,,DISC"
000400 ORGANIZATION IS SEQUENTIAL.
000500
000600 FD CUSTMPE
000700 RECORD CONTAINS 1023 CHARACTERS
000800 RECORDING MODE IS S.
000900 01 CUSTMPE-REC PIC X(1023)
001000
001100 01 CUSTMPE-DATA.
001200 05 CUST-NUM PIC S9(8).
001300 05 CUST-CREDIT-LIM PIC S9(8).
001400 05 CUST-BALANCE PIC S9(10).
001500 05 INVOICE-NUM PIC S9(8).