DBA Data[Home] [Help]

APPS.PAY_NO_PAYPROC dependencies on UTL_FILE

Line 897: l_file_type UTL_FILE.file_type;

893: /* Procedure name */
894: l_proc CONSTANT VARCHAR2 (72) := l_package||'.read' ;
895:
896: /* File Handling variables */
897: l_file_type UTL_FILE.file_type;
898: l_filename VARCHAR2 (240);
899: l_location VARCHAR2 (4000);
900: l_record_read VARCHAR2 (1000) ;
901: l_record_write VARCHAR2 (1000) ;

Line 993: l_file_type := UTL_FILE.fopen (l_location, l_filename, c_read_file, c_max_linesize);

989: - check fro BETFOR00
990: - if not present , raise error else print details */
991: BEGIN
992:
993: l_file_type := UTL_FILE.fopen (l_location, l_filename, c_read_file, c_max_linesize);
994: /* read the entire record consisting of the 4 lines of data from file */
995: read_lines ( p_process => g_process
996: ,p_file_type => l_file_type
997: ,p_record => l_record_read );

Line 1037: UTL_FILE.fclose (l_file_type);

1033: fnd_file.put_line (fnd_file.LOG,'');
1034: fnd_file.put_line (fnd_file.LOG,get_lookup_meaning ('NO_PAYMENT_PROCESS_LABELS','PD') ||' : ' || l_production_date);
1035: fnd_file.put_line (fnd_file.LOG,'');
1036: END IF;
1037: UTL_FILE.fclose (l_file_type);
1038: EXCEPTION
1039: WHEN BETFOR00_NOT_FOUND
1040: THEN
1041: fnd_file.put_line (fnd_file.LOG,'');

Line 1055: l_file_type := UTL_FILE.fopen (l_location, l_filename, c_read_file, c_max_linesize);

