RE: Adding 1 to date

["Booth Martin" <booth@xxxxxxxxxxxx>]

If you need to do it in CL you may find it easiest to use CVTDAT and convert
your date to a Julian Date, add 1, and do a CVTDAT back to your date format
of choice.  MONMSG on the CVTDAT command for  an invalid date.  *LONGJUL or
*JUL should work well.  The only error message the second CVTDAT command is
likely to get is on the last day of the year.  You will want to fuss with
that. 
 
---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
-------Original Message-------
 
From: Midrange Systems Technical Discussion
Date: 03/02/05 10:45:51
To: Midrange Systems Technical Discussion
Subject: RE: Adding 1 to date
 
I would call an RPG program myself to retrieve and change the date. It's
much easier with ADDDUR or %Days than it is in CL. You have to take into
account leap year and different number of days in a month and crossing
boundaries and such. It's a one-liner in RPG...ok...maybe 10.
 
> -------- Original Message --------
> Subject: RE: Adding 1 to date
> From: "Dwayne Allison" <Dwayne.Allison@xxxxxxxxxxxxxxxxxxxxxxxx>
> Date: Wed, March 02, 2005 11:15 am
> To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
>
> I am sorry I did not give enough detail.
>
> We wanted to retrieve the system date.  Than use the date to add one or
two days to it.  We are not going to change the system date, but use it's
value to trigger flags.
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of
> michael@xxxxxxxxxxxxxxxxxx
> Sent: Wednesday, March 02, 2005 10:02 AM
> To: Midrange Systems Technical Discussion
> Subject: RE: Adding 1 to date
>
>
> You want to change the system date programmatically? You can do a
> CHGSYSVAL QDATE I suppose (System date.  Changes made to this system
> value take effect immediately.) ...but...why do you want to do that? Do
> you just want to change the date that the CL program uses? I would be
> really careful about changing the system date.
>
> You could do a RTVSYSVAL SYSVAL(QDATE) RTNVAR(&MYDATE) and manipulate
> that date.
>
> > -------- Original Message --------
> > Subject: Adding 1 to date
> > From: "Dwayne Allison" <Dwayne.Allison@xxxxxxxxxxxxxxxxxxxxxxxx>
> > Date: Wed, March 02, 2005 10:37 am
> > To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
> >
> > Good Morning All,
> >
> > Can you add to system date in a cl, if so how?
> >
> > We capture the system date and than we would like to add a day or two to
it.
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
 
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
 
 
.