×
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.
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
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.
midrange.com
