HP 3000 Manuals

ALLBASE/SQL Release F.0 Application Programming Bulletin for MPE/iX

Returning a Return Status Code 

A return status code is an integer value returned from a procedure not
invoked by a rule.  You define the meaning of the code within the
procedure.  You could use the return status code to indicate the success
or failure of the procedure, the value of SQLCODE, or some other flag.

You must declare an integer host variable in your application to hold the
code, and use the host variable as a part of the EXECUTE PROCEDURE
statement.  Any legal host variable name can be used as a return code
name.  The following example in C uses an integer host variable named
Status:

     EXEC SQL EXECUTE PROCEDURE  :Status = 
        Process12(:OpName :OpNameInd, :Shift :ShiftInd, :FailureType);
     if(sqlca.sqlcode==0) {
        if(Status==0) printf("Failure type entered\n");
        else printf("Failure type not entered. INSERT failed\n");
        }

A similar example in COBOL uses an integer host variable named RETCODE:

     EXEC SQL EXECUTE PROCEDURE  :RETCODE = PROCESS12 (:OPERATOR :OPERATORIND,
          :SHIFT :SHIFTIND, :FAILURETYPE) END-EXEC.
     IF SQLCODE IS ZERO THEN
        IF RETCODE IS ZERO THEN
           DISPLAY "FAILURE TYPE ENTERED."
        ELSE
           DISPLAY "FAILURE TYPE NOT ENTERED. INSERT FAILED."
        END-IF
     END-IF.

On return from the execution of the procedure, you first test SQLCODE,
and if it is zero, you then test the value of the return code.  If
SQLCODE is not zero, the return code is undefined, since the procedure
failed to execute properly.

MPE/iX 5.0 Documentation