Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Sort on Date Based

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: Sort on Date Based
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    Post subject: Re: Sort on Date Based
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    Post subject: Reply to: Sort on Date Based
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    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm
No new posts Innovations in Your Mainframe Sort Arun Raj PC Guides & IT News 4 Wed Mar 15, 2017 10:38 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm
No new posts SORT requirement sjiraga COBOL Programming 6 Thu Mar 09, 2017 9:11 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us