Dictionary/3000 Reference Manual (32244-90001)

Chapter 7 257
The Dictionary DICTCDE Utility
Examples of Generated Code
The above parameters are generated from the following entries defined in the Dictionary
for an MPE file:
block-size BLOCKING(N/Y)?
UNIT(R/C)?
MINIMUM
MAXIMUM
recsize MINIMUM RECORD SIZE
MAXIMUM RECORD SIZE
alphabet-name DATA STORAGE TYPE(A/E)?
recording-mode RECORD FORMAT(F/V/U/S)?
Since the recsize parameter is generated from the RECSIZE entry in the Dictionary, not
from a total of the storage sizes of the elements in the file, care should be taken when
defining the file's record size in the Dictionary. Otherwise, the record size defined for the
file may conflict with the record layout of the file. (Refer to Section 4, The DICTDBM
Commands, for more information on the above DICTDBM prompts.)
If any of the entries were not defined in the Dictionary for the above parameters, the
corresponding clause for those parameters will not be generated.
The record layout of the file can be generated in the FD statement or in
WORKING-STORAGE. The record layout identifies the data items associated with the file.
Each data item in the file is generated as an 05-level identifier. The child elements of those
data items are generated as 10-level identifiers, 15-level identifiers and so forth. If the
alias option is enabled when the code is generated, then any data item that has an alias
within the file will be generated with its alias as the COBOL identifier.
When the record layout of the file is generated in the FILE SECTION, it will immediately
follow the FD Statement as shown below:
000100
000200 FD CUSTMPE
000300 RECORD CONTAINS 1023 CHARACTERS
000400 RECORDING MODE IS S.
000500
000600 01 CUSTMPE-DATA.
000700 05 CUST-NUM PIC S9(8).
000800 05 CUST-CREDIT-LIM PIC S9(8).
000900 05 CUST-BALANCE PIC S9(10).
001000 05 INVOICE-NUM PIC S9(8).
001100 05 INVOICE-TOTAL PIC S9(10).
001200 05 INVOICE-DATE PIC X(8).
001300 05 FILLER PIC X(971).