> I have a 500,000 record text file with a record length of 150 bytes. I'm > tring > to find some way of splitting it in two. Because of the record lenght, I'm > not > able to use the tso edit function. I'm sure I have the solution somewhere. > > Thanks, > Dave >
If you have DFSORT try this: //SPLIT EXEC PGM=ICEMAN,REGION=0M //SORTIN DD DISP=SHR,DSN=input,BUFNO=250 //P1 DD DISP=(,CATLG),DSN=out1, // RECFM=FB,LRECL=150,BLKSIZE=0,SPACE=(CYL,(pri,sec),RLSE) //P2 DD DISP=(,CATLG),DSN=out2, // RECFM=FB,LRECL=150,BLKSIZE=0,SPACE=(CYL,(pri,sec),RLSE) //SORTDIAG DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * OPTION COPY,HIPRMAX=OPTIMAL OUTFIL FNAMES=(P1,P2),SPLIT /* I use a jcl like this to split a lrecl=2500, fb file in 8 pieces and it takes five minutes to process 3,6 million records. Very nice and fast like everything in dfsort. ---------------------------------------------------------------------- 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
