Re: %CHAR()

[Ken.Slaugh@xxxxxxxxxx]

Peter
     It's the other way around. The original situation required leading
zeros and 'bb100.54' which resulted from a %editc, %editw or %char BIF
would be changed to '00100.54' with...

' ':'0'   XLATE     Yourfield YourField

Changing spaces to zeros.

Ken Slaugh  (707) 795-1512 x118
Chouinard & Myhre, Inc.
AS/400 Professional Administrator/MSE
Client Access Specialist
http://www.cm-inc.com/


                                                                                
              
                    "Peter Dow"                                                 
              
                    <pcdow@MailAndNew        To:     <RPG400-L@midrange.com>    
              
                    s.com>                   cc:                                
              
                    Sent by:                 Subject:     Re: %CHAR()           
              
                    owner-rpg400-l@mi                                           
              
                    drange.com                                                  
              
                                                                                
              
                                                                                
              
                    11/20/00 06:39 PM                                           
              
                    Please respond to                                           
              
                    RPG400-L                                                    
              
                                                                                
              
                                                                                
              



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