C\

 

 

 

 

C

CALLB

QUSREPð5

 

 

C

PARM

 

EPNTNAME

 

C

PARM

'EXMPð1ðð'

FORMAT

8

C

PARM

 

VARREC

 

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

ERRAEPNT

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

EVAL

NBR_RECS = 2

C

EVAL

V_OFFSET = 1

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

EVAL

QUSCK = 4

 

C

EVAL

QUSLD = 1

 

C

EVAL

%SUBST(RECS:V_OFFSET+12) = '1'

C

EXSR

CALC_VOFF

 

C

EVAL

QUSCK = 3

 

C

EVAL

QUSLD = 4

 

C

EVAL

BINARY = 37

 

C

EVAL

%SUBST(RECS:V_OFFSET+12) = BINARY_C

C

EXSR

CALC_VOFF

 

C\

 

 

 

C\ Call the API to add the exit program.

 

C\

 

 

 

C

CALLB

QUSAEPGM

 

C

PARM

 

EPNTNAME

C

PARM

'EXMPð1ðð'

FORMAT

C

PARM

1

BINARY

C

PARM

 

EPGM

C

PARM

 

EPGMDTA

C

PARM

 

EPGMDTA_SZ

C

PARM

 

VARREC

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

B-60System API Programming V4R1

Page 337 Page 339
Page 338
Image 338
IBM Version 4 manual Callb, Parm Epntname, Format Parm Varrec Qusec, Open Qprint Except Erraepnt Exsr Done Endif
Page 337 Page 339
Top Page Image Contents