IBM Mainframe Forum

Hi Forum,

I am a newbie here but not to MF. I keep coming here for suggestions and tricks. But this is my first post.

I have a unique usecase where I have to prepare the SYSIN card for an IEBCOPY job. I create two temp files - one for the 'copy operation statement' and the other one for the 'select member' statements. Below are the steps.

//STEP010 EXEC PGM=SORT
//SORTIN DD *
COPYGRP INDD=IN0007,OUTDD=OUT0007
//SORTOUT DD DISP=(,PASS),DSN=&&CPYSTMT
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
//*
//STEP020 EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=XXX.XXX.XXX
//OXXX DD DISP=(,PASS),DSN=&&CPYLST
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=OXXX,
INCLUDE=(15,4,CH,EQ,C'XXXX'),
OUTREC=(1:5X,6:C'S M=((YYYY,',17:1,8,25:C'))',27:54X)

I have to merge these two files to prepare the sysin file that should look like below

COPYGRP INDD=IN0007,OUTDD=OUT0007
S M=((YYYY,AAAAAA))
COPYGRP INDD=IN0007,OUTDD=OUT0007
S M=((YYYY,BBBBBB))

I do not know how to achieve this as the first file has only one record and second file has multiple(it will vary) records. I know how to merge records using SEQNUM technique but that'll give a useful output only if the first file has equal no of records as that of the second one. And simple merge won't help either.

Can someone help please?

Side note : For a specific reason I have to copy the content of YYYY member from one dataset to another and rename it to a valid member name. IEBCOPY says that there should be an operation for every copy & rename and that's the reason I need the COPYGRP operation for all members.

Apologies if it seems to be a naïve ask.

1. Learn how to use the code tags in your code samples.

2. Try to understand the SORT terminology, to distinguish between MERGE, JOIN, and CONCATENATE operations. They are ABSOLUTELY different. What exactly do you need??

3. Prior to presenting the code to perform an operation you don’t know about, please, present examples of your data, with a minor explanation of your goal:
- input data
- desired conversion rules
- desired output data

Hi Sergeyken,

Thanks for your reponse.

Basically I have to JOIN these two files

Input file 1 has only one record :



Input file 2 has 5126 records:



My output file should have:



Tia
kbabu

This is neither JOIN, nor MERGE, nor CONCATENATE. I even can hardly understand the goal: what the benefit of this result might be?
So far, I don’t care about your goal...

You can combine your lines, for instance in this manner. There is absolutely no reason to complicate the task when one of your “files” is just a constant string.

I might be missing something here.
With IEBCOPY you can have several select statements for a single COPY statement, like:

So as long as you copy between the same 2 libraries I cannot see the need for more then the first COPYGRP.

So your job could look something like this:

Since the original question about SORT has been transferred into the question about COPY utility, then I may suggest the most straightforward approach:

willy jensen wrote:I might be missing something here.
With IEBCOPY you can have several select statements for a single COPY statement, like:

Select all

COPYGRP INDD=IN0007,OUTDD=OUT0007
  S M=((YYYY,AAAAAA))            
  S M=((YYYY,BBBBBB))

So as long as you copy between the same 2 libraries I cannot see the need for more then the first COPYGRP.

Hi Willy, Thanks for your inputs. I tried this already but IEBCOPY doesn't allow this construct. Please see the error below

sergeyken wrote:This is neither JOIN, nor MERGE, nor CONCATENATE. I even can hardly understand the goal: what the benefit of this result might be?
So far, I don’t care about your goal...

You can combine your lines, for instance in this manner. There is absolutely no reason to complicate the task when one of your “files” is just a constant string.

Select all

//COMBO EXEC PGM=SORT
. . . . .
//SORTIN DD *
S M=((YYYY,AAAAAA ))
S M=((YYYY,BBBBBB ))
.....................
.....................
.....................
//SYSIN DD *
 SORT FIELDS=COPY
 OUTFIL BUILD=(C’ COPYGRP INDD=IN0007,OUTDD=OUT0007’,
              /,1,80)
 END

Yes sergeyken. Your solution worked like a charm. Thanks a lot for your time.