|
|
| Author |
Message |
dckreddy
Warnings : 1
New User
Joined: 23 Sep 2008
Posts: 1
Location: USA
|
|
|
|
Hi,
I heard that SKIPREC=z will skip first z records from the input files.
I want a single sort card to skip records 2, 100, 500 and 550 from the input file. Can any body help me out in this regard? |
|
| Back to top |
|
 |
References
|
|
 |
 Moved: Thu Oct 23, 2008 10:40 pm by superk From JCL to DFSORT/ICETOOL |
Skolusu
DFSORT Developer
Joined: 07 Dec 2007
Posts: 399
Location: San Jose
|
|
|
|
dckreddy,
You can do this quite easily using the new SUBSET operator of DFSORT's ICETOOL available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008) like this:
| Code: |
//STEP0100 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(2) RRN(100) RRN(500) RRN(550)
/*
|
For complete details on the new SUBSET function and the other new functions available with PTF UK90013, see:
www.ibm.com/systems/support/storage/software/sort/mvs/ugpf/ |
|
| Back to top |
|
|
suma_infy
New User
Joined: 03 Oct 2008
Posts: 5
Location: chennai
|
|
|
|
Kolusu,
I'm not provided with the above said version of DFSORT'S ICETOOL.
This is what the msg displayed in the spool.
SUBSET FROM(INDD1) TO(OUTDD1) REMOVE INPUT RRN(2) RRN(40)
£
INVALID OPERATOR
OPERATION RETURN CODE: 12
Is there anyother way to skip selective records from i/p file?
Thanks in advance.
Thanks & Regards,
Suma |
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 693
|
|
|
|
Hi,
you can try this
| Code: |
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT-FILE LRECL 80
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC OVERLAY=(81:SEQNUM,8,ZD)
OUTFIL OMIT=(81,8,ZD,EQ,+2,OR,
81,8,ZD,EQ,+40),
BUILD=(1,80)
/*
|
Gerry |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Moderator
Joined: 15 Feb 2005
Posts: 4684
Location: San Jose, CA
|
|
|
|
Suma,
| Quote: |
| I'm not provided with the above said version of DFSORT'S ICETOOL. |
If you're using z/OS DFSORT V1R5, then you just need a PTF, not a new version. Ask your System Programmer to install z/OS DFSORT V1R5 PTF UK90013 (July, 2008) - it's free.
Note that Gerry's solution assumes your input file has RECFM=FB and LRECL=80 and would have to be changed for other attributes. The SUBSET solution can be used for any attributes without change. |
|
| Back to top |
|
|
|
|
