Re: Character to Numeric can it be cleaned up

[<as400bill@xxxxxxxxxxxx>]

Thanks Barbara

Bill Hopkins

----- Original Message ----- 
From: "Barbara Morris" <bmorris@xxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, August 18, 2003 5:30 PM
Subject: Re: Character to Numeric can it be cleaned up


> Bill Hopkins 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.
> >
>
> Your character field with a number in it is sort of a data structure
> with one zoned subfield.  If you define it that way, dealing with the
> numeric part is easy.
>
> D CHAR1        DS           qualified
> D   numval            5s 0
>
>           CHAR1.numval = CHAR1.numval + NUM1
>
> _______________________________________________
> 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.
>
>