Comparing packed date fields with current date

[Rajeshk.sakthivel]

Hi,

I have the following problem,

In my input file the fields 1-4 contains date stored as a packed field.

P'0011273C'

YYDDD format

I want to select all the records where the value in this field is equal to the current date.

Thanks for your help in advance.

Thanks.

[Frank Yaeger]

You can use DFSORT control statements like the following:

Code: Select all

  OPTION COPY,Y2PAST=1990                       
  INCLUDE COND=(2,3,Y2U,EQ,Y'DATE3')            

Note that we are ignoring the X'00' in the first byte since it has no relevance to the P'yyddd' date.