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

C

 

MOVEABINC

REC,OF

 

C

 

EXSR CALCVO

 

 

C

 

Z-ADD8

QUSBCC

 

C

 

Z-ADD5ð

QUSBCD

 

C

12

ADD

VO

OF

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 spe￿cified:

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

B-56System API Programming V4R1

Page 334
Image 334
IBM Version 4 ADD2, ADD3, ADD4, Binary ADD Moveabinc REC,OF Exsr Calcvo ADD8, ADD Moveaeptxt REC,OF Exsr Calcvo, Open