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
 
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: 1561
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: 1561
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 remove spaces between variable... Selvarajars DFSORT/ICETOOL 7 Fri Jul 27, 2018 3:58 pm
This topic is locked: you cannot edit posts or make replies. Add 5 days to a date Ron Klop DB2 19 Wed Jul 25, 2018 8:11 pm
No new posts finding anydata between positions of ... ram_vizag SYNCSORT 13 Tue Jul 17, 2018 9:14 pm
No new posts To remove spaces from a VB file using... Selvarajars DFSORT/ICETOOL 5 Thu Jun 21, 2018 6:57 pm
No new posts Sort numeric fields with trailing spaces sancraig16 SYNCSORT 7 Tue Apr 03, 2018 1:21 am

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