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:[email protected]] On Behalf
Of ITschak Mugzach
Sent: Thursday, August 02, 2018 4:44 AM
To: [email protected]
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 <
[email protected]> 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 [email protected] 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
[email protected] 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 [email protected] with the message: INFO IBM-MAIN
