IBM Version 4 manual List-ILE RPG, Reclen

\

STOP RUN.

\

\End of Mainline

\Subroutine to handle errors returned in the error code

\parameter.

\

ERRCOD.

\

IF BYTES-AVAILABLE OF QUS-EC > ð

\

\Process errors returned from the API.

STOP RUN.

\Subroutine to check to see if there is enough room in the

\receiver variable for the next library in the list.

\

RECLEN.

\

IF (X + 1ð) >= RECEIVER-LENGTH STOP RUN.

Accessing a Field Value	(Initial Library	List)—ILE RPG	Example
Refer	to “Accessing	a Field Value	(Initial Library List)—OPM RPG Exampl

page 3-19 for the original example.

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

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

D\
D\	Program Name: JOBDAPI
D\
D\	Programming Language: ILE RPG
D\
D\	Description: This program retrieves the library list from
D\	a job description. It expects errors to be
D\	returned via the error code parameter.
D\
D\	Header Files Included: QUSEC - Error Code Parameter
D\
D\	Header Files Modified: QWDRJOBD - Retrieve Job Descriptio￿n API

D\

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

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

D\

D\ Error Code parameter include

D\

D/COPY QSYSINC/QRPGLESRC,QUSEC

D\

D\ The following QWDRJOBD include from QSYSINC is copied i￿nto

D\ this program so that it can be declared as 1ððð bytes in

D\ size. This size should accommodate the variable length Library￿

D\ List array.

D\

Appendix B. Original Examples in Additional BLanguages-29