Concurrent Programs Error
Parameters in Concurrent ProgramERRBUFF can be returned with any message.
RETCODE can be returned with one of three values:
CREATE OR REPLACE PACKAGE apps.emp_test_pkg
IS
FUNCTION emp_name (
errbuff OUT NOCOPY VARCHAR2,
retcode OUT NOCOPY VARCHAR2,
p_emp_number IN NUMBER)
RETURN VARCHAR2;
END emp_test_pkg;
/
-----------------------------------------------------------------------------------------
CREATE OR REPLACE PACKAGE BODY apps.emp_test_pkg
IS
FUNCTION emp_name (
errbuff OUT NOCOPY VARCHAR2,
retcode OUT NOCOPY VARCHAR2,
p_emp_number IN NUMBER)
RETURN VARCHAR2
IS
lv_emp_name VARCHAR2(300) DEFAULT NULL;
BEGIN
SELECT (papf.first_name || ' ' || papf.last_name)
INTO lv_emp_name
FROM per_all_people_f papf
WHERE 1=1
AND papf.employee_number = p_emp_number;
RETURN (lv_emp_name);
EXCEPTION
WHEN NO_DATA_FOUND THEN
errbuff := 'No employee found for ' || p_emp_number;
retcode := '1'; -- warning
fnd_file.put_line(fnd_file.log, errbuff);
RETURN (lv_emp_name);
WHEN OTHERS THEN
errbuff := SQLERRM;
retcode := '2'; -- error
fnd_file.put_line(fnd_file.log, errbuff);
RETURN (lv_emp_name);
END emp_name;
END emp_test_pkg;
/
1 comments
Wow, this blog is very nice I really like your blog and i am Impressed thank you very much for posting this blog. Please contact us for Oracle Fusion Cloud Financials Training details in our Erptree Training Institute
ReplyDelete