Filter
Top Products
I I 'SNDMSG MSG(''No such- 1 35 MSG3A
I ' ᑍJOBD exists'') '
I I 'TOUSR(QPGMR)' 36 47 MSG3B
Iᑍ
Iᑍ Miscellaneous Data Structure
Iᑍ
I DS
I I 39 B 1 4RCVLEN
I I 'JOBD1' 5 12 FORMAT
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 JOBDL 1
Cᑍ
Cᑍ Move the two parameters passed into LFNAM.
Cᑍ
C JOBD CAT JOBDL LFNAM 2
Cᑍ Error code bytes provided is set to
Cᑍ
C Z-ADD QUSBNB 11
Cᑍ
Cᑍ Instead of specifying 'QWCRJOBD', I could have used the
Cᑍ constant QWDBGB that was defined in the QWDRJOBD include.
Cᑍ
C CALL 'QWDRJOBD' 1 1
C PARM QWDBH Receiver Var.
C PARM RCVLEN Length RCVVAR
C PARM FORMAT Format Name
C PARM LFNAM Qual. Job Desc
C PARM QUSBN Error Code
C 1 EXSR ERROR Error Subroutine
Cᑍ
C N1 MOVELQWDBHN HOLD
Cᑍ
Cᑍ Let's tell everyone what the hold value was for this job.
Cᑍ
C N1 Z-ADD51 LENSTR 155
C N1 CALL 'QCMDEXC'
C PARM CMDSTR
C PARM LENSTR
Cᑍ
C SETON LR
C RETRN
Cᑍ
Cᑍ End of MAINLINE
Cᑍ
Cᑍ Subroutine to handle errors received on the CALL
Cᑍ
C ERROR BEGSR
C MSGIDD IFEQ 'CPF981'
Cᑍ
Cᑍ Process errors returned from the API.
Cᑍ
C Z-ADD47 LENSTR 155
C CALL 'QCMDEXC'
C PARM MSG3
C PARM LENSTR
C END
C ENDSR
If the CPF9801 exception occurs, your program sends a message to the QPGMR
message queue as shown in the following display:
3-10 System API Programming V4R1