CREATE OR REPLACE PROCEDURE make_pasp_list
AS
  v_ser List_Of_Expired_Passports.Passp_Series%TYPE;
  v_num List_Of_Expired_Passports.Passp_Number%TYPE;
  i integer;
  CURSOR curr
  IS
    SELECT
      lz.PASSP_SERIES ser_ser,
      lz.PASSP_NUMBER num_num
    FROM
      LIST_OF_EXPIRED_PASSPORTS lz
    WHERE
      Lz.Allin IS NULL ;

BEGIN
 i := 1;
  OPEN curr;
  LOOP
  i := i + 1;
 EXIT
  WHEN curr%NOTFOUND;
   -- DBMS_OUTPUT.enable;
    FETCH  curr  INTO v_ser, v_num;
    insert into LIST_EXPIRED_PASP (SER, NUM, ALLL) values (v_ser, v_num, v_ser||v_num);
     if mod(i, 100)= 0 then commit; end if;
      i := 0;
   -- DBMS_OUTPUT.put_line(v_ser ||' '|| v_num);
  END LOOP;
  CLOSE curr;
END;

 insert into LIST_EXPIRED_PASP (SER, NUM, ALLL) values (.....);