How to get all internal procedure names which are in one procedure file

[paruthi]

can any help me?
i want to get all internal procedure names which are in one procedure file.

 

[RealHeavyDude]

Have a look at the INTERNAL-ENTRIES attribute which applies to a procedure handle.


HTH, RealHeavyDude.

 

[MaximMonin]

Here is example to run event trigger procedure if procedure exists:
case event:
WHEN {&ON-CLOSE-DOCUMENT} then
do:
if lookup ( "OnCloseDocument",
THIS-PROCEDURE:INTERNAL-ENTRIES ) > 0 then
do:
run OnCloseDocument ( rid-doc ) NO-ERROR.
if ERROR-STATUS:ERROR then RETURN "ERROR".
end.
RETURN "OK".
end.

 

[paruthi]

Thanks for your help

 

[paruthi]

How do i use INTERNAL-ENTRIES?
Can u give sample code

 

[jdpjamesp]

The example's there already.

if lookup ( "OnCloseDocument",
       THIS-PROCEDURE:INTERNAL-ENTRIES ) > 0 then
    do:
      run OnCloseDocument ( rid-doc ) NO-ERROR.
end.