Progress
Language Reference


DELETE PROCEDURE Statement

Interfaces
OS
SpeedScript
All
All
Yes

Deletes an instance of a persistent procedure. The persistent procedure can be local or remote.

SYNTAX

DELETE PROCEDURE proc-handle [ NO-ERROR ] 

proc-handle

The handle of a local or remote persistent procedure. This is a variable, field, or expression of type HANDLE that contains a valid persistent procedure handle.

For a proxy persistent procedure handle, this statement deletes the handle
immediately unless there is an outstanding asynchronous request on this handle (handle:ASYNC-REQUEST-COUNT is greater than zero (0)). If handle:ASYNC-REQUEST-COUNT is greater than zero (0), this statement raises the ERROR condition. Otherwise, the statement also sends a request to the AppServer to delete the corresponding remote persistent procedure on the AppServer. If the AppServer is executing any asynchronous requests ahead of it, Progress queues the delete request (as with any asynchronous remote request) until the AppServer is available to handle it.

NOTE: This same behavior occurs if the remote procedure deletes itself (using DELETE...THIS-PROCEDURE) on the AppServer.

For more information on remote persistent procedures, see Building Distributed Applications Using the Progress AppServer .

NO-ERROR

Specifies that any errors that occur when you try to delete the procedure are suppressed. After the DELETE PROCEDURE statement completes, you can check the ERROR-STATUS system handle for information on any errors that might have occurred.

EXAMPLE

When you run the following procedure non-persistently, the procedure creates a persistent instance of itself in addition to the non-persistent instance, creating two query windows for the customer table. Choosing the Cancel button in either window causes the instance that owns that window to terminate. If the instance you terminate is persistent, the Cancel button runs an internal procedure that executes the DELETE PROCEDURE statement for that instance as specified by the THIS-PROCEDURE system handle.

r-delprc.p
DEFINE QUERY custq FOR customer.
DEFINE BROWSE custb QUERY custq
    DISPLAY name balance phone WITH 10 DOWN.
DEFINE BUTTON bName LABEL "Query on Name".
DEFINE BUTTON bBalance LABEL "Query on Balance".
DEFINE BUTTON bCancel LABEL "Cancel".
DEFINE FRAME CustFrame custb SKIP bName bBalance bCancel.
DEFINE VARIABLE custwin AS WIDGET-HANDLE.

ON CHOOSE OF bName IN FRAME CustFrame DO:
    custwin:TITLE = "Customers by Name".
    OPEN QUERY custq FOR EACH customer BY name.
END.        
ON CHOOSE OF bBalance IN FRAME CustFrame DO:
    custwin:TITLE = "Customers by Balance".
    OPEN QUERY custq FOR EACH customer BY balance DESCENDING.
END.  

IF THIS-PROCEDURE:PERSISTENT THEN DO:
    THIS-PROCEDURE:PRIVATE-DATA = "Customer Browse".
    CREATE WIDGET-POOL.
END.
CREATE WINDOW custwin
    ASSIGN
        TITLE = IF THIS-PROCEDURE:PERSISTENT
                THEN "Persistent Customer Browser"
                ELSE "Customer Browser"               
        SCROLL-BARS = FALSE
        MAX-HEIGHT-CHARS = FRAME CustFrame:HEIGHT-CHARS
        MAX-WIDTH-CHARS = FRAME CustFrame:WIDTH-CHARS.
THIS-PROCEDURE:CURRENT-WINDOW = custwin.
ENABLE ALL WITH FRAME CustFrame.
IF THIS-PROCEDURE:PERSISTENT THEN DO:
    ON CHOOSE OF bCancel IN FRAME CustFrame DO:
        RUN destroy-query.
    END.
END.
ELSE DO:
    RUN r-delprc.p PERSISTENT. 
    WAIT-FOR CHOOSE OF bCancel IN FRAME CustFrame.
    DELETE WIDGET custwin.
END.

PROCEDURE destroy-query:
    DELETE PROCEDURE THIS-PROCEDURE.
    DELETE WIDGET-POOL.
END. 

NOTES

SEE ALSO

RUN Statement, THIS-PROCEDURE System Handle, VALID-HANDLE Function


Copyright © 2004 Progress Software Corporation
www.progress.com
Voice: (781) 280-4000
Fax: (781) 280-4095