MVSFORUMS.com

Jeba

Hai all,

I have a sequential file which may have records from 1 to n. I want to split the file to n number of files each having single record. 'n' varies from 1 to 100. LRECL of the file is 32760. ( n will be always 1 - 100).

Suppose I have a file AAA.BBB.CCC with 3 records. I need AAA.BBB.CCC001 and
AAA.BBB.CCC002 and AAA.BBB.CCC003 with First and second and third records on it respectively.

Can any one help me to do this.
_________________
Thanks,
Jeba
(Known is a drop Unknown is an ocean)

Frank Yaeger · Posted: Tue Dec 03, 2002 5:20 pm Post subject:

Jeba,

If you can hardcode the output DD statements, then you can use a DFSORT job like this:

Jeba · Posted: Tue Dec 03, 2002 5:59 pm Post subject:

Frank,

Thanks for your input.
_________________
Thanks,
Jeba
(Known is a drop Unknown is an ocean)

Frank Yaeger · Posted: Tue Dec 03, 2002 6:47 pm Post subject:

Jeba,

Is that what you wanted to do?
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

Jeba · Posted: Tue Dec 03, 2002 10:52 pm Post subject:

Frank,

This is what I expected. But the only thing I don't like is (100 - n ) Empty files will be created. Is there any way to get n number of files alone ?
_________________
Thanks,
Jeba
(Known is a drop Unknown is an ocean)

kolusu · Posted: Wed Dec 04, 2002 5:20 am Post subject:

Jeba,

The following DFSORT/ICETOOL JCL will give you the results.If you have syncsort at your shop, then change the pgm name to synctool.A brief explanation of the job.Since you wanted only output files corresponding to the no: of records in the file, we create dynamic control cards.

Step010 is create the control cards.we use inrec to have just the seqnum and we sort descending on the seqnum, so that the last record will be first.we create 4 temp files.

File T1 will be as follows:

Jeba · Posted: Wed Dec 04, 2002 10:53 am Post subject:

Kolusu,

Thanks. It worked. This is what exactly I expected.
_________________
Thanks,
Jeba
(Known is a drop Unknown is an ocean)

moyeenkhan · Beginner Joined: 04 Dec 2002 Posts: 64 Topics: 21

The easiest way to do this by a rexx / clist program. Let me know the outfile naming standards. I will post the rexx program

Thanks

jay · Beginner Joined: 03 Dec 2002 Posts: 3 Topics: 1

Hi moyeenkhan,

It would be great if you post your REXX code that will achieve this.
It would be really helpful to all.

Thanx
Laughing

moyeenkhan · Beginner Joined: 04 Dec 2002 Posts: 64 Topics: 21

Here is the code

rajvasan · Beginner Joined: 10 Dec 2002 Posts: 14 Topics: 4

Kolusu,
I have a question. Why do we have to sort it in Descending order.

Thanks,
Rajvasan

Frank Yaeger · Posted: Sun Jan 05, 2003 10:40 am Post subject:

Rajvasan,

In STEP010, Kolusu is creating an OUTFIL statement like this:

kolusu · Posted: Sun Jan 05, 2003 10:45 am Post subject:

Rajvasan,

We need to sort in the descending order so that we will know the max : of files to be created.Let us you have 25 records in your file.

The sysin cards are as follows

Frank Yaeger · Posted: Sun Jan 05, 2003 10:58 am Post subject:

Kolusu,

I noticed that the job as you have coded it won't work for two records. You could fix that by changing the FNAMES=T3 statement to:

kolusu · Posted: Sun Jan 05, 2003 11:20 am Post subject:

Thanks Frank. I have changed the control cards for T2. As always there is a catch for every solution like in this case having just 1 record in the input file.

Kolusu