Filter
Top Products
Cᑍ
C CALLB QUSREP5
C PARM EPNTNAME
C PARM 'EXMP1' FORMAT 8
C PARM VARREC
C PARM QUSEC
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 IF QUSBAVL >
C OPEN QPRINT
C EXCEPT ERRAEPNT
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 EVAL NBR_RECS = 2
C EVAL V_OFFSET = 1
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 EVAL QUSCK = 4
C EVAL QUSLD = 1
C EVAL %SUBST(RECS:V_OFFSET+12) = '1'
C EXSR CALC_VOFF
C EVAL QUSCK = 3
C EVAL QUSLD = 4
C EVAL BINARY = 37
C EVAL %SUBST(RECS:V_OFFSET+12) = BINARY_C
C EXSR CALC_VOFF
Cᑍ
Cᑍ Call the API to add the exit program.
Cᑍ
C CALLB QUSAEPGM
C PARM EPNTNAME
C PARM 'EXMP1' FORMAT
C PARM 1 BINARY
C PARM EPGM
C PARM EPGMDTA
C PARM EPGMDTA_SZ
C PARM VARREC
C PARM QUSEC
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
B-60 System API Programming V4R1