MVSFORUMS.com

Robo2005 · Beginner Joined: 13 Jul 2005 Posts: 11 Topics: 3

Hi,

Please help me in finding the solution for the following requirement.

I have one file having 80 bytes lengh.

Field1 - 1,9
create-date - 12,8 (date is in 9s complement)
field2 - 20,10

Now requirement is to extract previous month data.
That is if I run this month(july), i shld extract only june data.

I want to do thru SORT.

Thanks
Robo.

Alain Benveniste · Posted: Wed Jul 13, 2005 1:16 pm Post subject:

How the create-date look like ?
What 'date is in 9s complement' means ?

Alain

Robo2005 · Beginner Joined: 13 Jul 2005 Posts: 11 Topics: 3

Alain,

Sorry for not giving enough information.
create date looks like ccyymmdd
and 9s complement means for example
todays date(20050713) will be stored like 79949286
(99999999 - 20050713) in file.

Thanks
Robo

Alain Benveniste · Posted: Wed Jul 13, 2005 2:08 pm Post subject:

Robo,

And how do you want your input to look like : can you give multi input/output examples.

What sense has substracting 999999999 to a ccyymmdd. Just curious.

Alain

Robo2005 · Beginner Joined: 13 Jul 2005 Posts: 11 Topics: 3

Yes, I can get multiple i/ps.

The i/p looks like

Alain Benveniste · Posted: Thu Jul 14, 2005 8:39 am Post subject:

Here is the DFSORT/ICETOOL jcl.
2nd IFTHEN is for january : if mm = 01 then mm = 12 & 1 is substracted to yyyy.
The test in the INCLUDE is made on the year & the month.

Robo2005 · Beginner Joined: 13 Jul 2005 Posts: 11 Topics: 3

Hi Alain,

Today only I came from vacation.

It worked fine with little modifications. Thank you verymuch Alain.

Thanks
Robo