MVSFORUMS.com

stalin · Beginner Joined: 22 Aug 2005 Posts: 23 Topics: 4

Hi ,

I have a input dataset of LRECL=80, FB, 800 which contains 469268 record.
i want first 2700 record in the OUTPUTDATASET(MEM1) the next 2700 records in OUTOUTDATASET(MEM2) and so till the end of all the 469268 records.

it takes almost 544 members of a PDS, if iam right.

could you please guide me in how to do this.

Thanks

B.Stalin

kolusu · Posted: Mon Nov 14, 2005 7:34 am Post subject:

stalin,

Try this

Phantom · Posted: Tue Nov 15, 2005 1:03 am Post subject:

Stalin,

On the same lines as Kolusu, here is one another way of doing the same thing.

Frank Yaeger · Posted: Tue Nov 15, 2005 11:58 am Post subject:

Note that with SPLITBY=2700, the records will rotate back to the first member if there are any records left over. For example, if you had two members and 5405 records, records 1-2700 would go to member 1, records 2701-5400 would go to member 2, and records 5401-5405 would go back to member 1. So member 1 would have 1-2700 and 5401-5405 and member 2 would have 2701-5400. This may NOT be what's wanted.
_________________
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

stalin · Beginner Joined: 22 Aug 2005 Posts: 23 Topics: 4

HI Kolusu , phantom and frank

Its not working.it gives the system abend code S213 with reason code 30.it means the dataset was kept opened while execution.what i have understood from this is, it opens the MEM001 of the PDS for writing and when it comes for MEM002 , it gives this message(as the PDS was opened earlier).Guide me if iam wrong.
i could able to write only one member.

please guide me more on this.

Thanks
Stalin

Phantom · Posted: Wed Nov 16, 2005 7:00 am Post subject:

Stalin,

What is the dataset disposition you are using for each member ? Do you get an error with DISP=SHR ?

Thanks,
Phantom

stalin · Beginner Joined: 22 Aug 2005 Posts: 23 Topics: 4

Phantom ,
yes iam getting the error by using DISP=SHR

stalin · Beginner Joined: 22 Aug 2005 Posts: 23 Topics: 4

Phantom, iam giving the code for your reference

//STEP01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=A.B.C,DISP=SHR
//MEM001 DD DSN=A.B.C.D(MEM001),DISP=SHR
//MEM002 DD DSN=A.B.C.D(MEM002),DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=(MEM001),STARTREC=0001,ENDREC=2700
OUTFIL FNAMES=(MEM002),STARTREC=2701,ENDREC=5400
/*

similarly i have to code for 544 members.itried it out for first 2 members only, but still it failed.

Thanks
B.Stalin

vkphani · Intermediate Joined: 05 Sep 2003 Posts: 483 Topics: 48

Stalin,

Change the DISP to OLD as below.

stalin · Beginner Joined: 22 Aug 2005 Posts: 23 Topics: 4

Hi Vkphani, Kolusu , phantom and frank

when i used DISP=SHR, its working good. i followed the technique of Phantom and found that all the 544 members have have the same content starting from the record 384449.it skips the previous records, why is this happining.

The input dataset contains 471448 reocrds and i want to split them into 2700 records( which almost take 544 dataset)

Please guide me

kolusu · Posted: Thu Nov 17, 2005 5:41 am Post subject: