MVSFORUMS.com

[Bithead]

I am trying to set up a compile proc that will pull the source from either a PDS containing modified code or from the default library. It will only exist in the modified code library if we have changed it. The SYSIN for the compile does not allow for concatenation so my thinking is that I use a utility to copy the member to a temporary dataset.

I have tried IEBCOPY but it does not allow for concatenation either.

What utility should I use?

[kolusu]

Bithead,

If I understand your problem correctly , all you want is pass the new souce code (if it is modified) or else use the existing code.

I think an override from the JCL will quite enough. To explain this clearly let us take you have a COMPILE proc as shown below.Here PDS.SOURCE is your defualt pds which contains original source code.

[Bithead]

Kolusu,

You are correct in your assumption. The problem is that there are many programs and I need to be assured that I always pick the modified code if it exists so I would prefer not to have to change all the compile jobs.

[kolusu]

Bithead,

Here is an approach you can try so that your compile will always pick the modified source code if it exists.A brief explanation of the job.

Step10 will extract all the member names from the default source lib
step20 will extract all the member names from the modified source lib.

We take these 2 inputs and porcess thru DFSORT/ICETOOL( change the pgm name to SYNCTOOL if you have syncsort at your shop.

The first copy operator takes in the member name file of default source lib and strip off just the member names( the LISTDSI function adds some grabage along with the member names) and add a constant of 01 .

The second copy operator takes in the member name file of modified source lib and strip off just the member names( the LISTDSI function adds some grabage along with the member names) and add a constant of 01 .

Now the sort operator sorts on the membername and sums on the constants,so any matching members will have a sum of 2. For these records we create compile cards as follows
FILE OUT1:

[Premkumar]

Bithead,

This IEBCOPY job should help you.

[Bill Dennis]

If you are generating a job from an ISPF skel and can insert control cards with variable data, you could copy only the desired member rather than the whole PDS.

[semigeezer]

See ISRSCAN. It is a standard part of ISPF, used in compiler JCL generation (options 5?) and this is exactly what it is intended for.

[Bithead]

Hi All. I have decided to go with Premkumar's solution. This allows me to compile or assemble groups of or individual programs and pick up either the modified code or the default code. When the modified code is fully tested, it can be move to the default code library without impacting the JCL. Thnaks to all who answered.

[semigeezer]

That seems like quite a bit of overhead having to keep 3 potentially very large data sets. Wouldn't it be easier to just copy the required member to a sequential data set for SYSIN and keep the concatenations on the SYSLIB DD?

[Bithead]

This is in effect what I am doing. I have chaged the compile Proc so that I can run any compile against it without having to change anything. The maintenance library is usually empty except for vendor fixes which I need to apply every month. The 3rd library is a temporary dataset.