235: --Concurrent Process log line
236: retcode := 2; -- mark Concurrent process as failed
237: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
238: UTL_FILE.FCLOSE(l_out_file);
239: FND_MESSAGE.SET_NAME('PER','PER_289859_FILE_NOT_FOUND');
240: FND_MESSAGE.RAISE_ERROR;
241:
242: WHEN UTL_FILE.INVALID_OPERATION THEN
243: FND_FILE.PUT_LINE(FND_FILE.LOG,
236: retcode := 2; -- mark Concurrent process as failed
237: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
238: UTL_FILE.FCLOSE(l_out_file);
239: FND_MESSAGE.SET_NAME('PER','PER_289859_FILE_NOT_FOUND');
240: FND_MESSAGE.RAISE_ERROR;
241:
242: WHEN UTL_FILE.INVALID_OPERATION THEN
243: FND_FILE.PUT_LINE(FND_FILE.LOG,
244: 'The supplied file cannot be opened.'||
247: --Concurrent Process log line
248: retcode := 2; -- mark Concurrent process as failed
249: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
250: UTL_FILE.FCLOSE(l_out_file);
251: FND_MESSAGE.SET_NAME('PER','PER_289863_INVALID_OP');
252: FND_MESSAGE.RAISE_ERROR;
253:
254: WHEN UTL_FILE.READ_ERROR THEN
255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input File Error');
248: retcode := 2; -- mark Concurrent process as failed
249: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
250: UTL_FILE.FCLOSE(l_out_file);
251: FND_MESSAGE.SET_NAME('PER','PER_289863_INVALID_OP');
252: FND_MESSAGE.RAISE_ERROR;
253:
254: WHEN UTL_FILE.READ_ERROR THEN
255: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input File Error');
256: --Concurrent Process log line
256: --Concurrent Process log line
257: retcode := 2; -- mark Concurrent process as failed
258: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
259: UTL_FILE.FCLOSE(l_out_file);
260: FND_MESSAGE.SET_NAME('PER','PER_289860_READ_ERROR');
261: FND_MESSAGE.RAISE_ERROR;
262:
263: WHEN UTL_FILE.WRITE_ERROR THEN
264: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Output File Error');
257: retcode := 2; -- mark Concurrent process as failed
258: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
259: UTL_FILE.FCLOSE(l_out_file);
260: FND_MESSAGE.SET_NAME('PER','PER_289860_READ_ERROR');
261: FND_MESSAGE.RAISE_ERROR;
262:
263: WHEN UTL_FILE.WRITE_ERROR THEN
264: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Output File Error');
265: --Concurrent Process log line
265: --Concurrent Process log line
266: retcode := 2; -- mark Concurrent process as failed
267: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
268: UTL_FILE.FCLOSE(l_out_file);
269: FND_MESSAGE.SET_NAME('PER','PER_289861_WRITE_ERROR');
270: FND_MESSAGE.RAISE_ERROR;
271:
272: WHEN UTL_FILE.INVALID_PATH THEN
273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invalid Directory Supplied');
266: retcode := 2; -- mark Concurrent process as failed
267: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
268: UTL_FILE.FCLOSE(l_out_file);
269: FND_MESSAGE.SET_NAME('PER','PER_289861_WRITE_ERROR');
270: FND_MESSAGE.RAISE_ERROR;
271:
272: WHEN UTL_FILE.INVALID_PATH THEN
273: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invalid Directory Supplied');
274: --Concurrent Process log line
274: --Concurrent Process log line
275: retcode := 2; -- mark Concurrent process as failed
276: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
277: UTL_FILE.FCLOSE(l_out_file);
278: FND_MESSAGE.SET_NAME('PER','PER_289862_INVALID_PATH');
279: FND_MESSAGE.RAISE_ERROR;
280:
281: END parse_ini_file;
282:
275: retcode := 2; -- mark Concurrent process as failed
276: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
277: UTL_FILE.FCLOSE(l_out_file);
278: FND_MESSAGE.SET_NAME('PER','PER_289862_INVALID_PATH');
279: FND_MESSAGE.RAISE_ERROR;
280:
281: END parse_ini_file;
282:
283: END HR_ADE_UPGRADE;