Re: move & pointer with RPG

["Eric PANISSARD" <epanissard@xxxxxx>]

much thanks Pete you translated my poor English perfectly. That is that I
was looking for.
___________________________________________________________________
Eric PANISSARD
Responsable du Département AS/400

INFORMATIQUE DE TAHITI
6, rue Leboucher - BP 1744 - 98713 PAPEETE
TAHITI - POLYNESIE FRANCAISE
Tel : (689) 54 40 40           Fax : (689) 43 37 90
E-mail : EPanissard@idt.pf
___________________________________________________________________

----- Original Message -----
From: Pete Hall <pbhall@execpc.com>
To: <MIDRANGE-L@midrange.com>
Sent: Monday, September 18, 2000 4:57 PM
Subject: Re: move & pointer with RPG


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


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