IBM Version 4 Data Division File Section, Label Records are Standard, Data Record is LIST-LINE

ENVIRONMENT DIVISION.

CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-AS4ðð. OBJECT-COMPUTER. IBM-AS4ðð.

\

INPUT-OUTPUT SECTION. FILE-CONTROL.

\

SELECT LISTING ASSIGN TO PRINTER-QPRINT ORGANIZATION IS SEQUENTIAL.

\

DATA DIVISION.

FILE SECTION.

\

FD	LISTING RECORD CONTAINS 132 CHARACTERS
	LABEL RECORDS ARE STANDARD
	DATA RECORD IS LIST-LINE.
ð1	LIST-LINE	PIC X(132).

\

WORKING-STORAGE SECTION.

\

\Error Code parameter include. As this sample program

\uses COPY to include the error code structure, only the fi￿rst

\16 bytes of the error code structure are available. If the

\application program needs to access the variable length￿

\exception data for the error, the developer should physic￿ally

\copy the QSYSINC include and modify the copied include to￿

\define additional storage for the exception data.

\

COPY QUSEC OF QSYSINC-QLBLSRC.

\

\Retrieve Job Description API Include

COPY QWDRJOBD OF QSYSINC-QLBLSRC.

\Command String Data Structure

\

ð1 HOLD-VALUE.

ð5 TEXT1 PIC X(13) VALUE 'HOLD value - '. ð5 HOLD PIC X(1ð).

\

\Error Message Text

ð1 MESSAGE-TEXT.

ð5	MSG1	PIC	X(19)	VALUE 'Failed. Error ID - '.
ð5	MSGID	PIC	X(7).

\

ð1 RECEIVER-LENGTH PIC S9(9) COMP-4.

ð1 FORMAT-NAME PIC X(8) VALUE 'JOBDð1ðð'. ð1 QCMDEXC PIC X(1ð) VALUE 'QCMDEXC'.

\

\Job Description and Library Name Structure

ð1 JOBD-AND-LIB-NAME.

ð5 JOB-DESC PIC X(1ð).

ð5 JOB-DESC-LIB PIC X(1ð).

LINKAGE SECTION.

Appendix B. Original Examples in Additional BLanguages-19