eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

SYS.DBMS_PREUP dependencies on UTL_FILE

Line 332: pOutputUFT UTL_FILE.FILE_TYPE;

328: --
329: -- file names and file pointers -
330: -- Used when outputting to preupgrade log file
331: --
332: pOutputUFT UTL_FILE.FILE_TYPE;
333: pOutputFName VARCHAR2(512) := NULL;
334: pOutputLocation VARCHAR2(512) := NULL; -- text/xml directory object name
335: -- PREUPGRADE_DIR or PREUPG_OUTPUT_DIR
336: pOutputVerified BOOLEAN;

Line 346: pPreScriptUFT UTL_FILE.FILE_TYPE;

342: --
343: -- file names and file pointers -
344: -- Used for outputting to preupgrade and postupgrade fixup sql scripts
345: --
346: pPreScriptUFT UTL_FILE.FILE_TYPE;
347: pPostScriptUFT UTL_FILE.FILE_TYPE;
348: pPreScriptFname VARCHAR2(512) := c_pre_script_fn;
349: pPostScriptFname VARCHAR2(512) := c_post_script_fn;
350:

Line 347: pPostScriptUFT UTL_FILE.FILE_TYPE;

343: -- file names and file pointers -
344: -- Used for outputting to preupgrade and postupgrade fixup sql scripts
345: --
346: pPreScriptUFT UTL_FILE.FILE_TYPE;
347: pPostScriptUFT UTL_FILE.FILE_TYPE;
348: pPreScriptFname VARCHAR2(512) := c_pre_script_fn;
349: pPostScriptFname VARCHAR2(512) := c_post_script_fn;
350:
351: -- TRUE if 'will be' or 'is' outputting/generating fixup scripts; else FALSE

Line 2933: UTL_FILE.PUT_LINE (pOutputUFT,line);

2929: --
2930: IF p_package_inited = FALSE OR pOutputDest = c_output_terminal THEN
2931: dbms_output.put_line (line);
2932: ELSE
2933: UTL_FILE.PUT_LINE (pOutputUFT,line);
2934: END IF;
2935: END DisplayLine;
2936:
2937: --

Line 2940: PROCEDURE DisplayLine (uft UTL_FILE.FILE_TYPE, line IN VARCHAR2)

2936:
2937: --
2938: -- Put a line of text directly to a file
2939: --
2940: PROCEDURE DisplayLine (uft UTL_FILE.FILE_TYPE, line IN VARCHAR2)
2941: IS
2942: BEGIN
2943: BEGIN
2944: UTL_FILE.PUT_LINE (uft,line);

Line 2944: UTL_FILE.PUT_LINE (uft,line);

2940: PROCEDURE DisplayLine (uft UTL_FILE.FILE_TYPE, line IN VARCHAR2)
2941: IS
2942: BEGIN
2943: BEGIN
2944: UTL_FILE.PUT_LINE (uft,line);
2945: EXCEPTION
2946: WHEN OTHERS THEN NULL; -- utl_file.invalid_filehandle
2947: END;
2948: END DisplayLine;

Line 2946: WHEN OTHERS THEN NULL; -- utl_file.invalid_filehandle

2942: BEGIN
2943: BEGIN
2944: UTL_FILE.PUT_LINE (uft,line);
2945: EXCEPTION
2946: WHEN OTHERS THEN NULL; -- utl_file.invalid_filehandle
2947: END;
2948: END DisplayLine;
2949:
2950: PROCEDURE DisplayDiagLine (line IN VARCHAR2)

Line 2983: PROCEDURE DisplayLineBoth (uft UTL_FILE.FILE_TYPE, line IN VARCHAR2)

2979: -- are being run.
2980: -- If the line parameter contains single quote characters, they will be doubled
2981: -- here as needed for the script output.
2982: --
2983: PROCEDURE DisplayLineBoth (uft UTL_FILE.FILE_TYPE, line IN VARCHAR2)
2984: IS
2985: BEGIN
2986: DisplayLine(line);
2987: IF pOutputFixupScripts THEN

