RE: Blank Suppress

Yes, that would work, but

 C       eval  name = %trimR(name)

would work too.

I've heard from Hans that the %TRIM is less efficient that using the
specific TRIMR and TRIML functions. I hope he's fixed this by now, however.

Bob Cozzi

http://www.RPGIV.com




> -----Original Message-----
> From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
> Behalf Of Stone, Brad V (TC OASIS)
> Sent: Wednesday, July 21, 1999 5:09 PM
> To: 'RPG400-L@midrange.com'
> Subject: RE: Blank Suppress
>
>
> So he would need something like this?
>
> evalr     field2 = %trim(field1)
>
> That's pretty sweet.
>
> Bradley V. Stone
> BVS/Tools
> http://www.bvstools.com
>
>
>
>
> > -----Original Message-----
> > From: Bob Cozzi [mailto:cozzi@rpgiv.com]
> > Sent: Wednesday, July 21, 1999 3:21 PM
> > To: RPG400-L@midrange.com
> > Subject: RE: Blank Suppress
> >
> >
> > In the latest release of RPG IV, the EVALR operation code is
> > basically a
> > MOVE-RIGHT. The original EVAL opcode was a MOVE-LEFT.
> >
> > Bob Cozzi
> >
> > http://www.RPGIV.com
> >
> >
> >
> >
> > > -----Original Message-----
> > > From: owner-rpg400-l@midrange.com
> > [mailto:owner-rpg400-l@midrange.com]On
> > > Behalf Of keshava narasimha
> > > Sent: Wednesday, July 21, 1999 12:12 PM
> > > To: RPG400-L@midrange.com
> > > Subject: Blank Supress
> > >
> > >
> > > Hi everybody!
> > >
> > >
> > > I have a very basic question .Is it possible to supress blanks in a
> > > charecter field?
> > >
> > > For example :
> > >
> > >            OPCODE         F2         RES
> > >
> > >            MOVEL   'ABCD     ' FLD1       10A
> > >            MOVE     FLD1       FLD2       10A
> > >
> > > Is it possible to suppress the blanks & make the FLD2=
> > > '   ABCD'  (Right justified)
> > >
> > > Thanks in advance,
> > >
> > >
> > > Keshav
> > >
> > >
> > >
> > > ______________________________________________________
> > > Get Your Private, Free Email at http://www.hotmail.com
> > > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> > * * * * * * *
> > > * This is the RPG/400 Discussion Mailing List!  To submit a
> > new         *
> > > * message, send your mail to "RPG400-L@midrange.com".  To
> > unsubscribe   *
> > > * from this list send email to MAJORDOMO@midrange.com and
> > specify       *
> > > * 'unsubscribe RPG400-L' in the body of your message.
> > Questions should *
> > > * be directed to the list owner / operator:
> > david@midrange.com          *
> > > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> > * * * * * * *
> > >
> >
> > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> > * * * * * *
> > * This is the RPG/400 Discussion Mailing List!  To submit a
> > new         *
> > * message, send your mail to "RPG400-L@midrange.com".  To
> > unsubscribe   *
> > * from this list send email to MAJORDOMO@midrange.com and
> > specify       *
> > * 'unsubscribe RPG400-L' in the body of your message.
> > Questions should *
> > * be directed to the list owner / operator:
> > david@midrange.com          *
> > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> > * * * * * *
> >
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *