D

 

 

 

15

INZ(''') TOUSR(QPGMR)')

DCMD_STR2

DS

 

 

 

 

 

D

 

 

 

43

INZ('SNDMSG MSG(''Program failed -

D

 

 

 

 

with message ID ')

 

D MSG_ID

 

 

7

 

 

 

D

 

 

 

15

INZ(''') TOUSR(QPGMR)')

D\

 

 

 

 

 

 

 

D\ Miscellaneous data structure

 

 

 

D\

 

 

 

 

 

 

 

DRCVLEN

S

 

9B ð INZ(%SIZE(QWDDð1ðð))

DFORMAT

S

 

8

INZ('JOBDð1ðð')

 

DLENSTR

S

 

15

5 INZ(%SIZE(CMD_STRING))

DLENSTR2

S

 

15

5 INZ(%SIZE(CMD_STR2))

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) .15/

C\

 

 

 

 

 

 

 

C\ Call the API.

 

 

 

 

 

 

C\

 

 

 

 

 

 

 

C

 

 

CALL

QWDRJOBD

 

 

C

 

 

PARM

 

 

QWDDð1ðð

 

C

 

 

PARM

 

 

RCVLEN

 

C

 

 

PARM

 

 

FORMAT

 

C

 

 

PARM

 

 

LFNAM

 

C

 

 

PARM

 

 

QUSEC

 

C\

 

 

 

 

 

 

 

C\ Test for an error on the API call

 

 

 

C\

 

 

 

 

 

 

 

C

 

 

IF

QUSBAVL > ð

.13/

 

C\

 

 

 

 

 

 

 

C\ If there was an error, exit to ERROR subroutine

 

C\

 

 

 

 

 

 

 

C

 

 

EXSR

ERROR

 

 

 

C\

 

 

 

 

 

 

 

C\ Else, process the HOLD value

 

 

 

C\

 

 

 

 

 

 

 

C

 

 

ELSE

 

 

 

 

C

 

 

MOVEL

QWDHJQ

 

HOLD

 

C\

 

 

 

 

 

 

 

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

C\

 

 

 

 

 

 

 

C

 

 

CALL

'QCMDEXC'

 

 

C

 

 

PARM

 

 

CMD_STRING

 

C

 

 

PARM

 

 

LENSTR

 

C

 

 

END

 

 

 

 

 

 

 

Appendix B. Original

Examples in

Additional BLanguages-15

Page 293
Image 293
IBM Version 4 manual DCMDSTR2, Msgid INZ Tousrqpgmr, Dlenstr INZ%SIZECMDSTRING DLENSTR2 INZ%SIZECMDSTR2, Call Qwdrjobd Parm