RE: Character to Numeric can it be cleaned up

["Johnson, Duane" <djohnson@xxxxxxxxxxxxx>]

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.