IBM Version 4 manual Perform NUMBER-LIBS-IN-LIB-LIST Times

ð1 X PIC S9(9) BINARY.

\

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

\

MOVE 1ðð TO BYTES-PROVIDED.

\

\Receiver Length Set to 1ððð.

MOVE 1ððð TO RECEIVER-LENGTH.

\Call the QWDRJOBD API.

\

CALL QWDRJOBD USING RECEIVER-VARIABLE, RECEIVER-LENGTH,

FORMAT-NAME, JOBD-AND-LIB-NAME, QUS-EC.

\

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

PERFORM ERRCOD.

\Add one to the Initial library list offset because COBOL ￿is a

\Base 1 language.

\

MOVE OFFSET-INITIAL-LIB-LIST TO X. ADD 1 TO X.

MOVE 47 TO COMMAND-LENGTH.

\

\Let's tell everyone what the library value was for this jo￿b.

PERFORM NUMBER-LIBS-IN-LIB-LIST TIMES

MOVE RECEIVER-VARIABLE(X:1ð) TO LIB,

CALL QCMDEXC USING COMMAND-STRING, COMMAND-LENGTH, ADD 11 TO X,

PERFORM RECLEN, END-PERFORM.

B-28System API Programming V4R1