Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
No new posts How to insert a value on specific pos... Poha Eater DFSORT/ICETOOL 9 Sun Oct 01, 2017 3:04 am
No new posts JOINKEYS Paired and Unpaired Sort MFwhiz DFSORT/ICETOOL 4 Fri Sep 29, 2017 1:48 am
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us