D\ QUSEPNð5

OVERLAY(QUSARRAYð2:ðððð5)

D\ QUSFN13

8

OVERLAY(QUSARRAYð2:ððð25)

D\ QUSREPð4

1

OVERLAY(QUSARRAYð2:ððð33)

D\ QUSCEð2

1

OVERLAY(QUSARRAYð2:ððð34)

D\ QUSERVED11

2

OVERLAY(QUSARRAYð2:ððð35)

D\ QUSPGMNð5

9B ð OVERLAY(QUSARRAYð2:ððð37)

D\ QUSPGMNð6

OVERLAY(QUSARRAYð2:ððð41)

D\ QUSPGMLð2

OVERLAY(QUSARRAYð2:ððð51)

D\ QUSDIð2

1

OVERLAY(QUSARRAYð2:ððð61)

D\ QUSMFILð1

OVERLAY(QUSARRAYð2:ððð62)

D\ QUSMFILLðð

OVERLAY(QUSARRAYð2:ððð72)

D\ QUSMIð1

7

OVERLAY(QUSARRAYð2:ððð82)

D\ QUSTDð2

OVERLAY(QUSARRAYð2:ððð89)

D\ QUSRSV2ð2

2

OVERLAY(QUSARRAYð2:ðð139)

D\ QUSDCð2

9B ð OVERLAY(QUSARRAYð2:ðð141)

D\ QUSOPDðð

9B ð OVERLAY(QUSARRAYð2:ðð145)

D\ QUSLPDðð

9B ð OVERLAY(QUSARRAYð2:ðð149)

D\ QUSERVED11

1

OVERLAY(QUSARRAYð2:ðð153)

D\ QUSPDð2

1

 

D\ QUSDATAð5

1

OVERLAY(QUSARRAYð2:ðððð1)

D\

 

D\

Varying length

D\

 

D\ Error Code parameter include. As this sample program

D\ uses /COPY to include the error code structure, only the f￿irst

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

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

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

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

D\ define additional storage for the exception data.

D\

D/COPY QSYSINC/QRPGLESRC,QUSEC

D\

D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

D\Prototype for calling Retrieve Exit Information

D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

D QUSREI

C

 

'QusRetrieveExitInformation'

D\

 

 

 

D\ Miscellaneous data

 

 

D\

 

 

 

DEPNTNAME

S

INZ('EXAMPLE_EXIT_POINT')

DEPGM_NBR

S

9B

ð INZ(-1)

DRCVVAR

S

1

DIM(35ðð)

DRCVVAR_SZ

S

9B

ð INZ(%SIZE(RCVVAR:\ALL))

DBASSPCPTR

S

\

 

DINFSPCPTR

S

\

 

DCALL_PGM

S

21

 

C\

 

 

 

C\ Beginning of mainline

C\

C\ Retrieve the exit point information first. If the current

C\ number of exit programs is not zero, retrieve the exit

C\ programs. It is not necessary to call for the exit point

C\ information to determine if the exit point has any exit

C\ programs. It is done here for illustrative purposes only.

C\ You can make one call to the API for the exit program

C\ information and check the number of exit program entrie￿s

C\ returned field to see if there are any exit programs to c￿all.

B-82System API Programming V4R1

Page 360
Image 360
IBM Version 4 manual QUSFN13, QUSERVED11, Qusrei, Depntname Inzexampleexitpoint Depgmnbr, Drcvvarsz