ravi nandhan

procedure a,p
DEFINE VARIABLE a AS INTEGER NO-UNDO.
ASSIGN a =10.
RUN pp(INPUT-OUTPUT a).
DISP a.
PROCEDURE pp:
DEFINE INPUT-OUTPUT PARAMETER a AS INTEGER.
ASSIGN a =a + 20.
DISP a.
END PROCEDURE.
PROCEDURE mesg:
DEFINE INPUT PARAMETER p_name AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER p_name_detail as CHARACTER.
ASSIGN p_name_detail = "my name is" + p_name.
END PROCEDURE.
procedure persistent.p

DEFINE VARIABLE hproc AS HANDLE NO-UNDO.
DEFINE VARIABLE v_name AS CHARACTER NO-UNDO.
MESSAGE "a"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
RUN a.p PERSISTENT SET hproc.
MESSAGE "b"
VIEW-AS ALERT-BOX INFO BUTTONS OK.

RUN a.p PERSISTENT SET proc-handle ( INPUT "muthukrishnan",OUTPUT v_name ).
/*RUN mesg IN hproc = proc-handle
(INPUT "muthukrishnan",OUTPUT v_name).*/
MESSAGE "c"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
MESSAGE v_name
VIEW-AS ALERT-BOX INFO BUTTONS OK.