Re: Substring Start or Length Error

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.