Re: %char alternative

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

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.