Filter
Top Products
ᑍ
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 Example” on
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 Description 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 into
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 Languages B-29