IBM Version 4 Universal Remote User Manual


 
Remove Exit Program and Deregister Exit Point—OPM RPG Example
Refer to “Remove Exit Program and Deregister Exit Point—ILE C Example” on
page 4-19 for the original example.
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
F
Fᑍ Program: Remove an Exit Program
Fᑍ Deregister an Exit Point
F
Fᑍ Language: OPM RPG
F
Fᑍ Description: This program removes an exit program and
Fᑍ deregisters an exit point from the registration
Fᑍ facility.
F
Fᑍ APIs Used: QUSRMVEP - Remove Exit Program
Fᑍ QUSDRGPT - Deregister Exit Point
F
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
F
FQPRINT O F 132 PRINTER UC
I
Iᑍ Error Code parameter include. As this sample program
Iᑍ uses /COPY to include the error code structure, only the first
Iᑍ 16 bytes of the error code structure are available. If the
Iᑍ application program needs to access the variable length
Iᑍ exception data for the error, the developer should physically
Iᑍ copy the QSYSINC include and modify the copied include to
Iᑍ define additional storage for the exception data.
I
I/COPY QSYSINC/QRPGSRC,QUSEC
I
I
Iᑍ Miscellaneous data
I
I DS
I B 1 4PGMNBR
I I 'EXAMPLE_EXIT_POINT ' 5 24 EPNTNM
C
Cᑍ Beginning of mainline
C
Cᑍ Remove an exit program from the exit point and then deregister
Cᑍ the exit point. It is not necessary to remove exit programs
Cᑍ from an exit point before deregistering the exit point. It is
Cᑍ done here only for illustrative purposes.
C
Cᑍ Initialize the error code parameter. To signal exceptions to
Cᑍ this program by the API, you need to set the bytes provided
Cᑍ field of the error code to zero. Because this program has
Cᑍ exceptions sent back through the error code parameter, it sets
Cᑍ the bytes provided field to the number of bytes it gives the
Cᑍ API for the parameter.
C
C Z-ADD16 QUSBNB
C
Cᑍ Call the API to remove the exit program.
B-90 System API Programming V4R1