Comment on: Retrieving Library Lists in a Job Description
Posted: 11 years 3 months 22 days 12 hours 10 minutes ago
Posted: 11 years 3 months 22 days 12 hours 10 minutes ago
I thought I had something on this in one of my bags of tricks, but I don't. Shouldn't be too difficult to do it yourself, however.
Comment on: Retrieving Library Lists in a Job Description
Posted: 11 years 3 months 18 days 3 hours 31 minutes ago
Posted: 11 years 3 months 18 days 3 hours 31 minutes ago
I use the QWdrJobD API (JOBD0100 Format) to retrieve the initial library list for job de!--script--ions.
Comment on: Retrieving Library Lists in a Job Description
Posted: 11 years 3 months 16 days 15 hours 14 minutes ago
Posted: 11 years 3 months 16 days 15 hours 14 minutes ago
TFisher
Would you be able to post an example on how to use this API (QwdrjobD).
Thanks
Jeff
Comment on: Retrieving Library Lists in a Job Description
Posted: 11 years 3 months 16 days 13 hours 28 minutes ago
Posted: 11 years 3 months 16 days 13 hours 28 minutes ago
If you have TAATOOLS, this might give you what you need:
http://www.taatool.com//document/L_dspjobdlib.htm
Comment on: Retrieving Library Lists in a Job Description
Posted: 11 years 3 months 16 days 12 hours 20 minutes ago
Edited: Wed, 02 Jan, 2013 at 11:38:48 (4124 days ago)
Posted: 11 years 3 months 16 days 12 hours 20 minutes ago
Edited: Wed, 02 Jan, 2013 at 11:38:48 (4124 days ago)
This isn't beautiful, but it does exactly what you want.
H DFTACTGRP(*NO) OPTION(*NODEBUGIO:*SRCSTMT) ACTGRP(*NEW)
H EXTBININT(*YES)
H BNDDIR('COZTOOLS/COZTOOLS')
/include cozTools/qcpysrc,qusec
/include cozTools/qcpysrc,apiProtos
/include cozTools/qcpysrc,joblog
/include qsysinc/qrpglesrc,qwdrjobd
D apiData S 5000A
D pAPIData S * Inz(%Addr(apiData))
D jd DS likeDS(QWDD0100)
D based(pAPIData)
D libl S 11A DIM(255)
D based(pLibl)
D apiError DS likeDS(QUSEC_T) Inz
D lib S 11A
D i S 10I 0
D entryPList PR extPgm('DSPJDLIBL')
D jobd 20A Const
D entryPList PI
D jobd 20A Const
C MOVE *ON *INLR
/free
// NOTE: I had to use QWDRJOBD2 prototype from COZTOOLS since
// IBM doesn't know how to name data Structures for RPG
// in the QSYSINC library.
qwdrjobd2(apiData : %len(apiData) : 'JOBD0100' : jobD : apiError);
if (apiError.QUSBAVL > 0); // Error?
// failed, so return to caller
return;
endif;
joblog('Job De!--script--ion . . . . . . . %s': jd.qwdjdn);
joblog(' Library . . . . . . . . . . %s': jd.qwdjdln);
joblog('Test de!--script--ion . . . . . . . %s': jd.qwdtd);
joblog('Job Queue . . . . . . . . . . %s': jd.qwdjqn00);
joblog(' Library . . . . . . . . . . %s': jd.qwdjqln00);
joblog('Output Queue . . . . . . . . . %s': jd.qwdOQN);
joblog(' Library . . . . . . . . . . %s': jd.qwdOQLN);
joblog('Log CL Programs . . . . . . . %s': jd.qwdLCLP);
joblog('Number of LIBL entries . . . . %s': %char(jd.qwdnlill));
pLibl = %addr(apiData) + jd.qwdoill;
for i = 1 to jd.qwdnlill;
if (i = 1);
joblog('Library List Entries . . . . . %s': libl(i));
else;
joblog(' %s': libl(i));
endif;
endfor;
/end-free
Comment on: Retrieving Library Lists in a Job Description
Posted: 11 years 3 months 16 days 11 hours 38 minutes ago
Posted: 11 years 3 months 16 days 11 hours 38 minutes ago
Beat me by a few minutes, Bob. Jeff, do you understand Bob's code? It's fairly straightforward pointer arithmetic.