RE: JOBD...change initial Library List ( INLLIBL )

[Pete Hall <pbhall@xxxxxxxxxxxxx>]

At 07:51 09/26/2002, Raj wrote:
> I need to have 25 different CHGJOBD command based on the above probabilty.
>
> I was wondering if there a way I can avoid 25 different CHGJOBD command.
Raj,

Something that might help:

While you may need to code a list for the CHGJOBD command with 25
variables, you can construct the command as a string (char) and execute it
with a call to QCMDEXC similar to this:

 PGM PARM(&JOBD)
 DCL VAR(&CMD) TYPE(CHAR) LEN(2000)
 CHGVAR VAR(&CMD) VALUE('CHGJOBD JOBD(' *CAT &JOBD *TCAT ') INLLIBL(LIBA
LIBB LIBC LIBD)')
 CALL QCMDEXC (&CMD 2000)

That might be off a little - I'm not writing much CL these days, but
hopefully you'll get the idea.

You can also execute the program that does this by calling it with a PDM
user option. It will save you from writing the code to get a list of the
job descriptions.

Create a user option to execute CALL PGM(MYFIXPGM) PARM(&L/&N)

Then just select all the JOBDs you need to change with your user option
code (remember F13 selects the entire list), hit the enter key and go do
something fun for a change. (Try just one first though.)

You know, you can do that kind of down and dirty stuff with xnix too. I
just haven't quite mastered how to do it yet...

rgdz

Pete Hall
pbhall@ameritech.net
http://www.ameritech.net/users/pbhall/index.html