RE: right$

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Oh, and help me on the math? How is %SUBST off by one?



> -----Original Message-----
> From: rpg400-l-admin@midrange.com
> [mailto:rpg400-l-admin@midrange.com] On Behalf Of Hans Boldt
> Sent: Tuesday, June 11, 2002 3:46 PM
> To: rpg400-l@midrange.com
> Subject: Re: right$
>
>
> Bob Cozzi wrote:
> > Would this work?
> >
> > C   Eval   myRightValue = Right( somefield : 10)
> >
> > If the RIGHT procedure was this:
> >
> >      P Right           B                   Export
> >
> >      D Right           PI          4096A   VARYING
> >      D InString                    4096A   VARYING VALUE
> >
> >      D nCharCnt                       5I 0 Const
> >
> >      C                   Eval      InString = %Trimr(InString)
> >      C                   if        nCharCnt <= %Len(InString) and
> > nCharCnt > 0
> >      C                   return    %Subst(InString
> >      C                                      : %Len(InString) -
> > (nCharCnt-1)
> >      C                                      :  nCharCnt)
> >      C                   endif
> >      C                   return    ''
> >      PRight            E
> >
> > Bob Cozzi
>
> I really feel like nitpicking this afternoon!
>
> I believe you'll find an "off-by-one" error in the %SUBST.
> Also, while it doesn't hurt, you can leave off the last
> parameter for that %SUBST, since you're just taking the
> characters until the end of the string anyways.
>
> Oh yeah, that first EVAL with the %TRIM is pretty expensive.
> You could probably speed that up a bit by using %CHECK and
> explicitly setting the length of INSTRING using an assignment
> to %LEN(INSTRING).
>
> Cheers!  Hans
>
>
>
> _______________________________________________
> 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.
>
>