1051: ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
1052: /* regular redaing of the file */
1053:
1054: /* Open flat file */
1055: l_file_type := UTL_FILE.fopen (l_location, l_filename, c_read_file, c_max_linesize);
1056:
1057:
1058: /* Loop over the file, reading in each line. GET_LINE will
1059: raise NO_DATA_FOUND when it is done, so we use that as the

Line 1118: WHEN VALUE_ERROR -- Input line too large for buffer specified in UTL_FILE.fopen

1114: l_num_of_records := l_num_of_records + 1;
1115:
1116:
1117: EXCEPTION
1118: WHEN VALUE_ERROR -- Input line too large for buffer specified in UTL_FILE.fopen
1119: THEN
1120: IF UTL_FILE.is_open (l_file_type)
1121: THEN
1122: UTL_FILE.fclose (l_file_type);

Line 1120: IF UTL_FILE.is_open (l_file_type)

1116:
1117: EXCEPTION
1118: WHEN VALUE_ERROR -- Input line too large for buffer specified in UTL_FILE.fopen
1119: THEN
1120: IF UTL_FILE.is_open (l_file_type)
1121: THEN
1122: UTL_FILE.fclose (l_file_type);
1123: END IF;
1124: retcode := c_error;

Line 1122: UTL_FILE.fclose (l_file_type);

1118: WHEN VALUE_ERROR -- Input line too large for buffer specified in UTL_FILE.fopen
1119: THEN
1120: IF UTL_FILE.is_open (l_file_type)
1121: THEN
1122: UTL_FILE.fclose (l_file_type);
1123: END IF;
1124: retcode := c_error;
1125: EXIT;
1126:

Line 1219: UTL_FILE.fclose (l_file_type);

1215: END;
1216: END LOOP read_lines_in_file;
1217:
1218:
1219: UTL_FILE.fclose (l_file_type);
1220:
1221:
1222: -- Most of these exceptions are not translated as they should not happen normally
1223: -- If they do happen, something is seriously wrong and SysAdmin interference will be necessary.

Line 1230: IF UTL_FILE.is_open (l_file_type)

1226: WHEN e_fatal_error
1227: -- No directory specified
1228: THEN
1229: -- Close the file in case of error
1230: IF UTL_FILE.is_open (l_file_type)
1231: THEN
1232: UTL_FILE.fclose (l_file_type);
1233: END IF;
1234:

Line 1232: UTL_FILE.fclose (l_file_type);

1228: THEN
1229: -- Close the file in case of error
1230: IF UTL_FILE.is_open (l_file_type)
1231: THEN
1232: UTL_FILE.fclose (l_file_type);
1233: END IF;
1234:
1235:
1236: -- Set retcode to 2, indicating an ERROR to the ConcMgr

Line 1246: WHEN UTL_FILE.invalid_operation

1242: -- Return the message to the ConcMgr (This msg will appear in the log file)
1243:
1244: errbuf := hr_utility.get_message;
1245:
1246: WHEN UTL_FILE.invalid_operation
1247: -- File could not be opened as requested, perhaps because of operating system permissions
1248: -- Also raised when attempting a write operation on a file opened for read, or a read operation
1249: -- on a file opened for write.
1250:

Line 1252: IF UTL_FILE.is_open (l_file_type)

1248: -- Also raised when attempting a write operation on a file opened for read, or a read operation
1249: -- on a file opened for write.
1250:
1251: THEN
1252: IF UTL_FILE.is_open (l_file_type)
1253: THEN
1254: UTL_FILE.fclose (l_file_type);
1255: END IF;
1256:

Line 1254: UTL_FILE.fclose (l_file_type);

1250:
1251: THEN
1252: IF UTL_FILE.is_open (l_file_type)
1253: THEN
1254: UTL_FILE.fclose (l_file_type);
1255: END IF;
1256:
1257: retcode := c_error;
1258: errbuf := 'Reading File ('||l_location ||' -> '

Line 1261: WHEN UTL_FILE.internal_error

1257: retcode := c_error;
1258: errbuf := 'Reading File ('||l_location ||' -> '
1259: || l_filename
1260: || ') - Invalid Operation.';
1261: WHEN UTL_FILE.internal_error
1262: -- Unspecified internal error
1263: THEN
1264: IF UTL_FILE.is_open (l_file_type)
1265: THEN

Line 1264: IF UTL_FILE.is_open (l_file_type)

1260: || ') - Invalid Operation.';
1261: WHEN UTL_FILE.internal_error
1262: -- Unspecified internal error
1263: THEN
1264: IF UTL_FILE.is_open (l_file_type)
1265: THEN
1266: UTL_FILE.fclose (l_file_type);
1267: END IF;
1268:

Line 1266: UTL_FILE.fclose (l_file_type);

1262: -- Unspecified internal error
1263: THEN
1264: IF UTL_FILE.is_open (l_file_type)
1265: THEN
1266: UTL_FILE.fclose (l_file_type);
1267: END IF;
1268:
1269: retcode := c_error;
1270: errbuf := 'Reading File ('

Line 1276: WHEN UTL_FILE.invalid_mode

1272: || ' -> '
1273: || l_filename
1274: || ') - Internal Error.';
1275:
1276: WHEN UTL_FILE.invalid_mode
1277: -- Invalid string specified for file mode
1278: THEN
1279: IF UTL_FILE.is_open (l_file_type)
1280: THEN

Line 1279: IF UTL_FILE.is_open (l_file_type)

1275:
1276: WHEN UTL_FILE.invalid_mode
1277: -- Invalid string specified for file mode
1278: THEN
1279: IF UTL_FILE.is_open (l_file_type)
1280: THEN
1281: UTL_FILE.fclose (l_file_type);
1282: END IF;
1283:

Line 1281: UTL_FILE.fclose (l_file_type);

1277: -- Invalid string specified for file mode
1278: THEN
1279: IF UTL_FILE.is_open (l_file_type)
1280: THEN
1281: UTL_FILE.fclose (l_file_type);
1282: END IF;
1283:
1284: retcode := c_error;
1285: errbuf := 'Reading File ('

Line 1291: WHEN UTL_FILE.invalid_path

1287: || ' -> '
1288: || l_filename
1289: || ') - Invalid Mode.';
1290:
1291: WHEN UTL_FILE.invalid_path
1292: -- Directory or filename is invalid or not accessible
1293: THEN
1294: IF UTL_FILE.is_open (l_file_type)
1295: THEN

Line 1294: IF UTL_FILE.is_open (l_file_type)

1290:
1291: WHEN UTL_FILE.invalid_path
1292: -- Directory or filename is invalid or not accessible
1293: THEN
1294: IF UTL_FILE.is_open (l_file_type)
1295: THEN
1296: UTL_FILE.fclose (l_file_type);
1297: END IF;
1298:

Line 1296: UTL_FILE.fclose (l_file_type);

1292: -- Directory or filename is invalid or not accessible
1293: THEN
1294: IF UTL_FILE.is_open (l_file_type)
1295: THEN
1296: UTL_FILE.fclose (l_file_type);
1297: END IF;
1298:
1299: retcode := c_error;
1300: errbuf := 'Reading File ('

Line 1306: WHEN UTL_FILE.invalid_filehandle

1302: || ' -> '
1303: || l_filename
1304: || ') - Invalid Path or Filename.';
1305:
1306: WHEN UTL_FILE.invalid_filehandle
1307: -- File type does not specify an open file
1308: THEN
1309: IF UTL_FILE.is_open (l_file_type)
1310: THEN

Line 1309: IF UTL_FILE.is_open (l_file_type)

1305:
1306: WHEN UTL_FILE.invalid_filehandle
1307: -- File type does not specify an open file
1308: THEN
1309: IF UTL_FILE.is_open (l_file_type)
1310: THEN
1311: UTL_FILE.fclose (l_file_type);
1312: END IF;
1313:

Line 1311: UTL_FILE.fclose (l_file_type);

1307: -- File type does not specify an open file
1308: THEN
1309: IF UTL_FILE.is_open (l_file_type)
1310: THEN
1311: UTL_FILE.fclose (l_file_type);
1312: END IF;
1313:
1314: retcode := c_error;
1315: errbuf := 'Reading File ('

Line 1320: WHEN UTL_FILE.read_error

1316: || l_location
1317: || ' -> '
1318: || l_filename
1319: || ') - Invalid File Type.';
1320: WHEN UTL_FILE.read_error
1321:
1322: -- Operating system error occurred during a read operation
1323: THEN
1324: IF UTL_FILE.is_open (l_file_type)

Line 1324: IF UTL_FILE.is_open (l_file_type)

1320: WHEN UTL_FILE.read_error
1321:
1322: -- Operating system error occurred during a read operation
1323: THEN
1324: IF UTL_FILE.is_open (l_file_type)
1325: THEN
1326: UTL_FILE.fclose (l_file_type);
1327: END IF;
1328:

Line 1326: UTL_FILE.fclose (l_file_type);

1322: -- Operating system error occurred during a read operation
1323: THEN
1324: IF UTL_FILE.is_open (l_file_type)
1325: THEN
1326: UTL_FILE.fclose (l_file_type);
1327: END IF;
1328:
1329: retcode := c_error;
1330: errbuf := 'Reading File ('

Line 1341: ,p_file_type IN UTL_FILE.file_type

1337: -----------------------------------------------------------------------------------------------------------------------------------------------------------
1338:
1339: PROCEDURE read_lines
1340: ( p_process IN VARCHAR2
1341: ,p_file_type IN UTL_FILE.file_type
1342: ,p_record OUT NOCOPY VARCHAR2
1343: )
1344: is
1345:

Line 1353: UTL_FILE.get_line (p_file_type, l_line_read);

1349:
1350: IF (p_process = 'NO_ACK') THEN
1351: /* Read 4 lines of data from the acknowledgement reply file and combine it in 1 record */
1352:
1353: UTL_FILE.get_line (p_file_type, l_line_read);
1354: p_record:=l_line_read;
1355:
1356: UTL_FILE.get_line (p_file_type, l_line_read);
1357: p_record:=p_record || l_line_read;

