ð1 MESSAGE-TWO.

ð5 MSG2A PIC X(43)

VALUE 'SNDMSG MSG(''Program failed with message ID'. ð5 MSGIDD PIC X(7).

ð5 MSG2B PIC X(15) VALUE ''') TOUSR(QPGMR)'.

\

ð1 COMMAND-LENGTH PIC S9(1ð)V99999 COMP-3. ð1 RECEIVER-LENGTH PIC S9(9) COMP-4.

ð1 FORMAT-NAME PIC X(8) VALUE 'JOBDð1ðð'. ð1 QCMDEXC PIC X(1ð) VALUE 'QCMDEXC'.

\

\Job Description and Library Name Structure

ð1 JOBD-AND-LIB-NAME.

ð5 JOB-DESC PIC X(1ð).

ð5 JOB-DESC-LIB PIC X(1ð).

LINKAGE SECTION.

\Two Parameters are being passed into this program.

ð1 JOBD PIC X(1ð). ð1 JOBDL PIC X(1ð).

PROCEDURE DIVISION USING JOBD, JOBDL. MAIN-LINE.

\Beginning of Mainline

\

\Move the two parameters passed into JOB-DESC and JOB-DESC￿-LIB.

MOVE JOBD TO JOB-DESC. MOVE JOBDL TO JOB-DESC-LIB.

\Error Code Parameter is set to 16.

\

MOVE 16 TO BYTES-PROVIDED. .15/

\

\Receiver Length Set to 39ð.

MOVE 39ð TO RECEIVER-LENGTH.

\Call the QWDRJOBD API.

\

CALL QWDRJOBD USING QWD-JOBDð1ðð, RECEIVER-LENGTH, FORMAT-NAME, JOBD-AND-LIB-NAME, QUS-EC.

\

\See if any errors were returned in the error code paramet￿er.

PERFORM ERRCOD.

\Move HOLD-JOB-QUEUE to HOLD so that we can display the valu￿e using

\the command string.

\

MOVE HOLD-JOB-QUEUE TO HOLD.

\

\Let's tell everyone what the hold value was for this job.

Appendix B. Original Examples in Additional BLanguages-13

Page 291
Image 291
IBM Version 4 manual Procedure Division Using JOBD, JOBDL. MAIN-LINE, Move 16 to BYTES-PROVIDED, Perform Errcod