Filter
Top Products
ᑍ QUSPTRUS - Retrieve Pointer to User Space
ᑍ QusRetrieveExitInformation - Retrieve Exit
ᑍ Information
ᑍ
ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
ᑍ
PROGRAM-ID. REGFAC2.
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.
ᑍ
ᑍ Error message text
ᑍ
1 BAD-EXIT-POINT.
5 TEXT1 PIC X(4)
VALUE "Attempt to retrieve information failed: ".
5 EXCEPTION-ID PIC X(7).
1 BAD-EXIT-PGM.
5 TEXT1 PIC X(42)
VALUE "Attempt to retrieve Exit Programs failed: ".
5 EXCEPTION-ID PIC X(7).
1 BAD-CREATE.
5 TEXT1 PIC X(37)
VALUE "Allocation of RCVVAR storage failed: ".
5 EXCEPTION-ID PIC X(7).
ᑍ
ᑍ Miscellaneous elements
ᑍ
1 MISC.
5 EXIT-POINT-NAME PIC X(2) VALUE "EXAMPLE_EXIT_POINT".
5 EXIT-PGM-NBR PIC S9(9) VALUE -1 BINARY.
5 EXIT-PARAMETERS PIC X(1).
5 FORMAT-NAME PIC X(8) VALUE "EXTI1".
5 FORMAT-NAME-1 PIC X(8) VALUE "EXTI2".
5 FORMAT-NAME-2 PIC X(8) VALUE "EXMP1".
Appendix B. Original Examples in Additional Languages B-67