Kbase P105208: How to gather information on internal procedures and user-defined functions in a Super-Procedure
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
6/10/2005 |
|
Status: Unverified
GOAL:
How to gather information on internal procedures and user-defined functions in a Super-Procedure
GOAL:
How to gather information on internal procedures and user-defined functions used in the Super-Procedures of a session
GOAL:
How to generate a list of Super-Procedures and the internal procedures and user-defined functions that are contained therein
FIX:
/* Sample Code */
DEFINE VARIABLE cList AS CHARACTER NO-UNDO.
DEFINE VARIABLE cIntlList AS CHARACTER NO-UNDO.
DEFINE VARIABLE hProc AS HANDLE NO-UNDO.
DEFINE VARIABLE iLoop AS INTEGER NO-UNDO.
DEFINE VARIABLE iIntlLoop AS INTEGER NO-UNDO.
DEFINE VARIABLE iEntries AS INTEGER NO-UNDO.
DEFINE VARIABLE iIntlEntries AS INTEGER NO-UNDO.
ASSIGN cList = SESSION:SUPER-PROCEDURES
iEntries = NUM-ENTRIES(cList).
DO iLoop = 1 TO iEntries:
ASSIGN hProc = WIDGET-HANDLE(ENTRY(iLoop,cList))
cIntlList = hProc:INTERNAL-ENTRIES
iIntlEntries = NUM-ENTRIES(hProc:INTERNAL-ENTRIES).
DO iIntlLoop = 1 TO iIntlEntries:
MESSAGE hProc:FILE-NAME SKIP
ENTRY(iIntlLoop,cIntlList) SKIP
hProc:GET-SIGNATURE(ENTRY(iIntlLoop,cIntlList))
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
END.