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
 

 

Date modifications using sort

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
NeerajPathak26

New User


Joined: 23 Feb 2006
Posts: 2

PostPosted: Thu May 09, 2013 4:30 pm    Post subject: Date modifications using sort
Reply with quote

Hello,
Need help. I am creating a report. I run the report job from Monday to friday.If I run the report job on Monday I need to put the date of friday. If report run day is tuesday to friday I need to put previous day's date. I am getting the cuurent date and weekday as well using OUTREC BUILD=(1:DAYNAME,DATE1(-)). But I am not able to use IFTHEN condition to get the desired result for my requirement.
Appreciate your help on this one.

Thanks
Neeraj
Back to top
View user's profile Send private message

Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1534
Location: Andromeda Galaxy

PostPosted: Thu May 09, 2013 4:42 pm    Post subject:
Reply with quote

Dont you have a system to store Business dates?
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1534
Location: Andromeda Galaxy

PostPosted: Thu May 09, 2013 5:55 pm    Post subject:
Reply with quote

Also let us know the sort product and version installed in your shop and also please show us the code you have tried within code tags (complete step)
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Thu May 09, 2013 11:44 pm    Post subject: Re: Date modifications using sort
Reply with quote

NeerajPathak26 wrote:
Hello,
Need help. I am creating a report. I run the report job from Monday to friday.If I run the report job on Monday I need to put the date of friday. If report run day is tuesday to friday I need to put previous day's date. I am getting the cuurent date and weekday as well using OUTREC BUILD=(1:DAYNAME,DATE1(-)). But I am not able to use IFTHEN condition to get the desired result for my requirement.
Appreciate your help on this one.

Thanks
Neeraj


You can use PREVDday function to get last Friday date when the current day is a Monday.

Code:

//STEP0100 EXEC PGM=SORT                                 
//SYSOUT   DD SYSOUT=*                                   
//SYMNAMES DD *                                         
DAYNAME,S'&LWDAY'                                       
//SORTIN   DD *                                         
                                                         
//SORTOUT  DD SYSOUT=*                                   
//SYSIN    DD *                                         
  OPTION COPY                                           
  INREC IFOUTLEN=80,                                     
  IFTHEN=(WHEN=INIT,OVERLAY=(81:DAYNAME,DATE1-1)),       
  IFTHEN=(WHEN=(81,3,CH,EQ,C'MON'),                     
  OVERLAY=(84,8,Y4T,PREVDFRI,TOGREG=Y4T(-))),           
  IFTHEN=(WHEN=NONE,OVERLAY=(84,4,C'-',88,2,C'-',90,2)) 
//*
Back to top
View user's profile Send private message
NeerajPathak26

New User


Joined: 23 Feb 2006
Posts: 2

PostPosted: Fri May 10, 2013 6:15 pm    Post subject: Reply to: Date modifications using sort
Reply with quote

Thanks SKolusu,
It works.

Regards
Neeraj
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 How to change 'K' or 'M' use Sort vice_versa DFSORT/ICETOOL 5 Thu May 18, 2017 7:11 am
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
This topic is locked: you cannot edit posts or make replies. SORT trick needed bshkris SYNCSORT 6 Tue May 02, 2017 4:35 am
No new posts LISTIDR compiled date/time jerryte IBM Tools 3 Thu Apr 20, 2017 7:37 pm


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