Joined: 02 Dec 2003 Posts: 150 Location: Tokyo, Japan
Though it is tedious process...I can use INCLUDE condition as below to select Numeric items and omits nonnumeric items -
Code:
INCLUDE COND=(1,1,CH,GE,C'0',
AND,1,1,CH,LE,C'9',
AND,2,1,CH,GE,C'0',
AND,2,1,CH,LE,C'9',
AND,3,1,CH,GE,C'0',
AND,3,1,CH,LE,C'9',
AND,4,1,CH,GE,C'0',
AND,4,1,CH,LE,C'9',
AND,5,1,CH,GE,C'0',
AND,5,1,CH,LE,C'9',
AND,6,1,CH,GE,C'0',
AND,6,1,CH,LE,C'9')
This rather involved INCLUDE statement keeps only
here is a omit statement :
SORT FIELDS=COPY
OMIT COND=(60,4,CH,LE,C'9999')
BUT you should check in the ICETOOL manual to see into the matter.
The link to icetool manual was passed in one of the posts in this thread (by me). So look for it If you don't have this manual.
AND... there goes the link :
www.storage.ibm.com/software/sort/mvs/uq90053/pdf/sortpaug.pdf
Joined: 06 Jan 2004 Posts: 247 Location: Hyderabad
hi bluebird,
i tried with your omit condition.but it didn't work for me.Actually the variable is packed decimal of 17 character length.somehow iam getting spaces in that field and also some values like 0402634517543.tif. so while sorting i thought of removing these kind of records.i tried many ways. sandip suggested some thing using include cond.but that one is very tedious one,which i cant use.
But there is another alternative for me.I skipped those records while reading that file in the program.So my problem is solved.
Just curious.Is there any other alternative thru omit condition to remove non numeric items.For removal of blank line i can give.but for .tif value what can i give.
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
With z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006), you can use DFSORT's new NUM function to include or omit records based on whether they contain character, packed decimal or zoned decimal numerics or non-numerics. For your example of a 17-byte PD field, you can use this INCLUDE statement (p is the starting position of the PD field):
Code:
INCLUDE COND=(p,17,PD,EQ,NUM)
or this OMIT statement:
Code:
OMIT COND=(p,17,PD,NE,NUM)
For complete details of all of the new DFSORT/ICETOOL functions available with the April, 2006 PTFs, see:
.jpg)
