I can't extracts the records in list (grid)

Question

DECLARE
CURSOR CUR_FET IS SELECT * FROM item_reservation_temp;
t_var item_reservation_temp.t%type;
BEGIN
     GO_BLOCK('item_reservation');
FIRST_RECORD;
     OPEN CUR_FET;
LOOP
          FETCH CUR_FET INTO T_VAR;          
          EXIT WHEN CUR_FET%NOTFOUND;
               :item_reservation.ITEM_CODE:=SUBSTR(T_VAR,1,10);
               :item_reservation.CCN:=SUBSTR(T_VAR,12,3);
          :item_reservation.RESERV_QUANTITY:=SUBSTR(T_VAR,16);     
NEXT_RECORD;
     END LOOP;     
     EXCEPTION
          WHEN no_data_found THEN
          RAISE FORM_TRIGGER_FAILURE;
     close cur_fet;
END;

Answer 1

Declare
   Cursor cur_fet
   Is
      Select Substr (T, 1, 10) col1, Substr (T, 12, 3) col2,
             Substr (T, 16) col3
        From item_reservation_temp;
   cur_data   cur_fet%Rowtype;
Begin
   GO_BLOCK ('item_reservation');
   FIRST_RECORD;
   Open cur_fet;
   Loop
      Fetch cur_fet
       Into cur_data;
      Exit When cur_fet%Notfound;
      :item_reservation.item_code := cur_data.col1;
      :item_reservation.ccn := cur_data.col2;
      :item_reservation.reserv_quantity := cur_data.col3;
      NEXT_RECORD;
   End Loop;
   Close cur_fet;
Exception
   When Others
   Then
      Raise form_trigger_failure;
End;Edited by: user291283 on Aug 31, 2009 9:54 PM