Re: right$

Bob,

>Would this work?

Not quite.

First, why set the lengths at 4096 varying?  Character fields can exceed that
and then you'll have a non-obvious program bug.  I haven't tested it, but if the
caller had a varying legth field with 16K of data and called your Right()
procedure as coded, wouldn't it see just the first 4K of the original field?
Then the procedure would run without an "error" but return the wrong characters
from the first argument.  Not pretty.

Second, the IF/ENDIF block looks like it correctly handles those cases where
nCharCnt is positive and less than or equal to the trimmed length of the input
string (when under 4K).  But what about the rest of the time?

What does "return  *" mean in RPG IV?   I can't find it documented.  Factor 2 is
supposed to be an expression, and * would suggest a unary multiplication but
that is obviously not what you mean here.  Is this supposed to represent a
pointer to something?  Or that a varying length field with a current length of
zero should be returned?  Is it even valid syntax?

If "return  *" means return a zero-length varying string, then it will catch
those cases where nCharCnt is passed as zero.

Third, what happens in this case?

  C  Eval  somefield = 'abcde'
  C  Eval myRightValue = Right( somefield : 10 )

Since 10 exceeds the trimmed length of somefield, you'd return a zero-length
string, assuming that is what "return  *" means.  But in my book, the above
should return 'abcde', not a zero-length string.

Or at least that is how I've always used Right() in VBA, and how *I'd* expect it
to work if I saw a Right() function.

These are the first three things I spot wrong with the code -- I didn't test it.

Doug