Submit Concurrent Request From Oracle Alerts
Submit Concurrent Request From Oracle Alerts
--=============================================================
CREATE OR REPLACE PROCEDURE APPS.XXSD_EMP_Alert_RPT(
errbuf OUT VARCHAR2,
retcode OUT NUMBER,
P_DATE VARCHAR2)
AS
CURSOR C1 IS
select *
from XXSD_EMP_ALERT_HISTORY_TL
where ALERT_FIRE_DATE = TO_DATE(NVL(P_DATE, TO_DATE(SYSDATE)))
;
BEGIN
fnd_file.put_line (
fnd_file.output,
'Employee_No'
|| '|'
|| 'Employee_Name'
|| '|'
|| 'Salary');
FOR I IN C1
LOOP
fnd_file.put_line (
fnd_file.output,
I.EMP_NO
|| '|'
|| I.EMP_NAME
|| '|'
|| I.SALARY);
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
fnd_file.put_line (fnd_file.LOG,
'Entered INTO exception' || SQLCODE || SQLERRM);
END ;
--==============================================================
--=============================================================
CREATE OR REPLACE PROCEDURE APPS.XXSD_EMP_Alert_RPT(
errbuf OUT VARCHAR2,
retcode OUT NUMBER,
P_DATE VARCHAR2)
AS
CURSOR C1 IS
select *
from XXSD_EMP_ALERT_HISTORY_TL
where ALERT_FIRE_DATE = TO_DATE(NVL(P_DATE, TO_DATE(SYSDATE)))
;
BEGIN
fnd_file.put_line (
fnd_file.output,
'Employee_No'
|| '|'
|| 'Employee_Name'
|| '|'
|| 'Salary');
FOR I IN C1
LOOP
fnd_file.put_line (
fnd_file.output,
I.EMP_NO
|| '|'
|| I.EMP_NAME
|| '|'
|| I.SALARY);
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
fnd_file.put_line (fnd_file.LOG,
'Entered INTO exception' || SQLCODE || SQLERRM);
END ;
--==============================================================
Comments
Post a Comment