create or replace
PROCEDURE PrintFile(p_fName VARCHAR2) as
  f utl_file.file_type;
  pga int;
BEGIN
  pga := execute immediate 'select sum(value) from v$pgastat;';
  f := utl_file.fopen('INPUT', p_fName, 'w');
  UTL_FILE.PUT_LINE(f,TO_CHAR(SYSDATE,'MM-DD-YY HH:MI:SS AM')||pga);
  UTL_FILE.FCLOSE(f);
EXCEPTION
  WHEN NO_DATA_FOUND THEN UTL_FILE.FCLOSE(f);
END;