[AS400]建立DB2存储过程

1.关联到RPG程序的存储过程

CREATE PROCEDURE MYLIB.P1( 
    INOUT AA CHAR(4) ) 
    LANGUAGE RPG 
    SPECIFIC MYLIB.P1 
    NOT DETERMINISTIC 
    CONTAINS SQL 
    CALLED ON NULL INPUT 
    EXTERNAL NAME 'MYLIB/RPG1' 
    PARAMETER STYLE GENERAL ;

2.直接SQL语句的存储过程

CREATE PROCEDURE MYLIB.P2 ( 
    IN AA VARCHAR(11) ) 
    LANGUAGE SQL 
    SPECIFIC MYLIB.P2 
    NOT DETERMINISTIC 
    MODIFIES SQL DATA 
    CALLED ON NULL INPUT
    INSERT INTO MYLIB.T1  (AA ) VALUES ( AA )  ;