MIDRANGE dot COM Mailing List Archive

Re: QDBRJBRL retrieve job record locks - example program


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

Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2015 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact