RE: Character to Numeric can it be cleaned up

Bill,
  You've had many helpful replies, and perhaps you're tired of hearing about
possible solutions by now, but it seems that everyone is getting way too
complicated.
There's a simple solution that will work even on plain RPG.  i.e.

     D                 DS
     D  char1                  1      8A
     D  Char1N                 1      8S 0
     
     D  num1           S              8S 0

     C                   Eval      Char1N = Char1N + num1
or
     C     Char1N        Add       Num1          Char1N

or (if you're on V5R2 - in /Free)
            Char1N += Num1;

Now this assumes that you know the length of the fields you're working with.
If not, then perhaps one of the other solutions is better for you.

Duane

> -----Original Message-----
> From: Bill Hopkins [SMTP:BHopkins@xxxxxxxxxxxxxxxxxxx]
> Sent: Thursday, August 14, 2003 10:50 AM
> To:   RPG400-L@xxxxxxxxxxxx
> Subject:      Character to Numeric can it be cleaned up
> 
> I just went through this subject in the archive. 
> 
> After a hour or so of reading the "Brad S. and Hans B." show. About 
> searching for stuff on the web and what wrong with your code battle. 
> 
>  PS. can all those emails that had nothing to do with subject be deleted? 
>   
> Also had tried to get to the discontinued "snippets" page. At least by the
> 
> URL's posted. 
> 
> 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.