Re: Character to Numeric can it be cleaned up

This is working, but we are at V5R2:

d t               s              8    inz('12345678')
c                   eval      t=%char(%dec(t:%size(t):0)+1)
c     t             dsply                                 
c                   eval      *inlr=*on                    
c                   return

HTH
Marco
--- Bill Hopkins <BHopkins@xxxxxxxxxxxxxxxxxxx> wrote:
> I was wondering if can I do this on v5r1 or am I stuck
> with 'C' functions 
> and procedures (that do 50 times more than I need on
> this).   
> 
> Eval       CHAR1     =      %editc((%dec(CHAR1) +
> NUM1):'4') 
> 
> Just wanted to add a number to a character field with a
> number in it and 
> no decimals in it's value. Result in character. 
> 
> Any suggestions 
> 
> Thanks 
> 
> Bill Hopkins 
> _______________________________________________
> 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.
> 


__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com