Line 3002: PROCEDURE DisplayBanner (uft UTL_FILE.FILE_TYPE)

2998:
2999: --
3000: -- Overloaded version go to script file if we are creating one.
3001: --
3002: PROCEDURE DisplayBanner (uft UTL_FILE.FILE_TYPE)
3003: IS
3004: BEGIN
3005: DisplayLine('**********************************************************************');
3006: IF pOutputFixupScripts THEN

Line 3026: PROCEDURE DisplayCenter (uft UTL_FILE.FILE_TYPE, line IN VARCHAR2)

3022: --
3023: -- Overloaded, including dumping to script file (only TEXT to be
3024: -- displayed when the script file is executed)
3025: --
3026: PROCEDURE DisplayCenter (uft UTL_FILE.FILE_TYPE, line IN VARCHAR2)
3027: IS
3028: BEGIN
3029: DisplayLine(LPAD(line,35+(length(line)/2)+1));
3030: IF pOutputFixupScripts THEN

Line 3068: PROCEDURE DisplayBlankLine (uft UTL_FILE.FILE_TYPE)

3064: DisplayLine ('ERROR: --> ' || text);
3065: END DisplayError;
3066:
3067: -- Put a blank line in a file (e.g., preupgrade fixup script)
3068: PROCEDURE DisplayBlankLine (uft UTL_FILE.FILE_TYPE)
3069: IS
3070: BEGIN
3071: DisplayLine (uft, ' ');
3072: END DisplayBlankLine;

Line 3199: UTL_FILE.FREMOVE(c_pdb_dir_obj, pOutputFName);

3195:
3196: -- initialize: remove pdb text files in pdbfiles subdir
3197: IF pConcatToMainFile THEN
3198: BEGIN
3199: UTL_FILE.FREMOVE(c_pdb_dir_obj, pOutputFName);
3200: EXCEPTION WHEN OTHERS THEN NULL;
3201: END;
3202:
3203: BEGIN

Line 3204: UTL_FILE.FREMOVE(c_pdb_dir_obj, pPreScriptFname);

3200: EXCEPTION WHEN OTHERS THEN NULL;
3201: END;
3202:
3203: BEGIN
3204: UTL_FILE.FREMOVE(c_pdb_dir_obj, pPreScriptFname);
3205: EXCEPTION WHEN OTHERS THEN NULL;
3206: END;
3207:
3208: BEGIN

Line 3209: UTL_FILE.FREMOVE(c_pdb_dir_obj, pPostScriptFname);

3205: EXCEPTION WHEN OTHERS THEN NULL;
3206: END;
3207:
3208: BEGIN
3209: UTL_FILE.FREMOVE(c_pdb_dir_obj, pPostScriptFname);
3210: EXCEPTION WHEN OTHERS THEN NULL;
3211: END;
3212: END IF;
3213:

Line 3218: UTL_FILE.FREMOVE(pOutputLocation, c_wrlock_fname);

3214: -- remove lock (just in case it exists from a previous run) right at the
3215: -- begin of connect to either a non-cdb or cdb root
3216: IF (dbms_preup.is_db_noncdb OR dbms_preup.is_con_root) THEN
3217: BEGIN
3218: UTL_FILE.FREMOVE(pOutputLocation, c_wrlock_fname);
3219: EXCEPTION
3220: WHEN invalidFileOperation THEN NULL;
3221: WHEN OTHERS THEN NULL;
3222: END;

Line 3241: UTL_FILE.FOPEN(pOutputLocation, pOutputFName, 'W', c_fopen_max_lsz);

3237: IF (pOutputType = c_output_text) THEN
3238: -- preupgrade.log is opened in write mode
3239: -- preupgrade..log is also opened in write mode
3240: pOutputUFT :=
3241: UTL_FILE.FOPEN(pOutputLocation, pOutputFName, 'W', c_fopen_max_lsz);
3242: IF tracing_on_xxx = TRUE THEN
3243: dbms_output.put_line('XXX preupgrade log opened');
3244: dbms_output.put_line('XXX out dir obj ' || pOutputLocation);
3245: dbms_output.put_line('XXX pOutputFName ' || pOutputFName);

