13: p_operation IN VARCHAR2)
14: RETURN BOOLEAN IS
15:
16: l_return_status BOOLEAN;
17: l_f_type UTL_FILE.file_type;
18: l_buffer VARCHAR2(32767);
19:
20: BEGIN
21: l_return_status := FALSE;
18: l_buffer VARCHAR2(32767);
19:
20: BEGIN
21: l_return_status := FALSE;
22: l_f_type := UTL_FILE.fopen(p_dir_name,p_file_name, p_operation,32767);
23: BEGIN
24: UTL_FILE.get_line(l_f_type,l_buffer, 1000);
25: IF (LENGTH(l_buffer) > 0) THEN
26: l_return_status := TRUE;
20: BEGIN
21: l_return_status := FALSE;
22: l_f_type := UTL_FILE.fopen(p_dir_name,p_file_name, p_operation,32767);
23: BEGIN
24: UTL_FILE.get_line(l_f_type,l_buffer, 1000);
25: IF (LENGTH(l_buffer) > 0) THEN
26: l_return_status := TRUE;
27: ELSE
28: l_return_status := FALSE;
28: l_return_status := FALSE;
29: END IF;
30: EXCEPTION
31: WHEN NO_DATA_FOUND THEN
32: FND_FILE.PUT_LINE(FND_FILE.LOG,'UTL_FILE.GET_LINE - NO_DATA_FOUND');
33: FND_FILE.PUT_LINE(FND_FILE.LOG, sqlerrm);
34: l_return_status := FALSE;
35: WHEN VALUE_ERROR THEN
36: FND_FILE.PUT_LINE(FND_FILE.LOG,'UTL_FILE.GET_LINE - VALUE_ERROR');
32: FND_FILE.PUT_LINE(FND_FILE.LOG,'UTL_FILE.GET_LINE - NO_DATA_FOUND');
33: FND_FILE.PUT_LINE(FND_FILE.LOG, sqlerrm);
34: l_return_status := FALSE;
35: WHEN VALUE_ERROR THEN
36: FND_FILE.PUT_LINE(FND_FILE.LOG,'UTL_FILE.GET_LINE - VALUE_ERROR');
37: FND_FILE.PUT_LINE(FND_FILE.LOG, sqlerrm);
38: l_return_status := FALSE;
39: END;
40: RETURN l_return_status;
38: l_return_status := FALSE;
39: END;
40: RETURN l_return_status;
41: EXCEPTION
42: WHEN UTL_FILE.invalid_path THEN
43: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid path');
44: RAISE FND_API.G_EXC_ERROR;
45: WHEN UTL_FILE.invalid_mode THEN
46: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid mode');
39: END;
40: RETURN l_return_status;
41: EXCEPTION
42: WHEN UTL_FILE.invalid_path THEN
43: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid path');
44: RAISE FND_API.G_EXC_ERROR;
45: WHEN UTL_FILE.invalid_mode THEN
46: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid mode');
47: RAISE FND_API.G_EXC_ERROR;
41: EXCEPTION
42: WHEN UTL_FILE.invalid_path THEN
43: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid path');
44: RAISE FND_API.G_EXC_ERROR;
45: WHEN UTL_FILE.invalid_mode THEN
46: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid mode');
47: RAISE FND_API.G_EXC_ERROR;
48: WHEN UTL_FILE.invalid_operation THEN
49: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid operation');
42: WHEN UTL_FILE.invalid_path THEN
43: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid path');
44: RAISE FND_API.G_EXC_ERROR;
45: WHEN UTL_FILE.invalid_mode THEN
46: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid mode');
47: RAISE FND_API.G_EXC_ERROR;
48: WHEN UTL_FILE.invalid_operation THEN
49: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid operation');
50: -- this only means that file did not even get created
44: RAISE FND_API.G_EXC_ERROR;
45: WHEN UTL_FILE.invalid_mode THEN
46: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid mode');
47: RAISE FND_API.G_EXC_ERROR;
48: WHEN UTL_FILE.invalid_operation THEN
49: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid operation');
50: -- this only means that file did not even get created
51: -- that is, all the records were successfull
52: l_return_status := FALSE;
45: WHEN UTL_FILE.invalid_mode THEN
46: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid mode');
47: RAISE FND_API.G_EXC_ERROR;
48: WHEN UTL_FILE.invalid_operation THEN
49: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid operation');
50: -- this only means that file did not even get created
51: -- that is, all the records were successfull
52: l_return_status := FALSE;
53: RETURN l_return_status;
50: -- this only means that file did not even get created
51: -- that is, all the records were successfull
52: l_return_status := FALSE;
53: RETURN l_return_status;
54: WHEN UTL_FILE.invalid_maxlinesize THEN
55: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid max line size');
56: RAISE FND_API.G_EXC_ERROR;
57: WHEN others THEN
58: FND_FILE.PUT_LINE(FND_FILE.LOG, sqlerrm);
51: -- that is, all the records were successfull
52: l_return_status := FALSE;
53: RETURN l_return_status;
54: WHEN UTL_FILE.invalid_maxlinesize THEN
55: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UTL_FILE.FOPEN - invalid max line size');
56: RAISE FND_API.G_EXC_ERROR;
57: WHEN others THEN
58: FND_FILE.PUT_LINE(FND_FILE.LOG, sqlerrm);
59: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;