How do you split a file data into multiple files?

Explain with example?

Manjula Pathakamuri
Profile Answers by Manjula Pathakamuri Questions by Manjula Pathakamuri
Apr 9th, 2011
9
39633

Questions by Manjula Pathakamuri

VSAM

Answer

Editorial / Best Answer

jjtharappel

Profile Answers by jjtharappel Questions by jjtharappel

Member Since Nov-2011 | Nov 24th, 2011

Run a JCL with the below sort step

Code
//STEP1    EXEC PGM=SORT                             
//SORTIN   DD DSN=input-file-name,DISP=SHR          
//SORTOF01 DD DSN=output-file-name-1,          
//            DISP=(NEW,CATLG,DELETE),               
//            SPACE=... 
//            LRECL=...,RECFM=FB     
//SORTOF02 DD DSN=output-file-name-2,          
//            DISP=(NEW,CATLG,DELETE),               
//            SPACE=... 
//            LRECL=...,RECFM=FB                     
//SORTOF03 DD DSN=output-file-name-3,          
//            DISP=(NEW,CATLG,DELETE),               
//            SPACE=... 
//            LRECL=...,RECFM=FB                        
//SYSOUT   DD SYSOUT=*                               
//SYSIN    DD *                                      
  SORT FIELDS=COPY                                        
  OUTFIL FNAMES=SORTOF01,                                 
   INCLUDE=(cond for file 1)  
  OUTFIL FNAMES=SORTOF02,                                 
   INCLUDE=(cond for file 2)  
  OUTFIL FNAMES=SORTOF03,                                 
   INCLUDE=(cond for file 3)
/*
//*

Showing Answers 1 - 9 of 9 Answers

jjtharappel
Profile Answers by jjtharappel

Nov 24th, 2011

Run a JCL with the below sort step

Code
//STEP1    EXEC PGM=SORT                             


//SORTIN   DD DSN=input-file-name,DISP=SHR          


//SORTOF01 DD DSN=output-file-name-1,          


//            DISP=(NEW,CATLG,DELETE),               


//            SPACE=... 


//            LRECL=...,RECFM=FB     


//SORTOF02 DD DSN=output-file-name-2,          


//            DISP=(NEW,CATLG,DELETE),               


//            SPACE=... 


//            LRECL=...,RECFM=FB                     


//SORTOF03 DD DSN=output-file-name-3,          


//            DISP=(NEW,CATLG,DELETE),               


//            SPACE=... 


//            LRECL=...,RECFM=FB                        


//SYSOUT   DD SYSOUT=*                               


//SYSIN    DD *                                      


  SORT FIELDS=COPY                                        


  OUTFIL FNAMES=SORTOF01,                                 


   INCLUDE=(cond for file 1)  


  OUTFIL FNAMES=SORTOF02,                                 


   INCLUDE=(cond for file 2)  


  OUTFIL FNAMES=SORTOF03,                                 


   INCLUDE=(cond for file 3)


/*


//*

Rishu

Jul 30th, 2014

In addition to the above solution, we can use SPLIT BY in SORT. But it will depend on condition of split.

Haribabu

Oct 15th, 2019

SORT FIELDS=COPY
OUTFIL FILES=OUT1,ENDREC=10000
OUTFIL FILES=02,STARTREC=10001,ENDREC=20000 OUTFIL FILES=03,STARTREC=20001,ENDREC=30000
also possible for OUTFIL FNAMES=(OUT1,OUT2,OUT3),SPLIT=10000