Kbase 33425: 4GL. How to retrieve the source procedure that created a handle.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/05/1998 |
|
Solution ID: P3425
GOAL:
How to retrieve the source procedure that created a handle
FIX:
The following example consists of three procedure files:
1) A main routine
2) A driver
3) A third procedure file that becomes a super procedure of the driver.
The main routine, procedure file r-pomain.p, runs the driver procedure persistently.
The driver, procedure file r-podrvr.p, runs the third procedure file persistently, makes it a super procedure of itself, defines the internal procedure sample1, and defines the user-defined functions sample2, GetPartName, and SetPartName.
The third procedure file, r-posupr.p, defines a new version of the internal procedure sample1 and a new version of the user-defined function sample2.
Save those three procedures separately and do not forget to compile them before running.
If you run them uncompiled they will show-up the name of a temporary file created by progress at run time, thus the only way to see the name of the procedure is by compiling.
To start the example, start the Procedure Editor and write the following after having compile:
RUN r-pomain.p.
/* r-pomain.p */
DEFINE VARIABLE h AS HANDLE NO-UNDO.
DEFINE VARIABLE a AS CHARACTER NO-UNDO.
FUNCTION sample2 RETURNS CHARACTER (INPUT-OUTPUT a AS CHARACTER) IN h:
RUN r-podrvr.p PERSISTENT SET h.
RUN sample1 IN h (INPUT-OUTPUT a).
MESSAGE a VIEW-AS ALERT-BOX.
a = "".
MESSAGE sample2(a) VIEW-AS ALERT-BOX.
END FUNCTION.
/* r-podrvr.p */
FUNCTION SetPartName RETURNS INTEGER (INPUT a AS CHARACTER) FORWARD.
DEFINE VARIABLE h AS HANDLE NO-UNDO.
DEFINE VARIABLE localPartName AS CHARACTER NO-UNDO.
/* Add a super procedure */
RUN r-posupr.p PERSISTENT SET h.
THIS-PROCEDURE:ADD-SUPER-PROCEDURE (h).
SetPartName("2002 Calendar").
PROCEDURE sample1:
DEFINE INPUT-OUTPUT PARAMETER a AS CHARACTER NO-UNDO.
a = a + "proc: Part name is: ".
/* Invoke procedure sample1 in the super procedure. */
RUN SUPER (INPUT-OUTPUT a).
END PROCEDURE.
FUNCTION sample2 RETURNS CHARACTER (INPUT-OUTPUT a AS CHARACTER):
a = a + "func: Part name is: ".
/* Invoke function sample2 in the super procedure. */
SUPER (INPUT-OUTPUT a).
RETURN a.
END FUNCTION.
FUNCTION GetPartName RETURNS CHARACTER ():
RETURN localPartName.
END FUNCTION.
FUNCTION SetPartName RETURNS INTEGER (INPUT partname AS CHARACTER):
localPartName = partname.
END FUNCTION.
/* r-posupr.p */
DEFINE VARIABLE h AS HANDLE NO-UNDO.
FUNCTION GetPartName RETURNS CHARACTER () IN H.
PROCEDURE sample1:
DEFINE INPUT-OUTPUT PARAMETER a AS CHARACTER NO-UNDO.
h = TARGET-PROCEDURE.
a = a + GetPartName().
MESSAGE "TARGET-PROCEDURE is:" TARGET-PROCEDURE:FILE-NAME VIEW-AS ALERT-BOX.
MESSAGE "SOURCE-PROCEDURE is:" SOURCE-PROCEDURE:FILE-NAME VIEW-AS ALERT-BOX.
END PROCEDURE.
FUNCTION SAMPLE2 RETURNS CHARACTER (INPUT-OUTPUT a AS CHARACTER):
h = TARGET-PROCEDURE. a = a + GetPartName().
RETURN a.
END.