Re: Procedure Problem

At 15:10 12/30/1999 , Wayne Achenbaum wrote:
>I have been watching the debate on the correct way to code the centering
>procedure. I also can't seem to get it to work the way that I want to. What
>I would like to accomplish is, to allow a caller to use the following code.
>
>*--------------------------------------------------------------------*
>* Calling Module
>*
>*--------------------------------------------------------------------*
>C                   eval      Ctrfld = $Center(Entryfld)
>
>The problem I am trying to overcome is that I want the calling module to be
>oblivious to size and not have to know about defining a varying size
>variable to center. I tried all the permeatations that I could conceive of.
>My module does not compile with Entryfld defined as 50a.

Wayne, if you use the OPDESC keyword on the procedure declaration, and 
options(*varsize) on the data, with a declared length of 32767, you can 
procedurally retrieve the parameter length, and center within that length. 
If you do this though, you will be modifying the passed parameter. I don't 
know how you could do this with the return value though. I've never tried. 
If it would help, I can give you an example of using operation descriptors 
next week. Let me know.


Pete Hall
pbhall@execpc.com
http://www.execpc.com/~pbhall
+---
| 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
+---