cursor c2 is 
          select alt_cd code1,
                 sum(alt_amt) amount1
          from   acc_loc1_tab
          where alt_authdt between :BLOCK15.FROMDATE and :BLOCK15.TODATE
               and alt_loc = :BLOCK15.LOCATION ;  
          GROUP BY ALT_CD;  

EXIT WHEN c1%NOTFOUND;

IF c1%ISOPEN THEN
  CLOSE c1;
END IF;