Filter
Top Products
CONTINUE
ELSE
OPEN OUTPUT LISTING,
MOVE EXCEPTION-ID OF QUS-EC
TO EXCEPTION-ID OF BAD-CREATE,
WRITE LIST-LINE FROM BAD-CREATE,
STOP RUN.
ᑍ
ᑍ Assign BASE-POINTER to address RCVVAR
ᑍ
CALL "QUSPTRUS" USING SPACE-NAME, BASE-POINTER, QUS-EC.
ᑍ
ᑍ If an exception occurs, the API returns the exception in the
ᑍ error code parameter. The bytes available field is set to
ᑍ zero if no exception occurs and greater than zero if an
ᑍ exception does occur.
ᑍ
IF BYTES-AVAILABLE OF QUS-EC >
OPEN OUTPUT LISTING,
MOVE EXCEPTION-ID OF QUS-EC
TO EXCEPTION-ID OF BAD-CREATE,
WRITE LIST-LINE FROM BAD-CREATE,
STOP RUN.
ᑍ
SET ADDRESS OF RCVVAR TO BASE-POINTER.
ᑍ
ᑍ Blank out the continuation handle to let the API know that this
ᑍ is a first attempt at the retrieve operation.
ᑍ
MOVE SPACES TO CONTINUATION-HDL.
ᑍ
ᑍ Call the API to retrieve the exit programs
ᑍ
CALL PROCEDURE "QusRetrieveExitInformation" USING
CONTINUATION-HDL,
RCVVAR,
BY CONTENT LENGTH OF RCVVAR,
FORMAT-NAME OF MISC,
EXIT-POINT-NAME OF MISC,
FORMAT-NAME-2, EXIT-PGM-NBR,
NBR-OF-SELECT-CRITERIA, QUS-EC.
ᑍ
ᑍ If an exception occurs, the API returns the exception in the
ᑍ error code parameter. The bytes available field is set to
ᑍ zero if no exception occurs and greater than zero if an
ᑍ exception does occur.
ᑍ
IF BYTES-AVAILABLE OF QUS-EC >
OPEN OUTPUT LISTING,
MOVE EXCEPTION-ID OF QUS-EC
TO EXCEPTION-ID OF BAD-EXIT-POINT,
WRITE LIST-LINE FROM BAD-EXIT-POINT,
STOP RUN.
ᑍ
ᑍ If the call to retrieve exit point information is successful,
ᑍ check to see if there are any exit programs to call.
ᑍ
SET ADDRESS OF QUS-EXTI1 TO BASE-POINTER.
Appendix B. Original Examples in Additional Languages B-69