Filter
Top Products
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 first
ᑍ 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 physically
ᑍ 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 'JOBD1'.
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 Languages B-19