ﾇ・ﾊﾈ郤ﾎﾔﾚPL/SQLﾖﾐｱ獎ｴﾍｬﾊｱｶﾔﾁｽｸｾﾝｱ晳ﾐﾐｴﾈ・ﾄｴ惲・
ｲｿｷﾖｳﾌﾐ醯ﾂ
ﾇ・ｸﾕ




FUNCTION f_ReSaveWork (
        ,i_checkc               IN      VARCHAR2             
,i_excuse               IN      VARCHAR2             
,i_approval             IN      VARCHAR2             
,o_sts_code             OUT     NUMBER               
     ,o_sts_err              OUT     VARCHAR2             
    ) RETURN NUMBER;
    IS
        ret  NUMBER       := 0;
        debug_path   VARCHAR2(50) := '/tmp';
        sqler_file   VARCHAR2(50) := 'sqlerr.log';
    BEGIN
        o_sts_code := 0;
        o_sts_err  := NULL;

        SELECT      A.1212
                   ,A.23123
                   ,B.asdasd
          FROM
                    asd A
                   ,qwe B
         WHERE      A.zxc = B.zxc
   AND      B.vbn = B.vbn
        INSERT 
          INTO       A (
                    1212
                   ,23123)
        VALUES 
                    (i_checkc
                    ,i_excuse)
        WHERE      A.zxc = B.zxc
   AND      B.vbn = B.vbn

        INSERT 
          INTO       B (
                    asdasd
                   )
        VALUES   (i_approval)
        WHERE      A.zxc = B.zxc
   AND      B.vbn = B.vbn



 ret := CM.CRNORMAL;
            
        RETURN ret;
    EXCEPTION
        WHEN OTHERS
        THEN
            CMDBAC.p_ErrCatch( 'GI221700', 'f_DeleteWork' );
            CMLGPT.p_DbErrPut( 'GI221700', 'f_DeleteWork', '用度ワークDELETE処理エラー', NULL );
            o_sts_code := SQLCODE;
            o_sts_err := SQLERRM;
            CMDBAC.p_DebugPrt( 'GI221700.f_DeleteWork', SUBSTR(TO_CHAR(SQLCODE)||' '|| SQLERRM,1,256), debug_path, sqler_file );
            RETURN  CM.CRERROR; 
END f_DeleteWork;

你想说什么