Filter
Top Products
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(QWDD1))
DFORMAT S 8 INZ('JOBD1')
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