Re: QDBRJBRL retrieve job record locks - example program

[Gqcy <gmufasa01@xxxxxxxxx>]

It does appear to be working, sort of,
When I put this program in a loop over QINTER, I get list
of very few interactive sessions with locks
Yes, that is a very good thing, but I am suspicious
that there are many more locks than I am seeing...






On 1/23/2013 8:51 AM, Peter Dow wrote:
> You're providing a place for the api to put an error message, but your
> code doesn't do anything if there is an error.
>
> A quick test would be to set errPrv = *zero and let the system show any
> errors.
>
> On 1/23/2013 6:29 AM, Gqcy wrote:
> > 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