|
View previous topic :: View next topic
|
| Author |
Message |
VIKAS GAIKWAD
New User
Joined: 30 Nov 2006
Posts: 33
Location: MUMBAI
|
|
|
|
Hi,
I do have PS file with 100 records. I want to delete 6th & 55th record from this file. The file has not any key on which you can delete the record. Is it possible by using sort only? I can do it by using program, by count & excluding 6th & 55th record. But sort is fast & coding program will take some time.
Thanks,
Vikas. |
|
| Back to top |
|
 |
shankar.v
Active User
Joined: 25 Jun 2007
Posts: 196
Location: Bangalore
|
|
|
|
Here's a DFSORT job that will do what you asked for:
| Code: |
// EXEC PGM=SORT
//SORTIN DD ...
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(81:SEQNUM,8,ZD)
OUTFIL OMIT=(81,8,ZD,EQ,6,OR,81,8,ZD,EQ,55),BUILD=(1,80)
/*
// |
|
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Vikas,
Note that Shankar's job assumes that your input file has RECFM=FB and LRECL=80. The job can be changed appropriately for other attributes. |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
With z/OS DFSORT V1R5 PTF UK90013 (July, 2008) you can use DFSORT's new SUBSET operator to do this kind of thing quite easily like this:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file
//OUT DD DSN=... output file
//TOOLIN DD *
SUBSET FROM(IN) TO(OUT) REMOVE INPUT RRN(6) RRN(55)
/*
|
This will work for data sets with any attributes.
For complete details on the new SUBSET function and the other new functions available with PTF UK90013, see:
Use [URL] BBCode for External Links |
|
| Back to top |
|
|
|
|
