This code should work for you in any circumstance: DATEB=DATE('B') DATEB=DATEB-1 DATEX=DATE('N',DATEB,'B') SAY DATEX
-----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of ITschak Mugzach Sent: Thursday, August 02, 2018 4:44 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: how to calculate previous day using REXX Try this logic: - Get the Julian date of today (YYXXX) - Deduct 1 from Julian date (xxx) - Last 3 digits zero? (xxx) - Deduct one from first two chars (year) (YY) - Decide the Julian date (365 or 366 based on year/4) (xxx) ITschak On Thu, Aug 2, 2018 at 10:38 AM saurabh khandelwal < sourabhkhandelwal...@gmail.com> wrote: > Hello Group, > > In REXX , we have Date function to calculate today's date but do we > have any separate function to calculate yesterday's date. > > currently, we used > > TODAY= DATE('S') > YESTERDAY = TODAY - 1 > > this code work whole month but, starting of the month where we have > date > > ex : > > TODAY - '20180801' > > then yesterday will be calculated like > > TODAY -1 , So yesterday value will be > YESTERDAY = '20180800' , which is wrong. > > Can you please help to overcome this issue. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for Legacy **| * ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This email transmission and any accompanying attachments may contain CSX privileged and confidential information intended only for the use of the intended addressee. Any dissemination, distribution, copying or action taken in reliance on the contents of this email by anyone other than the intended recipient is strictly prohibited. If you have received this email in error please immediately delete it and notify sender at the above CSX email address. Sender and CSX accept no liability for any damage caused directly or indirectly by receipt of this email. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN