Kbase P20263: How to tell if a specific procedure is loaded as a super procedure?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
22/01/2009 |
|
Status: Verified
GOAL:
How to tell if a specific procedure is loaded as a super procedure?
FACT(s) (Environment):
All Supported Operating Systems
OpenEdge 10.x
FIX:
DEFINE VARIABLE cList AS CHARACTER NO-UNDO.
DEFINE VARIABLE hProc AS HANDLE NO-UNDO.
DEFINE VARIABLE iLoop AS INTEGER NO-UNDO.
DEFINE VARIABLE iEntries AS INTEGER NO-UNDO.
/* Load A Few Super Procedures (For Testing) */
RUN TEST3.P PERSISTENT SET hProc.
SESSION:ADD-SUPER-PROCEDURE(hProc).
RUN TEST2.P PERSISTENT SET hProc.
SESSION:ADD-SUPER-PROCEDURE(hProc).
ASSIGN cList = SESSION:SUPER-PROCEDURES
iEntries = NUM-ENTRIES(cList).
DO iLoop = 1 TO iEntries:
ASSIGN hProc = WIDGET-HANDLE(ENTRY(iLoop,cList)).
IF hProc:FILE-NAME = "TEST2.P" THEN
MESSAGE "The Super Procedure I Care About Is Loaded" VIEW-AS ALERT-BOX.
END.