IBM Version 4 manual Call Qcmdexc Using MESSAGE-TWO, COMMAND-LENGTH, Stop RUN

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	1ð

B-14System API Programming V4R1