RE: right$

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

I'm lazy and absent minded so I don't mind the work field too much.<g>  The
substring solution does do it in one line of code without an explicit work
field.  In some ways I'd prefer the work field so I could look at the code a
week later, read the comment, and understand what I was trying to do.  OTOH,
people younger and more flexible than I wouldn't have any trouble with it.
But then they wouldn't fit the profile of the RPG programmer. <g>


> -----Original Message-----
> From: rob@dekko.com [mailto:rob@dekko.com]
> Sent: Tuesday, June 11, 2002 11:08 AM
> To: rpg400-l@midrange.com
> Subject: RE: right$
>
>
> This is a multipart message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> I was trying to avoid the 10 character work field.  The evalr solution
> requires the 10 character work field.
>
> There won't be fewer than 10 non-blank characters.  This is
> checked prior
> to calling this subroutine.
>
> Rob Berendt
> --
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety."
> Benjamin Franklin
>
>
>
>
> Joel Fritz <JFritz@sharperimage.com>
> Sent by: rpg400-l-admin@midrange.com
> 06/10/2002 01:49 PM
> Please respond to rpg400-l
>
>
>         To:     "'rpg400-l@midrange.com'" <rpg400-l@midrange.com>
>         cc:
>         Fax to:
>         Subject:        RE: right$
>
>
> %trimr() followed by the evalr would do the same thing.  You
> could also
> scan
> for blanks from the right side of the field and build parms for
> substringing, but that would involve actual work.  <g>  What neets to
> happen
> if there are fewer than ten non-blank characters?
>
> > -----Original Message-----
> > From: rob@dekko.com [mailto:rob@dekko.com]
> > Sent: Monday, June 10, 2002 11:42 AM
> > To: rpg400-l@midrange.com
> > Subject: right$
> >
> >
> > This is a multipart message in MIME format.
> > --
> > [ Picked text/plain from multipart/alternative ]
> > MYVAR='   thisisseveralcharacters   '
> > I want store the right 10 nonblank characters into a new variable.
> > %trim will get rid of the leading, and trailing, blanks.
> >
> > Nearest way I can figure to do this is to use a 10 character
> > field as a
> > work variable and evalr the %trim of MYVAR into this.  Any other
> > suggestions?
> >
> >
> > Rob Berendt
> > --
> > "They that can give up essential liberty to obtain a little
> temporary
> > safety deserve neither liberty nor safety."
> > Benjamin Franklin
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> > mailing list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>