HP System Dictionary/XL COBOL Definition Extractor (32257-90001)

2- 31
003500 05 FILLER PIC S9(4) COMP VALUE 0.
003600 05 FILLER PIC S9(4) COMP VALUE 0.
003700 05 COM-TERMFILENUM PIC S9(4) COMP VALUE 0.
003800 05 FILLER PIC S9(4) COMP VALUE 0.
003900 05 FILLER PIC S9(4) COMP VALUE 0.
004000 05 FILLER PIC S9(4) COMP VALUE 0.
004100 05 FILLER PIC S9(4) COMP VALUE 0.
004200 05 FILLER PIC S9(4) COMP VALUE 0.
004300 05 FILLER PIC S9(4) COMP VALUE 0.
004400 05 COM-TERMOPTIONS PIC S9(4) COMP VALUE 0.
004500 05 FILLER PIC S9(4) COMP VALUE 0.
004600 05 FILLER PIC S9(4) COMP VALUE 0.
004700 05 FILLER PIC S9(4) COMP VALUE 0.
004800 05 FILLER PIC S9(4) COMP VALUE 0.
004900
005000
005100 01 TERMFILENAME PIC X(6) VALUE "TERM ".
005200 01 MESSAGE-BUF PIC X(72) VALUE SPACES.
005300 01 MESSAGE-BUF-LEN PIC S9(4) COMP VALUE 72.
005400 01 MSGLEN PIC S9(4) COMP VALUE 0.
005500 01 FIELDNUM PIC S9(4) COMP VALUE 0.
005600 01 BUFLEN PIC S9(4) COMP VALUE 0.
KSAM Subsystem Standard Parameters
If you request KSAM subsystem standard parameters to be generated, a general KSAM file table that does
not reference any particular file and the KSAM status parameter are generated as follows:
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
000900