IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Sort on Date Based


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
nirmal.poikaikumaran

New User


Joined: 29 Nov 2005
Posts: 66
Location: Bangalore

PostPosted: Wed May 06, 2009 11:57 am
Reply with quote

Hi,

I have an input file with 21 Millions records.

Records structure is

UNIT DATE COST
1 20090301 1$
1 20090302 1$
1 20090303 1$
1 20090304 1$
1 20090304 1$
1 20090304 1$
2 20090301 1$
2 20090401 1$
2 20090501 1$


I need to write a JCL to filter out all the records based on an input date like A Date 20090506 minus 2 weeks

Is it possible to generate the input date and use the same as filter to remove all records?

I do not have access to use ICETOOL.

Thanks
Nirmal
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Wed May 06, 2009 7:32 pm
Reply with quote

nirmal.poikaikumaran wrote:

I do not have access to use ICETOOL.
Why do you believe this?

Also, what is the format of the date? YYYYMMDD ???
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Wed May 06, 2009 8:55 pm
Reply with quote

nirmal,

If your intention is to filter out records based current date - 2 weeks then the following DFSORT will give you the desired results. Date1 is YYYYMMDD format and we are subtracting 14 days from it (20090506 - 14 = 20090422). So any record which has a date greater than 20090422 at pos 3 is written to the output.

Code:

//STEP0100 EXEC PGM=SORT           
//SYSOUT   DD SYSOUT=*             
//SORTIN   DD *                   
1 20090301 1$                     
1 20090302 1$                     
1 20090303 1$                     
1 20090304 1$                     
1 20090304 1$                     
1 20090304 1$                     
2 20090301 1$                     
2 20090401 1$                     
2 20090501 1$                     
//SORTOUT  DD SYSOUT=*             
//SYSIN    DD *                   
  SORT FIELDS=COPY                 
  INCLUDE COND=(3,8,CH,GE,DATE1-14)
/*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Replacing 'YYMMDD' with date, varying... SYNCSORT 3
No new posts Need to set RC4 through JCL SORT DFSORT/ICETOOL 5
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts JCL sort card - get first day and las... JCL & VSAM 9
Search our Forums:

Back to Top