MOVE 51 TO COMMAND-LENGTH.

CALL QCMDEXC USING COMMAND-STRING, COMMAND-LENGTH.

\

STOP RUN.

\

\End of Mainline

\Subroutine to handle errors returned in the error code

\parameter.

\

ERRCOD.

\

IF BYTES-AVAILABLE OF QUS-EC > ð .13/

\

\Process errors returned from the API.

MOVE 65 TO COMMAND-LENGTH, MOVE EXCEPTION-ID TO MSGIDD,

CALL QCMDEXC USING MESSAGE-TWO, COMMAND-LENGTH, STOP RUN.

Retrieving the Hold Parameter (Error Code Structure)—ILE RPG

Example

Refer to “Retrieving the Hold Parameter (Error Code Structure)—OPM RPG Example” on page 3-11 for the original example.

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

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

D\

D\

Program Name: JOBDAPI

 

D\

 

 

D\

Programming Language: ILE RPG

 

D\

 

 

D\

Description: This program retrieves

the HOLD value 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\

QWDRJOBD - Retrieve Job Description API

D\

 

 

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

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

D\

D\ Error Code parameter include

D\

D/COPY QSYSINC/QRPGLESRC,QUSEC .14/

D\

D\ Retrieve Job Description API Include

D\

 

 

D/COPY QSYSINC/QRPGLESRC,QWDRJOBD

 

D\

 

 

D\ Command string data structure

 

D\

 

 

DCMD_STRING

DS

 

D

26

INZ('SNDMSG MSG(''HOLD value is ')

D HOLD

 

B-14System API Programming V4R1

Page 292
Image 292
IBM Version 4 manual Call Qcmdexc Using MESSAGE-TWO, COMMAND-LENGTH, Stop RUN, Copy QSYSINC/QRPGLESRC,QWDRJOBD