How to create oracle text reports by using PLSQL Procedure with Examples
How to create oracle text reports by using PLSQL Procedure with Examples
--=============================================================
CREATE OR REPLACE PROCEDURE APPS.XXSD_RDF_TO_TEXT_PROC (
RETCODE OUT VARCHAR2,
ERRBUF OUT VARCHAR2,
P_VENDOR_TYPE IN VARCHAR2
)
AS
--*==================================================+
--| PACKAGE XXSD_RDF_TO_TEXT_PROC
--+--------------------------------------------------------------------------+
--| DESCRIPTION This package is used to designed for testing TEXT Report
--+--------------------------------------------------------------------------+
--| Author | Date | DESCRIPTION
--| MANOJ KUMAR | 31-JAN-2016 | FIRST AND FINAL Version
--+==================================================+
CURSOR C1 IS
SELECT SEGMENT1 VENDOR_CODE, VENDOR_NAME, VENDOR_TYPE_LOOKUP_CODE VENDOR_TYPE,START_DATE_ACTIVE
FROM AP_SUPPLIERS
WHERE VENDOR_TYPE_LOOKUP_CODE = P_VENDOR_TYPE;
BEGIN
fnd_file.put_line (fnd_file.output,('VENDOR_CODE |VENDOR_NAME |VENDOR_TYPE |START_DATE_ACTIVE') );
FOR I IN C1 LOOP
fnd_file.put_line (fnd_file.output,(I.VENDOR_CODE||' |'||I.VENDOR_NAME ||' |'||I.VENDOR_TYPE ||' |'||I.START_DATE_ACTIVE) );
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_RDF_TO_TEXT_PROC (
RETCODE OUT VARCHAR2,
ERRBUF OUT VARCHAR2,
P_VENDOR_TYPE IN VARCHAR2
)
AS
--*==================================================+
--| PACKAGE XXSD_RDF_TO_TEXT_PROC
--+--------------------------------------------------------------------------+
--| DESCRIPTION This package is used to designed for testing TEXT Report
--+--------------------------------------------------------------------------+
--| Author | Date | DESCRIPTION
--| MANOJ KUMAR | 31-JAN-2016 | FIRST AND FINAL Version
--+==================================================+
CURSOR C1 IS
SELECT SEGMENT1 VENDOR_CODE, VENDOR_NAME, VENDOR_TYPE_LOOKUP_CODE VENDOR_TYPE,START_DATE_ACTIVE
FROM AP_SUPPLIERS
WHERE VENDOR_TYPE_LOOKUP_CODE = P_VENDOR_TYPE;
BEGIN
fnd_file.put_line (fnd_file.output,('VENDOR_CODE |VENDOR_NAME |VENDOR_TYPE |START_DATE_ACTIVE') );
FOR I IN C1 LOOP
fnd_file.put_line (fnd_file.output,(I.VENDOR_CODE||' |'||I.VENDOR_NAME ||' |'||I.VENDOR_TYPE ||' |'||I.START_DATE_ACTIVE) );
END LOOP;
EXCEPTION WHEN OTHERS THEN fnd_file.put_line (fnd_file.LOG, 'Entered INTO exception' || SQLCODE || SQLERRM );
END;
/
Comments
Post a Comment