Коллекции

declare
  cursor myCur IS
         select ID_VZNOSI, ID_FIRM, ID_ACCOUNT, DATE_SP, SUMA from VZNOSI;
         
  type TMyRecord IS RECORD
  (
   myData myCur%ROWTYPE,
   Note varchar2(500) 
  );
  
  MyRecord TMyRecord;
  
  Type TMyCollection IS TABLE OF TMyRecord;
  MyCollection  TMyCollection := TMyCollection();
  
  i integer;
BEGIN
     i:=1;
     OPEN myCur;
     loop
         FETCH myCur INTO MyRecord.myData;
         EXIT WHEN myCur%NOTFOUND;
         if (MyRecord.myData.SUMA > 200) then
            MyRecord.Note := 'Ну не фига себе';
         ELSE
            MyRecord.Note := 'Лохи';    
         END IF ;  
         
         MyColelction.EXTEND;
         MyCollection(i) := MyRecord;
         i := i+1;
         DBMS_OUTPUT.Put_Line(MyRecord.myData.ID_FIRM||'----'||MyRecord.myData.SUMA||'-----'||MyRecord.Note);
     END LOOP;
     Close myCur;    
END;

--MyColelction.EXTEND;
  MyCollection.EXTEND;