Hello Mike,
This is an exec to calculate days back. Just do add instead of
subtract.
Pick your format for the output
/* REXX COMPUTE THE DATE INFORMATION FROM DAY TO DAY PAST */
ARG INPUT2 INPUT1
IF INPUT1 = ' '
THEN INPUT1 = DATE(S)
SAY 'INITIAL DATE IS START DAY IN STANDARD DATE FORMAT ' INPUT1
SAY 'THE NUMBER OF DAYS BACK ' INPUT2
SAY 'INITIAL DATE IS START DAY IN NORMAL DATE FORMAT '
DATE('N',INPUT1,'S')
SAY 'INITIAL DATE DATE EXPRESSED AS DAYS SINCE 01/01/0001 '
DATE('B',INPUT1,'S')
SDATE = DATE('B',INPUT1,'S')
EDATE = SDATE - INPUT2
SAY 'INITIAL DATE DATE MINUS ' INPUT2 ' BACK EXPRESSED AS DAYS SINCE
01/01/0001 ' EDATE
SAY 'INITIAL DATE DATE MINUS ' INPUT2 ' BACK EXPRESSED STANDARD FORMAT
' DATE('S',EDATE,'B')
SAY 'INITIAL DATE DATE MINUS ' INPUT2 ' BACK EXPRESSED NORMAL FORMAT
' DATE('N',EDATE,'B')
SAY 'INITIAL DATE DATE MINUS ' INPUT2 ' BACK EXPRESSED EUROPEAN FORMAT
' DATE('E',EDATE,'B')
SAY 'INITIAL DATE DATE MINUS ' INPUT2 ' BACK EXPRESSED ORDERED FORMAT
' DATE('O',EDATE,'B')
SAY 'INITIAL DATE DATE MINUS ' INPUT2 ' BACK EXPRESSED MONTH
' DATE('M',EDATE,'B')
SAY 'INITIAL DATE DATE MINUS ' INPUT2 ' BACK EXPRESSED DAY OF THE WEEK
' DATE('W',EDATE,'B')
NDATE = DATE('S',EDATE,'B')
BYEAR = SUBSTR(NDATE,1,4)
SAY 'INITIAL DATE DATE MINUS ' INPUT2 ' BACK EXPRESSED AS DAYS OF THE
YEAR ' DATE('D',NDATE,'S')
NDAYS = DATE('D',NDATE,'S')
DYEAR = SUBSTR(NDATE,3,2)
SAY 'INITIAL DATE DATE MINUS ' INPUT2 ' BACK YEAR IS
' BYEAR
SAY 'INITIAL DATE DATE MINUS ' INPUT2 ' BACK EXPRESSED AS JULIAN
' DYEAR||NDAYS
exit
Ed Martin
Aultman Health Foundation
330-363-5050
ext 35050
-----Original Message-----
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of Horlick, Michael
Sent: Monday, September 20, 2010 9:19 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Calculating a date in the future
Greetings,
I would like to determine a date in the future through an EXEC.
Example: We IPL VM every 28 days. Last time was Sept 8,2010. I would
like to determine the date of the next VM IPL. Have the same need for
VSE IPL and CICS re-boot times.
Thank you,
Mike Horlick
CGI Montreal
_____________________________________________________
This message contains information which is privileged and confidential
and is solely for the use of the
intended recipient. If you are not the intended recipient, be aware that
any review, disclosure,
copying, distribution, or use of the contents of this message is
strictly prohibited. If you have
received this in error, please destroy it immediately and notify us at
privacy...@ailife.com.
