Advertisement
Guest User

Untitled

a guest
Feb 20th, 2019
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.54 KB | None | 0 0
  1. declare
  2. f UTL_FILE.FILE_TYPE;
  3. ldir varchar2(100) := 'DATA_PUMP_DIR';
  4. lfile varchar2(100) := 'writefile.sql';
  5. vtable m_code_tabletype := m_code_tabletype();
  6. BEGIN
  7. f := UTL_FILE.FOPEN(ldir,lfile,'R');
  8. IF UTL_FILE.IS_OPEN(f) THEN
  9. LOOP
  10. BEGIN
  11. UTL_FILE.GET_LINE(f,lfile);
  12. IF lfile IS NULL THEN
  13. EXIT;
  14. END IF;
  15. --do parsing
  16. -- col1, col2, ...
  17. vtable.extend;
  18. vtable(vtable.count) := m_code_object(col1, col2, ...);
  19. END;
  20. END LOOP;
  21.  
  22. COMMIT;
  23. END IF;
  24. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement