Re: Substring Start or Length Error

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.