IBM Version 4 Universal Remote User Manual


 
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(QWDD1))
DFORMAT S 8 INZ('JOBD1') 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 QWDD1
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