Re: Date Conversion

[Bruce Vining <bvining@xxxxxxxxxxxxxxx>]

The problem you are encountering is that you are subtracting 3 from a
numeric field rather than from a date field. With a numeric variable what
you are doing is (2012002 - 3) which better result in 2011999 every time.
What you need to do is remember that you are spanning a year which does not
have 1000 days in it.
Vendor response:

In my Extreme CL offering I have an option (1) named Date and Time
Commands. One of the commands provided is Change Date (CHGDATXCL)
documented at http://www.powercl.com/xcl/xclcommands/chgdatxcl.  Using the
CHGDATXCL command you could simply code:

Pgm
Dcl        Var(&SysDat)  Type(*Char) Len(6) Value('010212')
Dcl        Var(&PrvDat#) Type(*Char) Len(8)

ChgDatXCL  Var(&PrvDat#) Fmt(*YYMD) DatSep(*None) +
             DatAdj((*Sub 3 *Days)) BasVal(&SysDat) +
             BasFmt(*MDY)

SndPgmMsg  Msg(&PrvDat#) ToPgmQ(*Ext)

EndPgm

and &PrvDat# will have the value '20111230' after running the ChgDatXCL
command. There's a 30 day free trial and the option costs a whopping $19.95
(which most find quite cost effective :) ) per system. There are also
several other commands provided in the option (
http://www.powercl.com/images/stories/cmdxcldt.html).

End vendor response.

Bruce Vining
On Sat, Jan 7, 2012 at 5:09 AM, <fbocch2595@xxxxxxx> wrote:

> Hi Folks,
>
> I converted the system date to jul with this cmd;
>
> CVTDAT     DATE(&SYSDAT) TOVAR(&CURJUL) FROMFMT(*MDY) TOFMT(*LONGJUL)
> TOSEP(*NONE) and the joblog shows this;
> CVTDAT     DATE('010212') TOVAR(&CURJUL) FROMFMT(*MDY) TOFMT(*LONGJUL)
> TOSEP(*NONE)
>
> Then, I minus 3 days from the above date (-3) and then try to CVTDAT back
> to *YYMD but when I try to convert back to *YYMD the joblog shows;
>
> CVTDAT DATE('2011999') TOVAR(&PRVDAT#) FROMFMT(*LONGJUL) TOFMT(*YYMD)
> TOSEP(*NONE)   and I get CPF0555.
>
> Why does the -3 convert to 2011999 and how can I correct the date
> conversions?
>
> Thanks, Frank
> --
> 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.