IBM Version 4 Universal Remote User Manual


 
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 '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 5
B-56 System API Programming V4R1