× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.