Subprocedure question

I just had a wierd error message today. I have a RPG/IV program that calls a
procedure (using a prototype), and received the following error message:
MCH0601
Message data "Space offset X'00031E00' is outside current limit for object
QPADEV0002GOODBAR"

The error reported by the program was "The call to  ended in error (C G D F)."

After dumping the program, I looked at the local variables for my procedure:

Local variables for subprocedure: SHIFTRIGHT
NAME                            ATTRIBUTES      VALUE
_QRNL_PSTR_INFIELD              POINTER SSP:F61FA7DE7D02C140
_QRNL_PSTR_INLENGTH     POINTER SSP:CEAE1E9F8E00DC90
INFIELD                         CHAR(32767)     NOT ADDRESSABLE
INLENGTH                        PACKED(5,0)     00015. '00015F'X

then I have a "blank" variable dump length 32767 (a placeholder for the not
addressed INFIELD?).

Under which circumstances would an input variable be not addressable?

The program is callable interactively - I'm the only one who uses it at the
moment, and I only run it interactively.

Here's the prototype and procedure interface (hand typed, the columns won't
line up)

PROTOTYPE
d Shiftright    pr      32767a  varying
d InField               32767a  options(*varsize) const
d InLength              5p 0    const

PROCEDURE INTERFACE
p Shiftright    b
d               pi      32767a  varying
d InField               32767a  options(*varsize) const
d InLength              5p 0    const
...
p Shiftright    e

TIA!
Loyd
--
Shippo no kireta tokage no ko, kawari ni tsukeru ryuu no tama.
A baby lizard missing its tail, in its place a dragon's jewel.
--Key the Metal Idol
lgoodbar@watervalley.net  ICQ#504581  http://www.watervalley.net/users/lgoodbar/
+---
| 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
+---