Line 1356: UTL_FILE.get_line (p_file_type, l_line_read);

1352:
1353: UTL_FILE.get_line (p_file_type, l_line_read);
1354: p_record:=l_line_read;
1355:
1356: UTL_FILE.get_line (p_file_type, l_line_read);
1357: p_record:=p_record || l_line_read;
1358:
1359: UTL_FILE.get_line (p_file_type, l_line_read);
1360: p_record:=p_record || l_line_read;

Line 1359: UTL_FILE.get_line (p_file_type, l_line_read);

1355:
1356: UTL_FILE.get_line (p_file_type, l_line_read);
1357: p_record:=p_record || l_line_read;
1358:
1359: UTL_FILE.get_line (p_file_type, l_line_read);
1360: p_record:=p_record || l_line_read;
1361:
1362: UTL_FILE.get_line (p_file_type, l_line_read);
1363: p_record:=p_record || l_line_read;

Line 1362: UTL_FILE.get_line (p_file_type, l_line_read);

1358:
1359: UTL_FILE.get_line (p_file_type, l_line_read);
1360: p_record:=p_record || l_line_read;
1361:
1362: UTL_FILE.get_line (p_file_type, l_line_read);
1363: p_record:=p_record || l_line_read;
1364:
1365:
1366: END IF;