oracle 存储过程实例-3

   PROCEDURE autoissuereturns (pagenum IN NUMBER, pagesize IN NUMBER)
   AS
      businessdate      DATE;
      tinid             VARCHAR (50);
      CURSOR vv02cur
      IS
         SELECT cr01_tin_id, cr12_accounts_number, cr01_calendar_type
           FROM (SELECT a.*, ROWNUM rn
                   FROM vv02_accounts_tin a)
          WHERE rn BETWEEN (pagenum - 1) * pagesize + 1 AND pagenum * pagesize;

     OPEN vv02cur;

      LOOP
         FETCH vv02cur
          INTO tinid, accountid, calendartype;

         EXIT WHEN vv02cur%NOTFOUND;
         if taxtype <> '01'
          then
         isautoissue (accountid, taxyear, businessdate, calendartype, 1);
         isautoissue (accountid, taxyear, businessdate, calendartype, 2);
         isautoissue (accountid, taxyear, businessdate, calendartype, 3);
         end if;
      END LOOP;
      CLOSE vv02cur;
   END autoissuereturns;