Mainframe, MVS and zOS Discussion

Posted: **Thu Jul 04, 2013 3:50 pm**

If VSAM File(KSDS)is defined as REUSE=No,is there any possibility to 'empty' the File using SORT, if yes kindly help me on this.

Posted: **Thu Jul 04, 2013 5:46 pm**

With REUSE(NO) for a VSAM file, you will need to delete / define the file to empty it. This uses IDCAMS, not SORT.

Posted: **Fri Jul 05, 2013 3:08 pm**

If it was REUSE(YES) - can then it be allowed without IDCAMS delete/define?

Posted: **Fri Jul 05, 2013 3:33 pm**

I don't think using SORT would allow one to empty a VSAM file. A program could, by reading each record sequentially and then deleting that record. I'm not sure if sorting an empty file into the VSAM file would delete the records or not.

Posted: **Wed Jul 17, 2013 12:29 pm**

Thanks for the discussion but I'm still looking for the answer...

Posted: **Wed Jul 17, 2013 3:15 pm**

This can be done using SORT, howevdr, there are couple of "IFs" you've to answer first:

If the KSDS is defined with REUSE (in your case it is Yes), you can use DFSORT's VSAMIO and RESET options along with the OMIT and SORT statements to delete specific records from the KSDS. The VSAMIO option, when VSAM file defined with REUSE, allows the same VSAM file to be used for input and output.

However, NOTE that this kind of "sort" is not recommended unless you can afford to lose the VSAM file if something goes wrong. It is usally advised to go from the VSAM file to a temporary file ("flat file", QSAM) and then from the temporary file back to the VSAM file.

Posted: **Thu Aug 01, 2013 11:46 am**

Thanks Robert, Anuj.

Anuj - could you please give an example of using VSAMIO. That will help.

Posted: **Sun Aug 04, 2013 1:56 pm**

As per your initial post where you asked to 'empty' the same VSAM data-set. I, for one, suggest to take the back up first:

Code: Select all

//**********************************************************    
//* BACKUP COPY OF THE VSAM FILE                           *    
//**********************************************************    
//STEP0100 EXEC PGM=SORT                                        
//SYSOUT   DD SYSOUT=*                                          
//SORTIN   DD DSN=INPUT.VSAM.FILE, 
//            DISP=SHR                                          
//SORTOUT  DD DSN=MY.PS.OUTPUT.FILE, 
//            DISP=(NEW,CATLG,DELETE), 
//            SPACE=(CYL,(500,500),RLSE) 
//SYSIN    DD *                                                
  SORT FIELDS=COPY                                              
//*

And this step will do what you've asked for:

Code: Select all

//**********************************************************    
//* EMPTY THE INPUT VSAM FILE                              *    
//**********************************************************    
//STEP0200 EXEC PGM=SORT                                        
//SYSOUT   DD SYSOUT=*                                          
//DFSPARM  DD *                                                
  OPTION VSAMIO,RESET                                          
//SORTIN   DD DSN=INPUT.VSAM.FILE, 
//            DISP=SHR                                          
//SORTOUT  DD DSN=INPUT.VSAM.FILE,                          
//            DISP=SHR                                          
//SYSIN    DD *                                                
  SORT FIELDS=(1,1,CH,A)                                        
  OMIT COND=ALL                                                
/*

Hope this helps.

Posted: **Tue Aug 06, 2013 6:02 pm**

This is a great help. Thanks Anuj.

Posted: **Mon Sep 23, 2013 9:40 am**

Thank, I too used this and this did help me.

Thanks,

Mainframe, MVS and zOS Discussion

Empty the VSAM file.

Empty the VSAM file.

Re: Empty the VSAM file.

Re: Empty the VSAM file.

Re: Empty the VSAM file.

Re: Empty the VSAM file.

Re: Empty the VSAM file.

Re: Empty the VSAM file.

Re: Empty the VSAM file.

Re: Empty the VSAM file.

Re: Empty the VSAM file.