× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.