DECLARE
  address_street_name VARCHAR2(30);
  address_number VARCHAR2(18);
  address_street_type VARCHAR2(4);
  address_city  VARCHAR2(20);
  address_zip NUMBER(5);
  unit VARCHAR2(10);
  address_string VARCHAR(80);
  CURSOR address_cursor IS
    SELECT st_nm, st_nbr, st_type, city, zip, sectn_id FROM address_unit
      WHERE address_unit.pb_parc_id IN
         (SELECT termid FROM structure_terminal
         WHERE structure_terminal.structid IN
            (SELECT structure_id FROM equipment
            WHERE equipment.equipment_id IN
               (SELECT id FROM av_trace)));

BEGIN

  OPEN address_cursor;
  LOOP
    FETCH address_cursor INTO address_street_name, address_number, address_stree
t_type, address_city, address_zip, unit;
      EXIT WHEN address_cursor%NOTFOUND;

    address_string := address_number || ' '|| unit || ' ' || address_street_name
 || ' ' || address_street_type || ', ' || address_city || ', CA  ' || address_zi
p;

    INSERT INTO address_list VALUES (address_string);
        
  END LOOP;
  
  CLOSE address_cursor;

  COMMIT;

END;
/