Omit records based on the date

mf_karthik · New User Joined: 26 Jul 2005 Posts: 55

I have a file in that date positiion starts from 45 in the format of YYMMDD in packed decimal,now based on that date position i want to omit the records greater than 250 days.

the syntax i have used is below
SORT FIELDS=COPY
OMIT COND=(45,6,PD,GT,&DATE1P-250)

still i'm seeing some of the records in o/p..is this syntax is correct or i need add something..

expat · Posted: Wed Feb 22, 2012 2:26 pm

Which sort product are you using and what does the manual say.

One assumes it is SYNCSORT as this is posted in the JCL forum.

mf_karthik · New User Joined: 26 Jul 2005 Posts: 55

Syncsort

bodatrinadh · Posted: Wed Feb 22, 2012 4:25 pm

Karthik,

If the date(YYMMDD) is of PD, then the length should of 4 not 6.
Change length to 4 and check the output.

Thanks
-3nadh

mf_karthik · New User Joined: 26 Jul 2005 Posts: 55

Hi,
I tried by changing the length still its not working,the sort card used

SORT FIELDS=COPY
OMIT COND=(45,4,PD,GT,&DATE1P-180).

i want to remove the records which are 180 days older.
for example date in the input:
0826
012F is 08/12/26
but its not getting omitted,in input file it declared as pic9(06) comp-3.

expat · Posted: Wed Feb 22, 2012 8:56 pm

Perhaps the format is Julian date, 81226F

mf_karthik · New User Joined: 26 Jul 2005 Posts: 55

No its not an julian date,in the o/p it showing as 08/12/26.

dbzTHEdinosauer · Posted: Wed Feb 22, 2012 9:38 pm

since
0826
012F
is a PIC S9(6) comp-3 and not PIC 9(6) comp-3

perhaps the TS is not completely computer aware.

is 45 the ordinal position or the relative location?

bodatrinadh · Posted: Wed Feb 22, 2012 9:44 pm

Karthik,

Are you sure that the date value is sarting from 45th position?
Confirm the layout of the file using File-Aid. Also check whether the file is FB or VB.

Thanks
-3nadh

Akatsukami · Posted: Wed Feb 22, 2012 9:57 pm

dbzTHEdinosauer · Posted: Wed Feb 22, 2012 9:58 pm

brought to my attention

0826
012F
is a PIC 9(6) comp-3

my bad......... thx Bill..

mf_karthik · New User Joined: 26 Jul 2005 Posts: 55

Hi,

yes i have checked using file manager starting position is 45 and it ends at 48 length is 4 type pd picture class 9(006) comp-3.its FB only.

and my requirement is to remove the six months old data and the date field is in pd format (yymmdd)

dbzTHEdinosauer · Posted: Wed Feb 22, 2012 10:10 pm

&DATE1P generates a +YYYYMMDD constant. (as per the manual)

sooooooooooooooooooooooooooooooooooooooooooooo.

bodatrinadh · Posted: Wed Feb 22, 2012 11:53 pm

Karthik,

As suggested by Akatsukami, LT will give you the correct result.

Current Date - 180 will give you 20110826 (YYYYMMDD)

Here is the tested result.

dbzTHEdinosauer · Posted: Thu Feb 23, 2012 3:08 am

so even though &DATE1P resolves to 20120222,
the 4 forces a right justified 4 byte compare on x'0120222C'.

thx

but that only works for CC 20, won't work next century.
but, i won't be around to say i told you so....

Bill Woodger · Posted: Thu Feb 23, 2012 5:36 am

Easytrieve Plus does a similar type of thing with alphanumeric comparisons. Three-byte field "ABC", five-byte field, "ABCDE":

dbzTHEdinosauer · Posted: Thu Feb 23, 2012 9:46 am

still say it will not work in the last century or the next.

mf_karthik · New User Joined: 26 Jul 2005 Posts: 55

Its working fine after it changed to LT.

Thanks Bodatrinadh for your assistance.