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 numeric fields with trailing spaces sancraig16 SYNCSORT 7 Tue Apr 03, 2018 1:21 am
No new posts Find & Replace string in CA-SORT mrgnndhmk CA Products 1 Fri Mar 30, 2018 12:58 am
No new posts SORT 3 files,extract specific fields ... Kiransr DFSORT/ICETOOL 13 Fri Mar 23, 2018 10:54 am
No new posts How to Generate JCL using Sort naveen katkuri DFSORT/ICETOOL 7 Tue Mar 13, 2018 3:50 pm
No new posts Query to compare 2 values of 1 column... Poha Eater DB2 13 Fri Mar 09, 2018 10:45 am

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