Re: Substring Start or Length Error

["Captain Jerry" <captainjerry@xxxxxxxxx>]

This does the trick nicely....
Thanks everyone.  I always learn so much here.

Monitor;
  Char10 = %Char(%Date(Date8): *USA);
On-Error;
  Clear Char10;
EndMon;

//CJ/

On 10/26/06, Johnny Johnson <jjohnson@xxxxxxxxxxxx> wrote:
> Just do the following....
>
> char10 = %char( %date(date8:) : *usa);
>
> Johnny Johnson
> Hub Group, Inc.
>
>
>
>
>             "Captain Jerry"
>             <captainjerry@gma
>             il.com>                                                    To
>             Sent by:                  "RPG programming on the AS400 /
>             rpg400-l-bounces+         iSeries" <rpg400-l@xxxxxxxxxxxx>
>             jjohnson=hubgroup                                          cc
>             .com@xxxxxxxxxxxx
>                                                                   Subject
>                                       Substring Start or Length Error
>             10/26/2006 10:01
>             AM
>
>
>             Please respond to
>              RPG programming
>              on the AS400 /
>                  iSeries
>             <rpg400-l@midrang
>                  e.com>
>
>
>
>
>
>
> Hi group,
>
> I have a numeric field containing a date in YYYYmmDD format (20061026) 8,0
> which I need to convert to mm/DD/YYYY (Character field 10,A) ~ The below
> code works fine if I actually have a date in the numeric field, but if the
> date is all *Zeros (00000000) I get a "Substring Start or Length Out of
> Range" Error.  Is this right, or is there a flaw somewhere?
>
> Char10 = %Subst(%Char(Date8):5:2)  +  '/'  +
>               %Subst(%Char(Date8):7:2)  +  '/'  +
>               %Subst(%Char(Date8):1:4);
>
> Obviously my solution is to check for all zeros and just clear the
> character
> field instead of putting out '00/00/0000' ~ Just wondering why the
> error...
>
> Thanks,
> //Captain Jerry/
> --
> 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.
>
>
>
> --
> 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.