/* Return status */
DEFINE VARIABLE handle1 AS INTEGER NO-UNDO. DEFINE VARIABLE stat AS INTEGER NO-UNDO. RUN STORED-PROCEDURE pcust handle1 = PROC-HANDLE (20, output 0, output 0). CLOSE STORED-PROC pcust stat = PROC-STATUS WHERE PROC-HANDLE = handle1. IF stat = 0 THEN DISPLAY "procedure succeeded". |