Dictionary/3000 Reference Manual (32244-90001)

Chapter 7 263
The Dictionary DICTCDE Utility
Examples of Generated Code
shown below.
000100
000200 01 KORDER-DATA.
000300 05 RECORD-LAYOUT-1 PIC X(80).
000400 01 KORDER-DATA2 REDEFINES KORDER-DATA.
000500 05 RECORD-LAYOUT-2-1 PIC X(40).
000600 05 RECORD-LAYOUT-2-2 PIC X(40).
You can also generate the KSAM FILETABLE parameter along with the
WORKING-STORAGE record layout for the KSAM file. The FILETABLE parameter is the
special parameter required by KSAM to be passed to each KSAM COBOL intrinsic. The
following is an example of the FILETABLE parameter generated for the file KORDER:
000100
000200 01 KORDER-FILETAB.
000300 05 FILENUMBER PIC S9(4) COMP VALUE 0.
000400 05 FILENAME PIC X(8) VALUE "KORDER".
000500 05 I-O-TYPE PIC S9(4) COMP VALUE 0.
000600 05 A-MODE PIC S9(4) COMP VALUE 0.
000700 05 PREV-OP PIC S9(4) COMP VALUE 0.
DICTCDE will also generate the KSAM standard parameters. The KSAM standard
parameters include a general FILETABLE parameter that does not reference a file name
and a STAT parameter that contains STATUS-KEY1 and STATUS-KEY2 for use with the
KSAM COBOL intrinsics. The standard FILETABLE can be used for any KSAM file as
long as it is initialized correctly. The following is an example of the KSAM standard
parameters:
000100
000200 01 FILETABLE.
000300 05 FILENUMBER PIC S9(4) COMP VALUE 0.
000400 05 FILENAME PIC X(8) VALUE SPACES.
000500 05 I-O-TYPE PIC S9(4) COMP VALUE 0.
000600 05 A-MODE PIC S9(4) COMP VALUE 0.
000700 05 PREV-OP PIC S9(4) COMP VALUE 0.
000800 01 STAT.
000900 05 STATUS-KEY-1 PIC X.
001000 05 STATUS-KEY-2 PIC X.