Update DN with Procedure

Update DN

 CREATE PROCEDURE NKXPRTEMP/UPD_DN(IN DNNO CHAR ( 10))
 LANGUAGE SQL MODIFIES SQL DATA   

 BEGIN
     -- Step 1
     UPDATE DNRITM A SET (DNITTQTY, DNIREQTY) = (SELECT
        SUM(RTLEXQTY), SUM(RTLEXQTY) FROM DNRSZE B
     WHERE A.DNDLNNBR = B.DNDLNNBR  AND A.MMPRDMAT = B.MMPRDMAT )
     WHERE DNDLNNBR = DNNO ;                                         

     -- Step 2
     UPDATE DNRDHE A SET ( DNOFPQTY, DNROPQTY, DNNFPQTY, DNNRPQTY ) =
      ( SELECT SUM( DNIFCQTY), SUM(DNIREQTY), SUM( DNIFCQTY),
        SUM(DNIREQTY) FROM DNRITM B WHERE A.DNDLNNBR = B.DNDLNNBR )
     WHERE DNDLNNBR = DNNO ;                                         

     -- Step 3
     UPDATE DNRHDR A SET(DNOFCQTY, DNORPQTY, DNNVFQTY, DNNVRQTY ) =(
        SELECT DNOFPQTY, DNROPQTY, DNNFPQTY, DNNRPQTY FROM DNRDHE B
     WHERE A.DNDLNNBR = B.DNDLNNBR )
     WHERE DNDLNNBR = DNNO  ;  

 END 

Update DN

-- Use

CALL NKXPRTEMP/UPDATE_DN ( 435184008 )
CALL STATEMENT COMPLETE.

-----------------------------------------------------------------------------------------------------------------------------------------------

IBM Information Center

-----------------------------------------------------------------------------------------------------------------------------------------------

 CREATE PROCEDURE CREDITP(
     IN i_perinc DECIMAL(3,2),
     INOUT o_numrec DECIMAL(5,0))
 LANGUAGE SQL
 BEGIN atomic
     DECLARE proc_cusnbr CHAR(5);
     DECLARE proc_cuscrd DECIMAL(11,2);
     DECLARE numrec DECIMAL(5,0);
     DECLARE at_end INT DEFAULT 0;
     DECLARE not_found CONDITION FOR '';

     DECLARE c1 CURSOR FOR
         SELECT cusnbr, cuscrd
         FROM ordapplib.customer;

     DECLARE CONTINUE HANDLER FOR not_found
         SET at_end = 1;

     SET numrec = 0;
     OPEN c1;
         FETCH c1 INTO proc_cusnbr, proc_cuscrd;
         WHILE at_end = 0 DO
             SET proc_cuscrd = proc_cuscrd +(proc_cuscrd * i_perinc);
             UPDATE ordapplib.customer
             SET cuscrd = proc_cuscrd
             WHERE CURRENT OF c1;
             SET numrec = numrec + 1;
             FETCH c1 INTO proc_cusnbr, proc_cuscrd;
         END WHILE;

         SET o_numrec = numrec;
     CLOSE c1;
 END