Filter
Top Products
Iᑍ
Iᑍ Retrieve Job Description API Include
Iᑍ
I/COPY QSYSINC/QRPGSRC,QWDRJOBD2
Iᑍ
Iᑍ Command String Data Structure
Iᑍ
ICMDSTR DS
I I 'SNDMSG MSG(''HOLD - 1 26 CMD1
I 'value is '
I 27 36 HOLD
I I ''') TOUSR(QPGMR)' 37 51 CMD2
Iᑍ
Iᑍ Miscellaneous Data Structure
Iᑍ
I DS
Iᑍ 3 4
I I 39 B 1 4RCVLEN
I I 'JOBD1' 5 12 FORMAT
Iᑍ 5
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 JOBDL 1
Cᑍ
Cᑍ Move the two parameters passed into LFNAM.
Cᑍ
C JOBD CAT JOBDL LFNAM 2 9
Cᑍ Error code bytes provided is set to
Cᑍ
C Z-ADD QUSBNB 6
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'
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ᑍ
C MOVELQWDBHN HOLD
Cᑍ
Cᑍ Let's tell everyone what the hold value was for this jobd.
Cᑍ
C Z-ADD51 LENSTR 155
C CALL 'QCMDEXC'
C PARM CMDSTR
C PARM LENSTR
Cᑍ
C SETON LR
C RETRN
Cᑍ
Cᑍ End of MAINLINE
Cᑍ
The program declares the variables to be used. The QWDBH variable is length
390 as shown by 3 on page 3-7.
In the example, the program places a value of JOBD0100 in the format variable. A
literal could have been used instead for those languages that support a literal on a
call 5. (For program examples in other languages, see “Original Program Model
(OPM) APIs—Examples” on page B-2.) The program generates the qualified name
of the job description (JOBD) by concatenating the simple name and the library
Chapter 3. Common Information across APIs—Basic (OPM) Example 3-7