DBA Data[Home] [Help]

APPS.PAY_NO_PAYPROC dependencies on UTL_FILE

Line 873: l_file_type UTL_FILE.file_type;

869: /* Procedure name */
870: l_proc CONSTANT VARCHAR2 (72) := l_package||'.read' ;
871:
872: /* File Handling variables */
873: l_file_type UTL_FILE.file_type;
874: l_filename VARCHAR2 (240);
875: l_location VARCHAR2 (4000);
876: l_record_read VARCHAR2 (1000) ;
877: l_record_write VARCHAR2 (1000) ;

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

965: - check fro BETFOR00
966: - if not present , raise error else print details */
967: BEGIN
968:
969: l_file_type := UTL_FILE.fopen (l_location, l_filename, c_read_file, c_max_linesize);
970: /* read the entire record consisting of the 4 lines of data from file */
971: read_lines ( p_process => g_process
972: ,p_file_type => l_file_type
973: ,p_record => l_record_read );

Line 1013: UTL_FILE.fclose (l_file_type);

1009: fnd_file.put_line (fnd_file.LOG,'');
1010: fnd_file.put_line (fnd_file.LOG,get_lookup_meaning ('NO_PAYMENT_PROCESS_LABELS','PD') ||' : ' || l_production_date);
1011: fnd_file.put_line (fnd_file.LOG,'');
1012: END IF;
1013: UTL_FILE.fclose (l_file_type);
1014: EXCEPTION
1015: WHEN BETFOR00_NOT_FOUND
1016: THEN
1017: fnd_file.put_line (fnd_file.LOG,'');

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

