The OpenEdge Hive

"called.p"

DEF VAR vcStringa AS CHAR INIT "Questa è la stringa di inizializzazione" FORMAT "X(40)" NO-UNDO.
DEF VAR vcFrameStampa AS CHAR NO-UNDO.
DEF VAR vcFrameTitolo AS CHAR NO-UNDO.
DEF VAR i AS INT NO-UNDO.

DO i=0 TO 5
:   
    vcFrameStampa = SUBSTITUTE ("fStampa&1", i).
    vcFrameTitolo = SUBSTITUTE ("Procedura di stampa &1", i).
    
    DEFINE FRAME vcFrameStampa WITH CENTERED TITLE vcFrameTitolo.
    
    DISPLAY vcStringa LABEL "Stampa"
            i LABEL "indice"
            vcFrameTitolo FORMAT "X(40)"
            vcFrameStampa FORMAT "X(40)" 
            WITH FRAME vcFrameStampa
    .
           
    PAUSE.
END.

"calling.p"

DEF VAR h AS HANDLE.
RUN called.p PERSISTENT SET h.

But when i refer with, for example, a "editor buffer" i can't access to these PERSISTENT function:

"editor buffer"
http://img165.imageshack.us/img165/6334/dontno0.jpg