Line 3255: UTL_FILE.FOPEN(pOutputLocation, pOutputFName, 'A', c_fopen_max_lsz);

3251: -- MAIN upgrade.xml for DBUA, then should pConcatToMainFile
3252: -- is equal to TRUE, the file open mode would be 'W', not 'A'.
3253: --
3254: pOutputUFT :=
3255: UTL_FILE.FOPEN(pOutputLocation, pOutputFName, 'A', c_fopen_max_lsz);
3256: END IF;
3257:
3258: EXCEPTION
3259: WHEN OTHERS THEN

Line 3326: IF (UTL_FILE.IS_OPEN(pOutputUFT)) THEN

3322: dbms_output.put_line('XXX in close_file');
3323: END IF;
3324:
3325: IF pOutputDest = c_output_file THEN
3326: IF (UTL_FILE.IS_OPEN(pOutputUFT)) THEN
3327: UTL_FILE.FCLOSE(pOutputUFT);
3328: IF tracing_on_xxx THEN
3329: dbms_output.put_line('XXX close log file');
3330: END IF;

Line 3327: UTL_FILE.FCLOSE(pOutputUFT);

3323: END IF;
3324:
3325: IF pOutputDest = c_output_file THEN
3326: IF (UTL_FILE.IS_OPEN(pOutputUFT)) THEN
3327: UTL_FILE.FCLOSE(pOutputUFT);
3328: IF tracing_on_xxx THEN
3329: dbms_output.put_line('XXX close log file');
3330: END IF;
3331: END IF;

Line 3334: IF (UTL_FILE.IS_OPEN(pPreScriptUFT)) THEN

3330: END IF;
3331: END IF;
3332: pOutputDest := c_output_terminal;
3333:
3334: IF (UTL_FILE.IS_OPEN(pPreScriptUFT)) THEN
3335: UTL_FILE.FCLOSE(pPreScriptUFT);
3336: IF tracing_on_xxx THEN
3337: dbms_output.put_line('XXX close preupgrade_fixups.sql');
3338: END IF;

Line 3335: UTL_FILE.FCLOSE(pPreScriptUFT);

3331: END IF;
3332: pOutputDest := c_output_terminal;
3333:
3334: IF (UTL_FILE.IS_OPEN(pPreScriptUFT)) THEN
3335: UTL_FILE.FCLOSE(pPreScriptUFT);
3336: IF tracing_on_xxx THEN
3337: dbms_output.put_line('XXX close preupgrade_fixups.sql');
3338: END IF;
3339: END IF;

Line 3341: IF (UTL_FILE.IS_OPEN(pPostScriptUFT)) THEN

3337: dbms_output.put_line('XXX close preupgrade_fixups.sql');
3338: END IF;
3339: END IF;
3340:
3341: IF (UTL_FILE.IS_OPEN(pPostScriptUFT)) THEN
3342: UTL_FILE.FCLOSE(pPostScriptUFT);
3343: IF tracing_on_xxx THEN
3344: dbms_output.put_line('XXX close postupgrade_fixups.sql');
3345: END IF;

Line 3342: UTL_FILE.FCLOSE(pPostScriptUFT);

3338: END IF;
3339: END IF;
3340:
3341: IF (UTL_FILE.IS_OPEN(pPostScriptUFT)) THEN
3342: UTL_FILE.FCLOSE(pPostScriptUFT);
3343: IF tracing_on_xxx THEN
3344: dbms_output.put_line('XXX close postupgrade_fixups.sql');
3345: END IF;
3346: END IF;

