IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
D QWDORD 369 372B 
Dᑍ Offset Request Data
D QWDLRD 373 376B 
Dᑍ Length Request Data
D QWDJMQMS 377 38B 
Dᑍ Job Message Queue Max Size
D QWDJMQFA 381 39
Dᑍ Job Msg Queue Full Action
DᑍQWDRSV2 391 391
Dᑍ
Dᑍ Varying length
DᑍQWDILL 392 42 DIM(1)
Dᑍ
Dᑍ Varying length
DᑍQWDRD 43 43
Dᑍ
Dᑍ Varying length
Dᑍ
Dᑍ Command string data structure
Dᑍ
DCMD_STRING DS
D 22 INZ('SNDMSG MSG(''LIBRARY - ')
D LIBRARY 1
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))
Cᑍ
Cᑍ Beginning of mainline
Cᑍ
Cᑍ Two parameters are being passed into this program
Cᑍ
C ᑍENTRY PLIST
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
Cᑍ
Cᑍ Error Code Bytes Provided is set to 16
Cᑍ
C EVAL QUSBPRV = %SIZE(QUSEC)
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ᑍ
B-32 System API Programming V4R1
 previous next