David had it first but thanks Frank, I always love the things DFSORT can do.
I recently had to do the same thing but used IDCAMS viz: //* ASSUME OUT1-3 ARE PRE-ALLOCATED OR USE IEFBR14 FIRST.... //STEP EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //INDD1 DD DSN=MY.LARGE.INPUT.FILE,DISP=SHR //OUTDD1 DD DSN=OUT1,DISP=SHR //OUTDD2 DD DSN=OUT2DISP=SHR //OUTDD3 DD DSN=OUT3,DISP=SHR . . . //SYSIN DD * REPRO IFILE(INDD1) OFILE(OUTDD1) COUNT(100000) REPRO IFILE(INDD1) OFILE(OUTDD2) SKIP(100000) COUNT(100000) REPRO IFILE(INDD1) OFILE(OUTDD3) SKIP(200000) /* On 9/5/07, David Andrews <[EMAIL PROTECTED]> wrote: > > On Tue, 2007-09-04 at 15:59 -0400, Raupach, Robert E (ATS, IT) wrote: > > I thought there was an easy way to write the first 100,000 records to > > a dataset and skip the rest, then skip the first 100,000 records and > > write the remainder to another dataset, using IEBGENER or DFSORT and > > the right control cards. > > You could use IDCAMS REPRO. Check out the SKIP and COUNT operands. > > -- > David Andrews > A. Duda and Sons, Inc. > [EMAIL PROTECTED] > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