Line 3455: pPreScriptUFT := UTL_FILE.FOPEN(pOutputLocation, pPreScriptFname,

3451: -- a) non-cdb: overwrite 'preupgrade_fixups.sql' if already exists
3452: -- b) cdb: Since ROOT writes to 'preupgrade_fixups.sql' and PDBs write
3453: -- to 'preupgrade_fixups..sql', each file will be
3454: -- overwritten if already exists
3455: pPreScriptUFT := UTL_FILE.FOPEN(pOutputLocation, pPreScriptFname,
3456: 'W', c_fopen_max_lsz);
3457:
3458: IF tracing_on_xxx THEN
3459: dbms_output.put_line('XXX opened file ' || pPreScriptFname);

Line 3478: UTL_FILE.FOPEN(pOutputLocation, pPostScriptFname, 'W',

3474: -- to 'postupgrade_fixups..sql', each file will be
3475: -- overwritten if already exists
3476: BEGIN
3477: pPostScriptUFT :=
3478: UTL_FILE.FOPEN(pOutputLocation, pPostScriptFname, 'W',
3479: c_fopen_max_lsz);
3480:
3481: IF tracing_on_xxx THEN
3482: dbms_output.put_line('XXX opened file ' || pPostScriptFname);

Line 4145: -- Set the package variable (will be used for utl_file)

4141: pTextLogDir:= logDir; -- PREUPGRADE_DIR
4142: pPdbLogDir := pdbLogDir; -- PDB_PREUPGRADE_DIR
4143:
4144: --
4145: -- Set the package variable (will be used for utl_file)
4146: --
4147: pOutputLocation := c_dir_obj;
4148: pOutputVerified := TRUE;
4149:

Line 5449: tfile UTL_FILE.FILE_TYPE;

5445: idx NUMBER;
5446: rstr VARCHAR2(400);
5447: tlevel VARCHAR2(30);
5448: taction VARCHAR2(50);
5449: tfile UTL_FILE.FILE_TYPE;
5450:
5451: BEGIN
5452: IF pCheckOnly THEN
5453: return;

Line 12935: pdbFilePtr IN OUT UTL_FILE.FILE_TYPE,

12931: -- note: this is done if a write lock file is created.
12932: --
12933: PROCEDURE write_pdb_file (locDirObj IN VARCHAR2,
12934: pdbFileName IN VARCHAR2,
12935: pdbFilePtr IN OUT UTL_FILE.FILE_TYPE,
12936: destFileName IN VARCHAR2
12937: )
12938: -- locDirObj VARCHAR2(512) -- PREUPGRADE_DIR
12939: -- pdbFileName VARCHAR2(512) -- pdb file name to concat from

Line 12940: -- pdbFilePtr UTL_FILE.FILE_TYPE -- pdb file pointer to concat from

12936: destFileName IN VARCHAR2
12937: )
12938: -- locDirObj VARCHAR2(512) -- PREUPGRADE_DIR
12939: -- pdbFileName VARCHAR2(512) -- pdb file name to concat from
12940: -- pdbFilePtr UTL_FILE.FILE_TYPE -- pdb file pointer to concat from
12941: -- destFileName VARCHAR2(512) -- main destination file to write to
12942: IS
12943: destFilePtr UTL_FILE.FILE_TYPE; -- destination file to concat to
12944: buf VARCHAR2(15010); -- read line buffer (c_max_lsz + 10)

Line 12943: destFilePtr UTL_FILE.FILE_TYPE; -- destination file to concat to

12939: -- pdbFileName VARCHAR2(512) -- pdb file name to concat from
12940: -- pdbFilePtr UTL_FILE.FILE_TYPE -- pdb file pointer to concat from
12941: -- destFileName VARCHAR2(512) -- main destination file to write to
12942: IS
12943: destFilePtr UTL_FILE.FILE_TYPE; -- destination file to concat to
12944: buf VARCHAR2(15010); -- read line buffer (c_max_lsz + 10)
12945: line_num NUMBER := 0; -- line number to the pdb file
12946: invalidFileRename EXCEPTION;
12947: PRAGMA exception_init(invalidFileRename, -29292);

Line 12958: destFilePtr := UTL_FILE.FOPEN(locDirObj, destFileName, 'A');

