Re: QDBRJBRL retrieve job record locks - example program

I posted the code here:
http://code.midrange.com/f721093a5d.html

I am not seeing anything in the errDS
d errDS ds
d errPrv 10u 0 Inz(%Size(errDS))
d errAvl 10u 0
d errMSGID 7a
d 1a Inz(x'00')
d errDta 240a
On 1/23/2013 1:19 AM, Peter Dow wrote:

Note that %len of a non-varying character field is the same as %size of
the same field.

However, I think your problem might be in your definition of errDS which
I don't see. The api could be getting an error and your program might be
ignoring it.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx>/


On 1/22/2013 2:33 PM, Gqcy wrote:

I am not getting this API to return data...
It doesn't appear to be failing (I can get it to fail with a bad job
name or something...)

here is what I am using:
d rcvJLcks pr ExtPgm('QDBRJBRL')
d 32766a
d 10i 0
d 8a
d 26a
d 256a


rcvJLcks( rcvrVar2
: rcvrVarL2
: fmt3
: jobID2
: errDS
);


d rcvrVar2 s 32766a
d rcvrVarL2 s 10i 0 Inz(%Len(rcvrVar2))
d fmt3 s 8a Inz('JOBL0100')
d hdr2@ s * Inz(%Addr(rcvrVar2))
d det2@ s *

d jobID2 ds
d JobName@ 10a
d JobUser@ 10a
d JobNmbr@ 6a

d ds Based(hdr2@)
d lcksAval 1 4b 0
d lcksRtnd 5 8b 0

d ds Based(det2@)
d csFileNm 1 10a
d csLibrNm 11 20a
d csMembNm 21 30a
d csLckRRN 31 34b 0
d csLckSts 35 35a