Dictionary/3000 Reference Manual (32244-90001)

274 Chapter7
The Dictionary DICTCDE Utility
Examples of Generated Code
004900 05 FILLER PIC S9(4) COMP VALUE 0.
005000 05 COM-NUMRECS PIC S9(9) COMP VALUE 0.
005100 05 COM-RECNUM PIC S9(9) COMP VALUE 0.
005200 05 FILLER PIC S9(4) COMP VALUE 0
005300 05 FILLER PIC S9(4) COMP VALUE 0.
005400 05 COM-TERMFILENUM PIC S9(4) COMP VALUE 0.
005500 05 FILLER PIC S9(4) COMP VALUE 0.
005600 05 FILLER PIC S9(4) COMP VALUE 0.
005700 05 FILLER PIC S9(4) COMP VALUE 0.
005800 05 FILLER PIC S9(4) COMP VALUE 0.
005900 05 FILLER PIC S9(4) COMP VALUE 0.
006000 05 FILLER PIC S9(4) COMP VALUE 0.
006100 05 COM-TERMOPTIONS PIC S9(4) COMP VALUE 0
006200 05 FILLER PIC S9(4) COMP VALUE 0.
006300 05 FILLER PIC S9(4) COMP VALUE 0.
006400 05 FILLER PIC S9(4) COMP VALUE 0.
006500 05 FILLER PIC S9(4) COMP VALUE 0.
006600 01 TERMFILENAME PIC X(6) VALUE "TERM ".
006700 01 MESSAGE-BUF PIC X(72) VALUE SPACES.
006800 01 MESSAGE-BUF-LEN PIC S9(4) COMP VALUE 72.
006900 01 MSGLEN PIC S9(4) COMP VALUE 0.
007000 01 FIELDNUM PIC S9(4) COMP VALUE 0.
007100 01 BUFLEN PIC S9(4) COMP VALUE 0.
The KSAM standard parameters include a general KSAM FILETABLE which does not
reference any particular file and the STAT parameters. The general KSAM FILETABLE
can be used for any file as long as it is initialized correctly. The STAT parameters contain
STATUS-KEY1 and STATUS-KEY2 which can be used by the KSAM COBOL intrinsics.
The KSAM parameters are generated to WORKING-STORAGE as follows:
007300 01 FILETABLE.
007400 05 FILENUMBER PIC S9(4) COMP VALUE 0.
007500 05 FILENAME PIC X(8) VALUE SPACES.
007600 05 I-O-TYPE PIC S9(4) COMP VALUE 0.
007700 05 A-MODE PIC S9(4) COMP VALUE 0.
007800 05 PREV-OP PIC S9(4) COMP VALUE 0.
007900 01 STAT.
008000 05 STATUS-KEY-1 PIC X.
008100 05 STATUS-KEY-2 PIC X.