MVSFORUMS.com

ypngan · Beginner Joined: 29 Nov 2004 Posts: 8 Topics: 2

Hi all,

I am working on testings of new quikjobs. How can I set in JCL so that I have a similar manner as load module libraries?

In other words, in load module, I can do something like:
//JOBLIB DD DISP=SHR,DSN=TEST.LOADLIB
// DD DISP=SHR,DSN=PROD.LOADLIB
so that I can find the testing load module from TEST.LOADLIB first, and then search it from PROD.LOADLIB

Can I do a similar thing on PGM=QUIKJOB like:
//SYSIN DD DISP=SHR,DSN=TEST.QJOBLIB
// DD DISP=SHR,DSN=PROD.QJOBLIB

Thanks for helping.

Franky

kolusu · Posted: Tue Nov 30, 2004 5:54 am Post subject:

ypngan,

Code your JCL as a proc and override it from the JCL

ex:

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

You can certainly concatenate multiple libraries to the SYSIN DD, but be aware that, when you concatenate, the contents of SYSIN will be the entire COMBINED contents of both files.

Also, doesn't Quikjob need a PDS for the SYSIN, with a specific member specified?

ypngan · Beginner Joined: 29 Nov 2004 Posts: 8 Topics: 2

ypngan · Beginner Joined: 29 Nov 2004 Posts: 8 Topics: 2

Hi superk,

I think you catch my meaning. I know that I cannot simply use 2 DD statements on SYSIN for this purpose, but I don't know how to do something similar to LOADLIB on QJOBLIB...

Franky

Bill Dennis · Posted: Tue Nov 30, 2004 9:09 am Post subject:

You could have step1 of the job do an IEBCOPY. First, copy TEST.QJOBLIB to a new, temporary PDS and then copy PROD.QJOBLIB into same PDS without replace option. Use this new PDS in your test step.

//ST1 EXEC PGM=IEBCOPY
-other DD cards-
//TEST DD DISP=SHR,DSN=TEST.QJOBLIB
//PROD DD DISP=SHR,DSN=PROD.QJOBLIB
//COMBINED DD DISP=(,PASS),DSN=TEMP.QJOBLIB,.....
//SYSIN DD *
COPY INDD=TEST,OUTDD=COMBINED
COPY INDD=PROD,OUTDD=COMBINED

Regards,
Bill

ypngan · Beginner Joined: 29 Nov 2004 Posts: 8 Topics: 2

Hi Bill,

Your suggestion works well except that since my PROD.QJOBLIB is very large, and I have several QJOB to run in the job, the total run time increases very much. I will use this method until I find a better one. Thanks a lot for your help.

Franky

semigeezer · Posted: Tue Nov 30, 2004 10:25 pm Post subject:

If I understand this correctly, you can use ISRSCAN to do the copy. It scans the dirctories looking for the 1st occurance of a member and copies that member to a 2nd data set (which is usually passed to another step). To see how it is used, generate any JCL from ISPF's batch compiler options (ISPF option 5 usually). It is pretty straightforward and this is exactly what it is for (again, if I understand the problem).

ypngan · Beginner Joined: 29 Nov 2004 Posts: 8 Topics: 2

Hi semigeezer,

oh... my ISPF doesn't have option 5...

Franky

kolusu · Posted: Wed Dec 01, 2004 6:34 am Post subject:

ypngan,

ypngan · Beginner Joined: 29 Nov 2004 Posts: 8 Topics: 2

how to check the ISPF version?

kolusu · Posted: Wed Dec 01, 2004 7:05 am Post subject:

ypngan,

On the ISPF main menu you will find this list (at the top of your ISPF screen)

ypngan · Beginner Joined: 29 Nov 2004 Posts: 8 Topics: 2

Mine is "Release . : ISPF 4.8"

Bill Dennis · Posted: Wed Dec 01, 2004 12:04 pm Post subject:

If you know which members you need, you can reduce the time by only copying those few. Change the cards like this and the members will be copied from first lib found (although you may get an error msg if not found in TEST):

//SYSIN DD *
COPY INDD=TEST,OUTDD=COMBINED
SELECT MEMBER=member1
SELECT MEMBER=member2
COPY INDD=PROD,OUTDD=COMBINED
SELECT MEMBER=member1
SELECT MEMBER=member2

Regards,
Bill