anand tr New User Joined: 12 Aug 2008 Posts: 41 Location: chennai
I have a KSDS file. I need to delete only specific records from that file say
if the date field in the file is 25 then only those records must be deleted.
Frank Yaeger DFSORT Moderator Joined: 15 Feb 2005 Posts: 7130 Location: San Jose, CA
You can use a DFSORT/ICETOOL job like the following. We process the VSAM file as variable-length (V). I've assumed that the 2-character field you want to check for is in positions 11-12, so the starting position for the OMIT statement is 15 (11 + 4 for the RDW).
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//VSAMFILE DD DSN=... VSAM file
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//TOOLIN DD *
COPY FROM(VSAMFILE) TO(T1) VSAMTYPE(V) USING(CTL1)
COPY FROM(T1) TO(VSAMFILE) VSAMTYPE(V)
//CTL1CNTL DD *
For more information on processing VSAM files with DFSORT, see:
All times are GMT + 6 Hours