how do you create a new VSAM file with null record as header with JCL please provide me with coding

sai

• May 31st, 2019

USE PGM=IEBDG in JCL. Copy the Dummy file to VSAM using Repro

Answer Question  Select Best Answer

Explain with example?

Read Best 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)
/*
//*
 

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

Rishu

• Jul 31st, 2014

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

Improve Answer