WRITE LIST-LINE FROM MESSAGE-TEXT.
STOP RUN.
Accessing the HOLD Attribute—ILE RPG Example
Refer to “Accessing the HOLD Attribute—OPM RPG Example” on page 3-17 for
the original example.
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\
F\ Program Name: JOBDAPI
F\
F\ Programming Language: ILE RPG
F\
F\ Description: This program retrieves the HOLD value from
F\ a job description and then prints the value.
F\ It expects errors to be returned via the
F\ error code parameter.
F\
F\ Header Files Included: QUSEC - Error Code Parameter
F\ QWDRJOBD - Retrieve Job Description API
F\
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\
FQPRINT O F 132 PRINTER OFLIND(\INOF)
D\
D\ Error Code parameter include
D\
D/COPY QSYSINC/QRPGLESRC,QUSEC
D\
D\ Retrieve Job Description API Include
D\
D/COPY QSYSINC/QRPGLESRC,QWDRJOBD
D\
D\ Miscellaneous data structure
D\
DRCVLEN S 9B ð INZ(%SIZE(QWDDð1ðð))
DFORMAT S 8 INZ('JOBDð1ðð')
C\
C\ Beginning of mainline
C\
C\ Two parameters are being passed into this program
C\
C \ENTRY PLIST
C PARM JOBD 1ð
C PARM JOBD_LIB 1ð
C\
C\ Move the two parameters passed into LFNAM
C\
C JOBD CAT JOBD_LIB LFNAM 2ð
C\
C\ Error Code Bytes Provided is set to 16
C\
C EVAL QUSBPRV = %SIZE(QUSEC)
C\
C\ Call the API.
Appendix B. Original Examples in Additional Languages B-21