Dictionary/3000 Reference Manual (32244-90001)

256 Chapter7
The Dictionary DICTCDE Utility
Examples of Generated Code
MPE File Definitions
DICTCDE allows you to generate source code for the ENVIRONMENT DIVISION and
DATA DIVISION for an MPE file. For the ENVIRONMENT DIVISION portion, DICTCDE
generates the SELECT statement for an MPE file as follows:
000100
000200 SELECT CUSTMPE
000300 ASSIGN "file-info "
000400 ORGANIZATION IS SEQUENTIAL.
DICTCDE generates the SELECT statement for an MPER (MPE Relative) file as follows:
000100
000200 SELECT CUSTMPER
000300 ASSIGN "file-info "
000400 ORGANIZATION IS RELATIVE
The file-info string contains the filename, CLASS, RECORDING MODE, DEVICE, CCTL,
and the FILE SIZE fields as they are defined in the Dictionary. Note that all these fields,
except for DEVICE, are generated only if they are defined in the Dictionary for that file. If
CCTL was defined but DEVICE was not, then the DEVICE field would be generated as LP.
Otherwise, DICTCDE will generate DEVICE as it was defined in the Dictionary. If a file is
related to a LOCATION in the Dictionary, then the alias (if it is defined), and the group
and account defined by the LOCATION will be used for the file name field.
For the DATA DIVISION portion, DICTCDE generates an entry for the FILE SECTION
and the WORKING-STORAGE record. The FILE SECTION for an MPE sequential file can
be generated as an FD file or as an SD file. The FILE SECTION for an MPER file can only
be generated as an FD file.
The FILE SECTION is generated as follows:
000100
000200 FD CUSTMPE
000300 BLOCK CONTAINS block-size RECORDS
000400 RECORD CONTAINS recsize CHARACTERS
000500 CODE-SET IS alphabet-name
000600 RECORDING MODE IS recording-mode.