Re: MIDRANGE-L Digest V3 #28

Jeff wrote:
>> Without %Len, the only other method of determining the length
>> of a strings value without using an array, is to use CHECKR
>> (Check reverse) op code where you check for the first non-blank
>> position of "SomeField" from right to left.
>
>Well, that's what I did, but I so wanted to use a BIF . . .

You still can!  Prototype it and call it something like GetStrLen.  Internal
to the subprocedure use CHECKR.  Or use an array.  Model it both ways and
see which one you like best!  The point is that with subprocedures you can
extend RPG almost as easily as you can extend CL by writing your own
commands... When you switch to RISC you can either leave your home-grown
function, change the internal of GetStrLen to actually use %LEN or
scan/replace and use %LEN instead of GetStrLen.

Buck Calabro
Still enthusiastic about subprocedures after 2 years!  Woo Hoo!


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---