Re: Now what? (was "free-format move *USA date value to 6-digit numeric in YMD format")

Booth,
  I took his sinpet of code and tried it on my system.
  Same problem.
   
  

Booth Martin <booth@xxxxxxxxxxxx> wrote:
  I wonder if you could try rewriting that code in a new program and 
seeing if it still fails? The reason would be to isolate the issue by 
determining if its the program or the machine that is failing. (I am 
still suspicious of a *duh* problem, like a typo of some sort.)

Jeff Young wrote:
> Dan,
> I am at V5R2, and program TEST2 errors out with RNX0114.
> The year portion of a Date or Timestamp value is not in the correct range at 
> statement 9 in QRNXUTIL.
> 
> 
> 
> Dan wrote:
> I have started a new thread since my original topic with the subject
> "free-format move *USA date value to 6-digit numeric in YMD format" has
> drifted into an opinion "discussion". Please keep all opinion discussion
> out of this thread. (I understand what you all are saying about what IBM
> has done wrong or right, and I have my frustrations with it as well, but I
> would like to move forward to resolve the problem we are having.)
> 
> I have a workaround, using an intermediate non-array date variable, and it
> is working. However, I would like to know how to research to identify an
> APAR and/or PTF to fix the problem. Earlier attempts to do so turned up
> nothing. FWIW, the first screen of a plain DSPPTF shows TL03252 with a
> Permanently Applied status. IIRC, this should put the last cume applied on
> this system dated around two years ago; it was applied in December 2003.
> 
> For those who may have already abandoned the original thread due to "drift",
> the latest scenario is as follows:
> 
> There are two working test snippets of code below. On my v5r2 box, TEST1
> works, and TEST2 doesn't. TEST2 issues RNQ0114 "The year portion of a Date
> or Timestamp value is not in the correct range (C G D F)" for the statement
> doing the %int(%char. The dump shows DATEUSA(1) set to '12/25/2005' and
> YYMMDD60 = *zeros.
> 
> At least two responders to the original thread tried to duplicate the error,
> but could not. At least one of them was using v5r2.
> 
> Program TEST1:
> d DateUSA s d DatFmt( *usa ) Inz
> d YYMMDD60 s 6 0
> /free
> DateUSA = d'2005-12-25' ;
> YYMMDD60 = %int(%char(DateUSA:*YMD0 ));
> *inLR = *On ;
> DUMP(a) ;
> /end-free
> 
> Program TEST2:
> d DateUSA s d DatFmt(*usa) Inz Dim(32)
> d YYMMDD60 s 6 0
> /free
> DateUSA(1) = d'2005-12-25' ;
> YYMMDD60 = %int(%char(DateUSA(1):*YMD0 ));
> *inLR = *On ;
> DUMP(a) ;
> /end-free
> 
> TIA,
> Dan
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 
> 
> 
> 
> Jeff Young 
> Sr. Programmer Analyst
> Dynax Solutions, Inc.
> A wholly owned subsidiary of enherent Corp.
> IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions 
> V5R2 
> IBM Certified Specialist- e(logo) server i5Series Technical Solutions 
> Designer V5R3
> IBM Certified Specialist- e(logo)server i5Series Technical Solutions 
> Implementer V5R3 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around 
> http://mail.yahoo.com