RE: %CHAR()

["Gary R. Patterson" <rpg400-l@xxxxxxxxxxxxx>]

Peter,

You read it backwards.

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Peter Dow
Sent: Monday, November 20, 2000 8:39 PM
To: RPG400-L@midrange.com
Subject: Re: %CHAR()


Hi Ken,

Pardon me, but wouldn't that xlate change "00100.54" to "bb1bb.54" (where b
is blank)? In otherwords, it doesn't stop with just the leading zeros.

Regards,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: <Ken.Slaugh@cm-inc.com>
To: <RPG400-L@midrange.com>
Sent: Monday, November 20, 2000 2:51 PM
Subject: RE: %CHAR()


>
> If you got a proven set of calc that produce leading blanks then follow
> them with XLATE opcode
>
> ' ':'0'   XLATE     YourField YourField
>
> Ken Slaugh  (707) 795-1512 x118
> Chouinard & Myhre, Inc.
> AS/400 Professional Administrator/MSE
> Client Access Specialist
> http://www.cm-inc.com/
>
>
>
>                     bmorris@ca.ibm.co
>                     m                        To:     RPG400-L@midrange.com
>                     Sent by:                 cc:
>                     owner-rpg400-l@mi        Subject:     RE: %CHAR()
>                     drange.com
>
>
>                     11/20/00 01:40 PM
>                     Please respond to
>                     RPG400-L
>
>
>
>
>
>
> > Date: Mon, 20 Nov 2000 11:10:27 -0800
> > From: "Westdorp, Tom" <tom.westdorp@stationcasinos.com>
> >
> > 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."
> >>
> >> - -----Original Message-----
> >> From: M. Lazarus [mailto:mlazarus@ttec.com]
> >> Sent: Saturday, November 18, 2000 4:10 PM
> >>>
> >>> Remove the blanks of with %trim
> >>>
> >>> %trim(%char(xxxxx))
> >>> %trim(%editc(xxxxx:yyy))
> >>> %trim(%editw(xxxxx:yyyy))
> >>  There's no need to do that.  These BIFs do it for you already.
>
> "This certainly seems to be an error to me ..."
>
> Tom, what "this" do you mean?  I don't think you're talking about
> %trim since that only deals with leading blanks, not leading zeros.
>
> If you can't find an edit code or edit word to return leading zeros,
> you might consider a subprocedure that returns the input value with
> leading blanks changed to zeros.  Then you could remove those MOVEL
> and XLATE lines, and just code this:
>
> C         eval      x = leadingBlanks (%editc(num : 'N'))
>
> Barbara Morris
>
>
> +---
> | 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
+---

+---
| 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
+---