Re: move & pointer with RPG

[Pete Hall <pbhall@xxxxxxxxxx>]

At 17:19 09/18/2000 , Eric Panissard wrote:
>Is there a way to move a field A who contain an external named field to a 
>field B. (pointer ?)
>Exemple :
>     EXTFLD is an external named field
>
>     MOVE 'EXTFLD'  to FIELD_A
>     MOVE FIELD_A to FIELD_B

Eric,

I'm not entirely clear as to what you need to accomplish, but see if this 
helps any.

If you have a pointer to external data, like a user space, you can define a 
based data structure and assign its address to the address of the space:

   D @Space            * Inz(*Null)
   D Space       DS      Based(@Space)
   D  Data1          10
   D  Data2   etc

   C       eval @Space = ExtPtr
       or
   C       eval @Space = %Addr(ExtSpace)
       or
   C       call 'QUSPTRUS'
   C       parm             SpaceName
   C       parm             @Space

Once you have assigned the address of the based field or structure, you can 
use it just as though it was an internal program variable. QUSPTRUS is an 
API that will return a pointer to a user space.





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