Re: $Center procedure (was Procedure Problem)

Thanks again Barbara. I appreciate the further input and it sounds like it
will work just fine, and I learned how to define the length of a variable
size field. But I don't see where the procedure call will fail to return a
centered field when using  eval ctrfld = $center(entfld). As long as entfld
is within 256 bytes.

----- Original Message -----
From: <bmorris@ca.ibm.com>
To: <MIDRANGE-L@midrange.com
Sent: Tuesday, January 04, 2000 12:10 PM
Subject: Re: $Center procedure (was Procedure Problem)


>
>
>
> >Date: Sat, 1 Jan 2000 10:47:20 -0500
> >From: "Wayne Achenbaum" <wache@slomins.com>
> > ...
> >I tried changing Field_out to varying, but that caused an
> >error when on the Line that tried to substring text into
> >the center of  Field_out  (I'm on V4R4).  When I leave
> >Field_out as a non-varying alpha field it works fine.
> > ...
>
> Wayne, your procedure might work fine for your current callers,
> but if you receive the returned value in a varying length field,
> the length will always be 256 rather than the length of field_in.
>
> If you make field_out varying, you need to set its length before
> you can substring into it.  Just add this line to the beginning of
> your procedure:
> C          EVAL   %LEN(field_out) = %LEN(field_in)
> and your substring will be fine.
>
> Barbara Morris
>
>
> +---
> | 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
> +---

+---
| 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
+---