function UnZipFile (DirectoryName varchar2, 
                    ZipFileName   varchar2) return UnZipFileNameList pipelined is
    
  ZipFile UnZipFileNameList;
    
  begin
    ZipFile := UnZipGetFileList(DirectoryName, ZipFileName);
    
    for i in ZipFile.first..ZipFile.last
      loop
        pipe row(ZipFile(i));
      end loop;
  
    return;
  
  exception
    when others
      then
        raise;
  
  end;

  exception
    when others
      then
        raise;
  end;

  exception
    when others
      then
        begin raise;
    exception
    when others
      then
        begin raise;
    exception
    when others
      then
        begin raise;
    exception
    when others
      then
        raise;
  end; 
  end;
  end;
  end;