Kbase P7107: how to get the handle of a super procedure in ADM2 added to
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
1/29/2003 |
|
Status: Unverified
GOAL:
how to get the handle of a super procedure in ADM2 added to SESSION handle with RUN start-super-proc( <file name> ).
FIX:
Query SUPER-PROCEDURES attibute of SESSION system handle and chack for FILE-NAME
of each handle from that list.
example:
DEF VAR vc AS CHAR.
DEF VAR vi AS INTEGER.
DEF VAR vh AS HANDLE.
def var vl_found as logical.
vc = SESSION:SUPER-PROCEDURES.
vl_found = FALSE.
block_proc:
do vi = 1 to NUM-ENTRIES( vc ) :
vh = WIDGET-HANDLE( ENTRY( vi, vc ) ).
IF vh:FILE-NAME( "myname" ) THEN DO:
vl_found = TRUE.
LEAVE block_proc.
END.
END.
IF vl_found THEN DO:
/* I have the proc handle in vH */
END.