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
C MOVEABINC REC,OF
C EXSR CALCVO
C Z-ADD8 QUSBCC
C Z-ADD5ð QUSBCD
C 12 ADD VO OF
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 'EXMPð1ðð'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
B-56 System API Programming V4R1