Re: Retrieving a Pointer to an Object

[Tim McCarthy <twmac@xxxxxxxxxxxxxx>]

You will need to pass an RPG pointer type as a parameter to your MI
program. Once you have resolved the system pointer to the object you'll
have to convert it to a space pointer so your RPG program can use it. Use
the MI operation SETSPPFP to set the space pointer to the system pointer
value. The passed RPG pointer parameter will be a space pointer. RPG is
horrible with pointer arithmetic (you're probably familiar with this if
your thinking of attempting it) so good luck. What are you trying to
manipulate? You'll find a lot of closed doors if you're operating at level
40. I've no idea where you got the RTVQRYF MI instruction from - it's not
in any of my manuals.
If you give me a fax number I can fax you the type codes - I'm too lazy to
re-key them all here.
   

At 04:02 PM 6/23/98 +0100, you wrote:
>I want to be able to obtain a pointer to an object. (Specifically, I am
tearing apart
>QRYDFN's.  Yes, I have seen and used the MI RTVQRYF, but I would like to
put the bulk
>of the logic in the RPG program since I don't know MI well enough).
>
>I know I have the MI written correctly to get the system pointer, but I
don't know
>how to pass it back to the calling RPG program so it can use it.  Could
someone
>possibly point me to an example?  Also, is there a table anywhere that
shows the
>translation between object type and the machine object identifier?  I know
a library
>is x'0401' and a query definition is x'1911', but I would like to know it
all.
>
>Your help is appreciated.
>
>Bill
>
>+---
>| 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
+---