12954:
12955: -- Do not open the destination dest files unless write lock file is created.
12956: -- Possible destination files if this db is a PDB : preupgrade.log,
12957: -- preupgrade_fixups.sql, and postupgrade_fixups.sql.
12958: destFilePtr := UTL_FILE.FOPEN(locDirObj, destFileName, 'A');
12959:
12960: -- close the pdb source file (currently opened for writes) so that it
12961: -- can be reopened for READ
12962: BEGIN

Line 12963: UTL_FILE.FCLOSE(pdbFilePtr);

12959:
12960: -- close the pdb source file (currently opened for writes) so that it
12961: -- can be reopened for READ
12962: BEGIN
12963: UTL_FILE.FCLOSE(pdbFilePtr);
12964: pdbFilePtr := UTL_FILE.FOPEN(locDirObj, pdbFileName, 'R');
12965: EXCEPTION
12966: WHEN OTHERS THEN
12967: RAISE_APPLICATION_ERROR(-20000, 'Error: ' || SQLERRM);

Line 12964: pdbFilePtr := UTL_FILE.FOPEN(locDirObj, pdbFileName, 'R');

12960: -- close the pdb source file (currently opened for writes) so that it
12961: -- can be reopened for READ
12962: BEGIN
12963: UTL_FILE.FCLOSE(pdbFilePtr);
12964: pdbFilePtr := UTL_FILE.FOPEN(locDirObj, pdbFileName, 'R');
12965: EXCEPTION
12966: WHEN OTHERS THEN
12967: RAISE_APPLICATION_ERROR(-20000, 'Error: ' || SQLERRM);
12968: END;

Line 12978: UTL_FILE.GET_LINE(pdbFilePtr, buf);

12974: -- for each line in the pdb file, append it to the final destination file
12975: line_num := 0;
12976: LOOP
12977: BEGIN
12978: UTL_FILE.GET_LINE(pdbFilePtr, buf);
12979: line_num := line_num + 1;
12980: UTL_FILE.PUT_LINE(destFilePtr, buf, false);
12981: EXCEPTION
12982: WHEN NO_DATA_FOUND THEN

Line 12980: UTL_FILE.PUT_LINE(destFilePtr, buf, false);

12976: LOOP
12977: BEGIN
12978: UTL_FILE.GET_LINE(pdbFilePtr, buf);
12979: line_num := line_num + 1;
12980: UTL_FILE.PUT_LINE(destFilePtr, buf, false);
12981: EXCEPTION
12982: WHEN NO_DATA_FOUND THEN
12983: EXIT; -- if here, then have read past the end of the file
12984: WHEN OTHERS THEN

Line 12997: UTL_FILE.FCLOSE(pdbFilePtr); -- close pdb file

12993: -- clean up after concatenating pdb file to final destination file
12994: BEGIN
12995: -- after copying the pdb file into the main destination file, then
12996: -- close pdb file (source file)
12997: UTL_FILE.FCLOSE(pdbFilePtr); -- close pdb file
12998:
12999: -- close final destination file
13000: UTL_FILE.FCLOSE(destFilePtr);
13001: EXCEPTION

Line 13000: UTL_FILE.FCLOSE(destFilePtr);

12996: -- close pdb file (source file)
12997: UTL_FILE.FCLOSE(pdbFilePtr); -- close pdb file
12998:
12999: -- close final destination file
13000: UTL_FILE.FCLOSE(destFilePtr);
13001: EXCEPTION
13002: WHEN OTHERS THEN
13003: RAISE_APPLICATION_ERROR(-20000, 'Error: ' || SQLERRM);
13004: END;

