RE: Subprocedure question

Update. I came in this morning and reran the program, without recompiling,
and it worked perfectly. 

I guess this means I got a corrupted parameter pointer along the way, but
how??

Loyd

> -----Original Message-----
> From: lgoodbar@watervalley.net [SMTP:lgoodbar@watervalley.net]
> Sent: Wednesday, March 01, 2000 7:21 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      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
> +---
+---
| 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
+---