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

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 <dan27649@xxxxxxxxx> 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