Re: %CHAR()

[Alan Addison <ahaddison@xxxxxxxx>]

If you use %EditC(number,'X')  you will get the value zero filled.

"Westdorp, Tom" wrote:

> This certainly seems to be an error to me, and it is the source of a lot of
> remaining MOVE and/or XLATE statements in otherwise all eval form code.
> This surely does not improve readability to anyone's eye, although it does
> require some documentation in the form "Do NOT change the following MOVE(s)
> to Eval's or necessary leading 0's will be lost."
>
> Tom Westdorp
> AS/400 Senior Programmer/Analyst
>
> IBM Certified Specialist - RPG IV Programmer
> IBM Certified Specialist - RPG IV Developer
> Certified Master RPG IV Programmer
> Internal Telephone # 04-6859
> Voice: (702) 221-6859
> Fax:    (702) 221-6881
> tom.westdorp@stationcasinos.com
>
> -----Original Message-----
> From: M. Lazarus [mailto:mlazarus@ttec.com]
> Sent: Saturday, November 18, 2000 4:10 PM
> To: RPG400-L@midrange.com
> Subject: Re: %CHAR()
>
> Ken,
>
> At 11/17/00 12:16 PM -0800, you wrote:
>
> >Remove the blanks of with %trim
> >
> >%trim(%char(xxxxx))
> >
> >or
> >
> >%trim(%editc(xxxxx:yyy))
> >
> >or
> >
> >%trim(%editw(xxxxx:yyyy))
>
>   There's no need to do that.  These BIFs do it for you already.
>
>   -mark
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---