Re: %char alternative

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

I should have added that if you want rounding, use %dech instead of %dec.

Mel Rothman
Mel Rothman, Inc.

Mel Rothman wrote:

> You can use %char on the output of %dec and assign the result to a 
> varying field.  For example:
>
>   D input           s             16p 8 inz(3.5)
>   D char            s             12    varying
>   C                   eval      char = %char(%dec(input:8:2))
>
> Mel Rothman
> Mel Rothman, Inc.
>
> Emery, Eve wrote:
>
> > Hi,
> >
> >
> > What I'm wanting is to convert a packed decimal figure 16,8. To a 
> > character
> > field, but miss off both leading zeros and trailing zeros.
> >
> > E.g. 00000003.75000000 ----> '3.75'
> > I can get '3.75000000' using %Char, but none of the editC's I use, 
> > seem to
> > help.
> >
> > Thanks In Advance
> >
> > Eve Emery
> >
> >
> >
> > +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+
> > The integrity of this message cannot be guaranteed on the Internet.  
> > Natexis Metals Limited cannot therefore be considered responsible for 
> > the contents.  Any unauthorised use or dissemination is prohibited.  
> > If you are not the intended recipient of this message please delete it 
> > and notify the sender.
> >                    Please visit our website www.natexismetals.com
> > +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+
> >
> > _______________________________________________
> > 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.
>
>
> _______________________________________________
> 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.