1027: ------------------------------------------------------------------------------------------------------------------------------------------------------------------------
1028: /* regular redaing of the file */
1029:
1030: /* Open flat file */
1031: l_file_type := UTL_FILE.fopen (l_location, l_filename, c_read_file, c_max_linesize);
1032:
1033:
1034: /* Loop over the file, reading in each line. GET_LINE will
1035: raise NO_DATA_FOUND when it is done, so we use that as the

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

1090: l_num_of_records := l_num_of_records + 1;
1091:
1092:
1093: EXCEPTION
1094: WHEN VALUE_ERROR -- Input line too large for buffer specified in UTL_FILE.fopen
1095: THEN
1096: IF UTL_FILE.is_open (l_file_type)
1097: THEN
1098: UTL_FILE.fclose (l_file_type);

Line 1096: IF UTL_FILE.is_open (l_file_type)

1092:
1093: EXCEPTION
1094: WHEN VALUE_ERROR -- Input line too large for buffer specified in UTL_FILE.fopen
1095: THEN
1096: IF UTL_FILE.is_open (l_file_type)
1097: THEN
1098: UTL_FILE.fclose (l_file_type);
1099: END IF;
1100: retcode := c_error;

Line 1098: UTL_FILE.fclose (l_file_type);

1094: WHEN VALUE_ERROR -- Input line too large for buffer specified in UTL_FILE.fopen
1095: THEN
1096: IF UTL_FILE.is_open (l_file_type)
1097: THEN
1098: UTL_FILE.fclose (l_file_type);
1099: END IF;
1100: retcode := c_error;
1101: EXIT;
1102:

Line 1195: UTL_FILE.fclose (l_file_type);

1191: END;
1192: END LOOP read_lines_in_file;
1193:
1194:
1195: UTL_FILE.fclose (l_file_type);
1196:
1197:
1198: -- Most of these exceptions are not translated as they should not happen normally
1199: -- If they do happen, something is seriously wrong and SysAdmin interference will be necessary.

Line 1206: IF UTL_FILE.is_open (l_file_type)

1202: WHEN e_fatal_error
1203: -- No directory specified
1204: THEN
1205: -- Close the file in case of error
1206: IF UTL_FILE.is_open (l_file_type)
1207: THEN
1208: UTL_FILE.fclose (l_file_type);
1209: END IF;
1210:

Line 1208: UTL_FILE.fclose (l_file_type);

1204: THEN
1205: -- Close the file in case of error
1206: IF UTL_FILE.is_open (l_file_type)
1207: THEN
1208: UTL_FILE.fclose (l_file_type);
1209: END IF;
1210:
1211:
1212: -- Set retcode to 2, indicating an ERROR to the ConcMgr

Line 1222: WHEN UTL_FILE.invalid_operation

1218: -- Return the message to the ConcMgr (This msg will appear in the log file)
1219:
1220: errbuf := hr_utility.get_message;
1221:
1222: WHEN UTL_FILE.invalid_operation
1223: -- File could not be opened as requested, perhaps because of operating system permissions
1224: -- Also raised when attempting a write operation on a file opened for read, or a read operation
1225: -- on a file opened for write.
1226:

Line 1228: IF UTL_FILE.is_open (l_file_type)

1224: -- Also raised when attempting a write operation on a file opened for read, or a read operation
1225: -- on a file opened for write.
1226:
1227: THEN
1228: IF UTL_FILE.is_open (l_file_type)
1229: THEN
1230: UTL_FILE.fclose (l_file_type);
1231: END IF;
1232:

Line 1230: UTL_FILE.fclose (l_file_type);

1226:
1227: THEN
1228: IF UTL_FILE.is_open (l_file_type)
1229: THEN
1230: UTL_FILE.fclose (l_file_type);
1231: END IF;
1232:
1233: retcode := c_error;
1234: errbuf := 'Reading File ('||l_location ||' -> '

Line 1237: WHEN UTL_FILE.internal_error

1233: retcode := c_error;
1234: errbuf := 'Reading File ('||l_location ||' -> '
1235: || l_filename
1236: || ') - Invalid Operation.';
1237: WHEN UTL_FILE.internal_error
1238: -- Unspecified internal error
1239: THEN
1240: IF UTL_FILE.is_open (l_file_type)
1241: THEN

Line 1240: IF UTL_FILE.is_open (l_file_type)

1236: || ') - Invalid Operation.';
1237: WHEN UTL_FILE.internal_error
1238: -- Unspecified internal error
1239: THEN
1240: IF UTL_FILE.is_open (l_file_type)
1241: THEN
1242: UTL_FILE.fclose (l_file_type);
1243: END IF;
1244:

Line 1242: UTL_FILE.fclose (l_file_type);

1238: -- Unspecified internal error
1239: THEN
1240: IF UTL_FILE.is_open (l_file_type)
1241: THEN
1242: UTL_FILE.fclose (l_file_type);
1243: END IF;
1244:
1245: retcode := c_error;
1246: errbuf := 'Reading File ('

Line 1252: WHEN UTL_FILE.invalid_mode

1248: || ' -> '
1249: || l_filename
1250: || ') - Internal Error.';
1251:
1252: WHEN UTL_FILE.invalid_mode
1253: -- Invalid string specified for file mode
1254: THEN
1255: IF UTL_FILE.is_open (l_file_type)
1256: THEN

Line 1255: IF UTL_FILE.is_open (l_file_type)

1251:
1252: WHEN UTL_FILE.invalid_mode
1253: -- Invalid string specified for file mode
1254: THEN
1255: IF UTL_FILE.is_open (l_file_type)
1256: THEN
1257: UTL_FILE.fclose (l_file_type);
1258: END IF;
1259:

Line 1257: UTL_FILE.fclose (l_file_type);

1253: -- Invalid string specified for file mode
1254: THEN
1255: IF UTL_FILE.is_open (l_file_type)
1256: THEN
1257: UTL_FILE.fclose (l_file_type);
1258: END IF;
1259:
1260: retcode := c_error;
1261: errbuf := 'Reading File ('

Line 1267: WHEN UTL_FILE.invalid_path

1263: || ' -> '
1264: || l_filename
1265: || ') - Invalid Mode.';
1266:
1267: WHEN UTL_FILE.invalid_path
1268: -- Directory or filename is invalid or not accessible
1269: THEN
1270: IF UTL_FILE.is_open (l_file_type)
1271: THEN

Line 1270: IF UTL_FILE.is_open (l_file_type)

1266:
1267: WHEN UTL_FILE.invalid_path
1268: -- Directory or filename is invalid or not accessible
1269: THEN
1270: IF UTL_FILE.is_open (l_file_type)
1271: THEN
1272: UTL_FILE.fclose (l_file_type);
1273: END IF;
1274:

Line 1272: UTL_FILE.fclose (l_file_type);

1268: -- Directory or filename is invalid or not accessible
1269: THEN
1270: IF UTL_FILE.is_open (l_file_type)
1271: THEN
1272: UTL_FILE.fclose (l_file_type);
1273: END IF;
1274:
1275: retcode := c_error;
1276: errbuf := 'Reading File ('

Line 1282: WHEN UTL_FILE.invalid_filehandle

1278: || ' -> '
1279: || l_filename
1280: || ') - Invalid Path or Filename.';
1281:
1282: WHEN UTL_FILE.invalid_filehandle
1283: -- File type does not specify an open file
1284: THEN
1285: IF UTL_FILE.is_open (l_file_type)
1286: THEN

Line 1285: IF UTL_FILE.is_open (l_file_type)

1281:
1282: WHEN UTL_FILE.invalid_filehandle
1283: -- File type does not specify an open file
1284: THEN
1285: IF UTL_FILE.is_open (l_file_type)
1286: THEN
1287: UTL_FILE.fclose (l_file_type);
1288: END IF;
1289:

Line 1287: UTL_FILE.fclose (l_file_type);

1283: -- File type does not specify an open file
1284: THEN
1285: IF UTL_FILE.is_open (l_file_type)
1286: THEN
1287: UTL_FILE.fclose (l_file_type);
1288: END IF;
1289:
1290: retcode := c_error;
1291: errbuf := 'Reading File ('

Line 1296: WHEN UTL_FILE.read_error

1292: || l_location
1293: || ' -> '
1294: || l_filename
1295: || ') - Invalid File Type.';
1296: WHEN UTL_FILE.read_error
1297:
1298: -- Operating system error occurred during a read operation
1299: THEN
1300: IF UTL_FILE.is_open (l_file_type)

Line 1300: IF UTL_FILE.is_open (l_file_type)

1296: WHEN UTL_FILE.read_error
1297:
1298: -- Operating system error occurred during a read operation
1299: THEN
1300: IF UTL_FILE.is_open (l_file_type)
1301: THEN
1302: UTL_FILE.fclose (l_file_type);
1303: END IF;
1304:

Line 1302: UTL_FILE.fclose (l_file_type);

1298: -- Operating system error occurred during a read operation
1299: THEN
1300: IF UTL_FILE.is_open (l_file_type)
1301: THEN
1302: UTL_FILE.fclose (l_file_type);
1303: END IF;
1304:
1305: retcode := c_error;
1306: errbuf := 'Reading File ('

Line 1317: ,p_file_type IN UTL_FILE.file_type

1313: -----------------------------------------------------------------------------------------------------------------------------------------------------------
1314:
1315: PROCEDURE read_lines
1316: ( p_process IN VARCHAR2
1317: ,p_file_type IN UTL_FILE.file_type
1318: ,p_record OUT NOCOPY VARCHAR2
1319: )
1320: is
1321:

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

1325:
1326: IF (p_process = 'NO_ACK') THEN
1327: /* Read 4 lines of data from the acknowledgement reply file and combine it in 1 record */
1328:
1329: UTL_FILE.get_line (p_file_type, l_line_read);
1330: p_record:=l_line_read;
1331:
1332: UTL_FILE.get_line (p_file_type, l_line_read);
1333: p_record:=p_record || l_line_read;

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

1328:
1329: UTL_FILE.get_line (p_file_type, l_line_read);
1330: p_record:=l_line_read;
1331:
1332: UTL_FILE.get_line (p_file_type, l_line_read);
1333: p_record:=p_record || l_line_read;
1334:
1335: UTL_FILE.get_line (p_file_type, l_line_read);
1336: p_record:=p_record || l_line_read;

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

1331:
1332: UTL_FILE.get_line (p_file_type, l_line_read);
1333: p_record:=p_record || l_line_read;
1334:
1335: UTL_FILE.get_line (p_file_type, l_line_read);
1336: p_record:=p_record || l_line_read;
1337:
1338: UTL_FILE.get_line (p_file_type, l_line_read);
1339: p_record:=p_record || l_line_read;

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

1334:
1335: UTL_FILE.get_line (p_file_type, l_line_read);
1336: p_record:=p_record || l_line_read;
1337:
1338: UTL_FILE.get_line (p_file_type, l_line_read);
1339: p_record:=p_record || l_line_read;
1340:
1341:
1342: END IF;