Cᑍ the call. This program lets the API take the default for the
Cᑍ controls that are not specified.
Cᑍ
C Z-ADD2 NBRREC
Cᑍ
Cᑍ Set the values for the two controls that are specified:
Cᑍ Maximum number of exit programs = 1
Cᑍ Exit point description = 'EXIT POINT EXAMPLE'
Cᑍ
C Z-ADD3 QUSBCC
C Z-ADD4 QUSBCD
C Z-ADD1 BINARY
C 12 ADD VO OF 5
C MOVEABINC REC,OF
C EXSR CALCVO
C Z-ADD8 QUSBCC
C Z-ADD5 QUSBCD
C 12 ADD VO OF 5
C MOVEAEPTXT REC,OF
C EXSR CALCVO
Cᑍ
Cᑍ Call the API to register the exit point.
Cᑍ
C CALL 'QUSRGPT'
C PARM EPNTNM
C PARM 'EXMP1'FORMAT 8
C PARM VARREC
C PARM QUSBN
Cᑍ
Cᑍ If an exception occurs, the API returns the exception in the
Cᑍ error code parameter. The bytes available field is set to
Cᑍ zero if no exception occurs and greater than zero if an
Cᑍ exception does occur.
Cᑍ
C QUSBNC IFGT
C OPEN QPRINT
C EXCPTERREPT
C EXSR DONE
C ENDIF
Cᑍ
Cᑍ If the call to register an exit point is successful, add
Cᑍ an exit program to the exit point.
Cᑍ
Cᑍ Set the total number of exit program attributes that are being
Cᑍ specified on the call. This program lets the API take the
Cᑍ default for the attributes that are not specified. Each
Cᑍ attribute record must be 4-byte aligned.
Cᑍ
C Z-ADD2 NBRREC
C Z-ADD1 VO
Cᑍ
Cᑍ Set the values for the two attributes that are being specified:
Cᑍ Replace exit program = 1
Cᑍ Exit program data CCSID = 37
Cᑍ
C Z-ADD4 QUSBCC
C Z-ADD1 QUSBCD
C 12 ADD VO OF 5
B-56 System API Programming V4R1