[Home] [Help]
109: --get directory from system profile value
110: fnd_profile.get('PER_DATA_EXCHANGE_DIR', l_dir);
111: -- open input file for reading
112: l_infile := UTL_FILE.FOPEN(l_dir,p_file,'r');
113: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Processing '||l_dir||'/'||p_file);
114: select sysdate into l_date from dual;
115: l_datestamp := to_char(l_date,'DDMMYYHH24MISS');
116: --
117: --create output file names
131: IF substr(l_inline,1,1) = '[' THEN
132: l_groupname := l_inline; -- store group name
133: l_groupname := REPLACE(l_groupname,'[','');
134: l_groupname := REPLACE(l_groupname,']',''); --without square brackets
135: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Processing Group '||l_groupname);
136: END IF; --end if line is group name
137: --
138: IF UPPER(substr(l_inline,1,5)) = 'STYLE' THEN
139: --parse for values
137: --
138: IF UPPER(substr(l_inline,1,5)) = 'STYLE' THEN
139: --parse for values
140: --settingN is the Nth comma seperated value in .ini file list
141: FND_FILE.PUT(FND_FILE.LOG, ' Processing Style ');
142: --get upto first '=' and discard processed part of string
143: l_setting1 := HR_ADE_UPGRADE.get_to_seperator(l_inline,'=');
144: l_inline := HR_ADE_UPGRADE.crop_to_seperator(l_inline, '=');
145: -- get style name and discard processed part of string
143: l_setting1 := HR_ADE_UPGRADE.get_to_seperator(l_inline,'=');
144: l_inline := HR_ADE_UPGRADE.crop_to_seperator(l_inline, '=');
145: -- get style name and discard processed part of string
146: l_setting2 := HR_ADE_UPGRADE.get_to_seperator(l_inline,',');
147: FND_FILE.PUT(FND_FILE.LOG, l_setting2);
148: FND_FILE.NEW_LINE(FND_FILE.LOG);
149: l_inline := HR_ADE_UPGRADE.crop_to_seperator(l_inline, ',');
150: -- get document name and discard processed part of string
151: l_setting3 := HR_ADE_UPGRADE.get_to_seperator(l_inline,',');
144: l_inline := HR_ADE_UPGRADE.crop_to_seperator(l_inline, '=');
145: -- get style name and discard processed part of string
146: l_setting2 := HR_ADE_UPGRADE.get_to_seperator(l_inline,',');
147: FND_FILE.PUT(FND_FILE.LOG, l_setting2);
148: FND_FILE.NEW_LINE(FND_FILE.LOG);
149: l_inline := HR_ADE_UPGRADE.crop_to_seperator(l_inline, ',');
150: -- get document name and discard processed part of string
151: l_setting3 := HR_ADE_UPGRADE.get_to_seperator(l_inline,',');
152: l_inline := HR_ADE_UPGRADE.crop_to_seperator(l_inline, ',');
165: --
166: -- validate view name, replace with group name if no specified
167: IF l_setting4 = '' OR l_setting4 IS NULL THEN
168: l_setting4 := '<
169: FND_FILE.PUT_LINE(FND_FILE.LOG,
170: ' WARNING: Please add view name to this style.');
171: retcode := 1; -- mark Concurrent process with warning
172: END IF;
173: --
211:
212: EXCEPTION
213: WHEN NO_DATA_FOUND THEN -- reached end of file
214: --will drop out of anonymous block and contine main procedure execution.
215: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Processed '|| p_file);
216: END;--end of anonymous block for loop
217: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Closing files');
218: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
219:
213: WHEN NO_DATA_FOUND THEN -- reached end of file
214: --will drop out of anonymous block and contine main procedure execution.
215: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Processed '|| p_file);
216: END;--end of anonymous block for loop
217: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Closing files');
218: UTL_FILE.FCLOSE(l_infile); -- close file opened for reading
219:
220: UTL_FILE.FFLUSH(l_out_file); --force physical write of data
221:
226: errbuff := errbuff || ' - Some View Names must be added manually';
227: ELSE
228: errbuff := errbuff || ' - Procedure completed Successfully';
229: END IF;
230: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Complete');
231: --Concurrent Process log line
232: EXCEPTION
233: WHEN NO_DATA_FOUND THEN -- file opened for reading does not exist
234: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input File Not Found');
230: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Complete');
231: --Concurrent Process log line
232: EXCEPTION
233: WHEN NO_DATA_FOUND THEN -- file opened for reading does not exist
234: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Input File Not Found');
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,
244: 'The supplied file cannot be opened.'||
245: 'Please check the file name and make sure this file exists'||
246: ' in the correct directory, and that the file is readable');
247: --Concurrent Process log line
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
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
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
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);