Filter
Top Products
C DOW QUSCH <> ᑍBLANKS
C EVAL CONTIN_HDL = QUSCH
C EXSR CUSREI
C ENDDO
C ENDIF
C ENDIF
C EXSR DONE
Cᑍ
Cᑍ End of MAINLINE
Cᑍ
Cᑍ Process exit programs in receiver variable
Cᑍ
C CUSREI BEGSR
Cᑍ
Cᑍ Call the API to retrieve the exit program information
Cᑍ
C CALLB QUSREI
C PARM CONTIN_HDL
C PARM RCVVAR
C PARM RCVVAR_SZ
C PARM 'EXTI2' FORMAT 8
C PARM EPNTNAME
C PARM 'EXMP1' EPNT_FMT 8
C PARM EPGM_NBR
C PARM QUSNBRSC
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 ERRAEPGM
C EXSR DONE
C ENDIF
Cᑍ
Cᑍ If the call to retrieve exit program information is successful,
Cᑍ check to see if there are any exit programs to call.
Cᑍ
Cᑍ The receiver variable offers enough room for a minimum of one
Cᑍ exit program entry because the receiver variable was declared
Cᑍ as 35 bytes. Therefore, this example only checks the
Cᑍ number of exit programs returned field. If the receiver
Cᑍ variable were not large enough to hold at least one entry,
Cᑍ the bytes available field would need to be checked as well as
Cᑍ the number of exit programs returned field. If the number of
Cᑍ exit programs returned field is set to zero and the bytes
Cᑍ available field is greater than the bytes returned field, the
Cᑍ API had at least one exit program entry to return but was
Cᑍ unable to because the receiver variable was too small.
Cᑍ
C EVAL INFSPCPTR = %ADDR(RCVVAR(QUSOPGME+1))
C DO QUSNBRPR
Cᑍ
Cᑍ Get the exit program name and library
Cᑍ
B-84 System API Programming V4R1