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 f

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

 

C

 

 

 

PARM

 

 

 

JOBD_LIB

 

C\

 

 

 

 

 

 

 

 

 

 

C\

Move the two parameters passed into LFNAM

 

 

 

C\

 

 

 

 

 

 

 

 

 

 

C

JOBD

 

 

CAT

JOBD_LIB

 

LFNAM

 

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

BLanguages-21

Page 299
Image 299
IBM Version 4 manual Refer To Accessing, Attribute-OPM RPG Example On page 3-17 f Original