Line 13011: UTL_FILE.FRENAME(c_dir_obj, pdbFileName,

13007: -- After concatenating the pdb file into the main destination file, then let's
13008: -- move the pdb file to the pdbfiles subdirectory (under PREUPGRADE_DIR).
13009: IF pCreatedPdbDirObj = TRUE THEN
13010: BEGIN
13011: UTL_FILE.FRENAME(c_dir_obj, pdbFileName,
13012: c_pdb_dir_obj, pdbFileName, TRUE);
13013: IF tracing_on_xxx THEN
13014: dbms_output.put_line('XXX moving pdb file ' || pdbFileName ||
13015: ' to pdbfiles subdirectory');

Line 13035: lockFilePtr UTL_FILE.FILE_TYPE; -- lock file handle for exclusive write

13031: -- file.
13032: --
13033: PROCEDURE get_write_lock
13034: IS
13035: lockFilePtr UTL_FILE.FILE_TYPE; -- lock file handle for exclusive write
13036: wr_loops NUMBER := 0; -- # of times looping for write lock file to be freed
13037: fileExist BOOLEAN := FALSE; -- file exists T/F
13038: fileSz NUMBER; -- file size
13039: blkLen NUMBER; -- block length

Line 13058: UTL_FILE.FGETATTR(pOutputLocation, c_wrlock_fname, fileExist, fileSz,

13054: dbms_output.put_line('XXX write lock: wr_loops is ' || wr_loops);
13055: END IF;
13056:
13057: -- does the lock file for exclusive writes exist?
13058: UTL_FILE.FGETATTR(pOutputLocation, c_wrlock_fname, fileExist, fileSz,
13059: blkLen);
13060:
13061: -- if the lock file does not exist yet => create the write lock file
13062: -- else if the lock file already exists => sleep and then try again

Line 13066: lockFilePtr := UTL_FILE.FOPEN(pOutputLocation, c_wrlock_fname, 'W');

13062: -- else if the lock file already exists => sleep and then try again
13063: IF (fileExist = FALSE) THEN
13064: BEGIN
13065: -- create write lock file
13066: lockFilePtr := UTL_FILE.FOPEN(pOutputLocation, c_wrlock_fname, 'W');
13067: UTL_FILE.FCLOSE(lockFilePtr);
13068: pGotWriteLock := TRUE; -- got lock file
13069: IF tracing_on_xxx THEN
13070: dbms_output.put_line('XXX got write lock' );

Line 13067: UTL_FILE.FCLOSE(lockFilePtr);

13063: IF (fileExist = FALSE) THEN
13064: BEGIN
13065: -- create write lock file
13066: lockFilePtr := UTL_FILE.FOPEN(pOutputLocation, c_wrlock_fname, 'W');
13067: UTL_FILE.FCLOSE(lockFilePtr);
13068: pGotWriteLock := TRUE; -- got lock file
13069: IF tracing_on_xxx THEN
13070: dbms_output.put_line('XXX got write lock' );
13071: END IF;

Line 13111: pdbFilePtr UTL_FILE.FILE_TYPE; -- pdb file to concat from

13107: --
13108: PROCEDURE concat_pdb_file
13109: IS
13110:
13111: pdbFilePtr UTL_FILE.FILE_TYPE; -- pdb file to concat from
13112: destFilePtr UTL_FILE.FILE_TYPE; -- final destination file to concat to
13113: e_userCancel EXCEPTION; -- ORA-01013: user requested cancel of current operation
13114: e_noOraConnect1 EXCEPTION; -- ORA-03113: end-of-file on communication channel
13115: e_noOraConnect2 EXCEPTION; -- ORA-03114: not connected to ORACLE

Line 13112: destFilePtr UTL_FILE.FILE_TYPE; -- final destination file to concat to

13108: PROCEDURE concat_pdb_file
13109: IS
13110:
13111: pdbFilePtr UTL_FILE.FILE_TYPE; -- pdb file to concat from
13112: destFilePtr UTL_FILE.FILE_TYPE; -- final destination file to concat to
13113: e_userCancel EXCEPTION; -- ORA-01013: user requested cancel of current operation
13114: e_noOraConnect1 EXCEPTION; -- ORA-03113: end-of-file on communication channel
13115: e_noOraConnect2 EXCEPTION; -- ORA-03114: not connected to ORACLE
13116: PRAGMA exception_init(e_userCancel, -1013);

Line 13178: UTL_FILE.FREMOVE(pOutputLocation, c_wrlock_fname);

13174: END IF;
13175:
13176: -- clean up: remove lock file
13177: BEGIN
13178: UTL_FILE.FREMOVE(pOutputLocation, c_wrlock_fname);
13179: pGotWriteLock := FALSE;
13180: IF tracing_on_xxx THEN
13181: dbms_output.put_line('XXX removing write lock file');
13182: dbms_output.put_line('XXX pOutputLocation ' || pOutputLocation);

Line 13204: UTL_FILE.FREMOVE(pOutputLocation, c_wrlock_fname);

13200: -- file and move the pdb files to pdbfiles subdir before exiting
13201: WHEN e_userCancel OR e_noOraConnect1 OR e_noOraConnect2 THEN
13202: IF pGotWriteLock = TRUE THEN
13203: BEGIN
13204: UTL_FILE.FREMOVE(pOutputLocation, c_wrlock_fname);
13205: EXCEPTION WHEN OTHERS THEN NULL;
13206: END;
13207:
13208: BEGIN

Line 13209: UTL_FILE.FRENAME(pOutputLocation, pOutputFName,

13205: EXCEPTION WHEN OTHERS THEN NULL;
13206: END;
13207:
13208: BEGIN
13209: UTL_FILE.FRENAME(pOutputLocation, pOutputFName,
13210: c_pdb_dir_obj, pOutputFName, TRUE);
13211: EXCEPTION WHEN OTHERS THEN NULL;
13212: END;
13213:

Line 13215: UTL_FILE.FRENAME(pOutputLocation, pPreScriptFname,

13211: EXCEPTION WHEN OTHERS THEN NULL;
13212: END;
13213:
13214: BEGIN
13215: UTL_FILE.FRENAME(pOutputLocation, pPreScriptFname,
13216: c_pdb_dir_obj, pPreScriptFname, TRUE);
13217: EXCEPTION WHEN OTHERS THEN NULL;
13218: END;
13219:

Line 13221: UTL_FILE.FRENAME(pOutputLocation, pPostScriptFname,

13217: EXCEPTION WHEN OTHERS THEN NULL;
13218: END;
13219:
13220: BEGIN
13221: UTL_FILE.FRENAME(pOutputLocation, pPostScriptFname,
13222: c_pdb_dir_obj, pPostScriptFname, TRUE);
13223: EXCEPTION WHEN OTHERS THEN NULL;
13224: END;
13225:

Line 13229: UTL_FILE.FREMOVE(pOutputLocation, pOutputFName);

13225:
13226: pGotWriteLock := FALSE;
13227: ELSE -- IF pGotWriteLock is FALSE
13228: BEGIN
13229: UTL_FILE.FREMOVE(pOutputLocation, pOutputFName);
13230: EXCEPTION WHEN OTHERS THEN NULL;
13231: END;
13232:
13233: BEGIN

Line 13234: UTL_FILE.FREMOVE(pOutputLocation, pPreScriptFname);

13230: EXCEPTION WHEN OTHERS THEN NULL;
13231: END;
13232:
13233: BEGIN
13234: UTL_FILE.FREMOVE(pOutputLocation, pPreScriptFname);
13235: EXCEPTION WHEN OTHERS THEN NULL;
13236: END;
13237:
13238: BEGIN

Line 13239: UTL_FILE.FREMOVE(pOutputLocation, pPostScriptFname);

13235: EXCEPTION WHEN OTHERS THEN NULL;
13236: END;
13237:
13238: BEGIN
13239: UTL_FILE.FREMOVE(pOutputLocation, pPostScriptFname);
13240: EXCEPTION WHEN OTHERS THEN NULL;
13241: END;
13242: END IF;
13243:

Line 13294: UTL_FILE.FREMOVE(c_dir_obj, c_wrlock_fname);

13290: WHEN OTHERS THEN NULL;
13291: END;
13292:
13293: IF pGotWriteLock = TRUE THEN
13294: UTL_FILE.FREMOVE(c_dir_obj, c_wrlock_fname);
13295: pGotWriteLock := FALSE;
13296: END IF;
13297: END IF; -- if pdb directory object exists
13298: