Remove Exit Program and

Deregister

Exit

Point—OPM

RPG

Example

Refer

to “Remove

Exit

Program

and

Deregister Exit Point—ILE C Example” o

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 f￿irst

I\ 16 bytes of the error code structure are available. If the

I\ application program needs to access the variable lengt￿h

I\ exception data for the error, the developer should physi￿cally

I\ copy the QSYSINC include and modify the copied include t￿o

I\ define additional storage for the exception data.

I\

I/COPY QSYSINC/QRPGSRC,QUSEC

I\

I\

I\ Miscellaneous data

I\

IDS

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 dere￿gister

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 provide￿d

C\ field of the error code to zero. Because this program has

C\ exceptions sent back through the error code parameter, i￿t 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-90System API Programming V4R1

Page 368
Image 368
IBM Version 4 manual Remove Exit Program, Exampleexitpoint Epntnm