Dᑍ
Dᑍ Command string data structure
Dᑍ
DCMD_STRING DS
D 26 INZ('SNDMSG MSG(''HOLD value is ')
D HOLD 1
D 15 INZ(''') TOUSR(QPGMR)')
Dᑍ
Dᑍ Miscellaneous data structure
Dᑍ 4 2 3
DRCVLEN S 9B INZ(%SIZE(QWDD1))
DFORMAT S 8 INZ('JOBD1') 5
DLENSTR S 15 5 INZ(%SIZE(CMD_STRING))
Cᑍ
Cᑍ Beginning of mainline
Cᑍ
Cᑍ Two parameters are being passed into this program
Cᑍ
C ᑍENTRY PLIST 8
C PARM JOBD 1
C PARM JOBD_LIB 1
Cᑍ
Cᑍ Move the two parameters passed into LFNAM
Cᑍ
C JOBD CAT JOBD_LIB LFNAM 2 9
Cᑍ
Cᑍ Error Code Bytes Provided is set to
Cᑍ
C Z-ADD QUSBPRV 6
Cᑍ
Cᑍ Call the API.
Cᑍ
C CALL QWDRJOBD
C PARM QWDD1
C PARM RCVLEN
C PARM FORMAT
C PARM LFNAM
C PARM QUSEC
Cᑍ
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ᑍ
C EVAL ᑍINLR = '1'
C RETURN
Cᑍ
Cᑍ End of MAINLINE
Cᑍ
Appendix B. Original Examples in Additional Languages B-7