Getting errors in dbms output

Question

Hi All,
I've written a function to calculate the value for QTD, Previous QTD, YTD and Previous YTD, by giving the parameters of Date, Table name, FilterCol(Date Column in the table), Column name to calculate...
--------------------------The function code is below:-----------
DECLARE
V_REPORT_DATE VARCHAR2(20):='&V_RPRT_DATE';
V_FILTERCOL VARCHAR2(100):='&V_FLTRCOL';
V_COL_NAME VARCHAR2(100):=UPPER('&V_COL_NAM');
V_TAB_NAME VARCHAR2(100):=UPPER('&V_TBL_NAME');
V_START_DATE VARCHAR2(20);--:='&stdate';
V_LAST_DATE VARCHAR2(20);--:='&lastdate';
V_QUARTER_NUMBER VARCHAR2(1000);
V_STR VARCHAR2(1000);
V_QTY VARCHAR2(1000);
V_SUM NUMBER(14,3):=0;
V_TAB VARCHAR2(100);--:=
V_COL VARCHAR2(100);--:=;
V_COL2 VARCHAR2(100);
V_PRV_QDATE VARCHAR2(20);
V_PRV_QDATE2 VARCHAR2(20);
V_SUM3 NUMBER(14,3):=0;
V_CURRQTD VARCHAR2(1000);
V_PRVQTD VARCHAR2(1000);
V_SUM1 NUMBER(14,3):=0;
V_YTD1 VARCHAR2(20);
V_YTD2 VARCHAR2(20);
V_YTD VARCHAR2(1000);
V_SUM2 NUMBER(14,3):=0;
V_PRVYTD VARCHAR2(20);
V_PRVYTDSTR VARCHAR2(20);
V_PRVYTDEND VARCHAR2(20);
V_PRV_YTD VARCHAR2(1000);
V_CUMM VARCHAR2(1000);
BEGIN
---------------GETTTING QUARTER NO.------------------------------
V_QTY:='SELECT TO_NUMBER(TO_CHAR(TO_DATE('''||'19/12/2012'||''', ''DD/MM/YYYY''), ''Q'')) FROM DUAL';
DBMS_OUTPUT.PUT_LINE(V_QTY);
EXECUTE IMMEDIATE V_QTY INTO V_QUARTER_NUMBER ;
DBMS_OUTPUT.PUT_LINE('QT NUM'||V_QUARTER_NUMBER);
----------------CURRENT QUARTER VALUE----------------------------
SELECT MIN (t), MAX (LAST_DAY (t)) INTO V_START_DATE,V_LAST_DATE
FROM ( SELECT ADD_MONTHS (TRUNC(TO_DATE('19/12/2012','DD/MM/YYYY'), 'YYYY'), LEVEL - 1) t,
TO_CHAR (ADD_MONTHS (TRUNC(TO_DATE('19/12/2012','DD/MM/YYYY'), 'YYYY'), LEVEL - 1), 'Q')QTD
FROM DUAL
CONNECT BY LEVEL <= 12) A
WHERE A.QTD = V_QUARTER_NUMBER;
DBMS_OUTPUT.PUT_LINE(V_START_DATE||'****'||V_LAST_DATE);
V_CURRQTD:='SELECT SUM('||V_COL_NAME||') FROM '||V_TAB_NAME|| ' WHERE '||V_FILTERCOL||' BETWEEN TO_DATE('''||V_START_DATE||''',''DD/MM/YYYY'') ' || ' AND TO_DATE('''||V_LAST_DATE||''',''DD/MM/YYYY'')';
--WHERE  trans_date betwen V_START_DATE1 AND V_LAST_DATE1';
DBMS_OUTPUT.PUT_LINE(V_CURRQTD);
EXECUTE IMMEDIATE V_CURRQTD INTO V_SUM;
DBMS_OUTPUT.PUT_LINE(V_SUM);
--RETURN V_SUM;
----------------END OF CURRENT QUARTER--------------------------
-----------------------PREVIOUS QUARTER---------------------------
SELECT MIN (t), MAX (LAST_DAY (t)) INTO V_PRV_QDATE,V_PRV_QDATE2
FROM ( SELECT ADD_MONTHS (TRUNC(TO_DATE('19/12/2012','DD/MM/YYYY'), 'YYYY'), LEVEL - 1) t,
TO_CHAR (ADD_MONTHS (TRUNC(TO_DATE('19/12/2012','DD/MM/YYYY'), 'YYYY'), LEVEL - 1), 'Q')QTD
FROM DUAL
CONNECT BY LEVEL <= 12) A
WHERE A.QTD = V_QUARTER_NUMBER-1;
DBMS_OUTPUT.PUT_LINE(V_PRV_QDATE||'****'||V_PRV_QDATE2);
V_PRVQTD:='SELECT SUM('||V_COL_NAME||') FROM '||V_TAB_NAME|| ' WHERE '||V_FILTERCOL||' BETWEEN TO_DATE('''||V_PRV_QDATE||''',''DD/MM/YYYY'') ' || ' AND TO_DATE('''||V_PRV_QDATE2||''',''DD/MM/YYYY'')';
DBMS_OUTPUT.PUT_LINE(V_PRVQTD);
EXECUTE IMMEDIATE V_PRVQTD INTO V_SUM1;
DBMS_OUTPUT.PUT_LINE(V_SUM1);
-----------------------END OF PREVIOUS QUARTER---------------------------
-----------------------CURRENT YTD------------------------------
SELECT TRUNC(TO_DATE('19/12/2012','DD/MM/YYYY'),'YEAR')INTO V_YTD1 FROM Dual;
SELECT LAST_DAY(ADD_MONTHS(TO_DATE(V_YTD1,'DD/MM/YYYY'),12 -
TO_NUMBER(TO_CHAR(SYSDATE,'mm')))) INTO V_YTD2 FROM DUAL;
V_YTD:='SELECT SUM('||V_COL_NAME||') FROM '||V_TAB_NAME|| ' WHERE '||V_FILTERCOL||' BETWEEN TO_DATE('''||V_YTD1||''',''DD/MM/YYYY'') ' || ' AND TO_DATE('''||V_YTD2||''',''DD/MM/YYYY'')';
DBMS_OUTPUT.PUT_LINE(V_YTD);
EXECUTE IMMEDIATE V_YTD INTO V_SUM2;
DBMS_OUTPUT.PUT_LINE(V_SUM2);
---------------------------END OF CURRENT YTD------------
-------------PREVIOUS YTD-------------------
SELECT ADD_MONTHS(TO_DATE('19/12/2012','DD/MM/YYYY'),-12) INTO V_PRVYTD FROM DUAL;
SELECT TRUNC(TO_DATE(V_PRVYTD,'DD/MM/YYYY'),'YEAR') INTO V_PRVYTDSTR FROM DUAL;
SELECT LAST_DAY(ADD_MONTHS(TO_DATE(V_PRVYTD,'DD/MM/YYYY'),12 -
TO_NUMBER(TO_CHAR(SYSDATE,'mm')))) INTO V_PRVYTDEND FROM DUAL;
V_PRV_YTD:='SELECT SUM('||V_COL_NAME||') FROM '||V_TAB_NAME|| ' WHERE '||V_FILTERCOL||' BETWEEN TO_DATE('''||V_PRVYTDSTR||''',''DD/MM/YYYY'') ' || ' AND TO_DATE('''||V_PRVYTDEND||''',''DD/MM/YYYY'')';
DBMS_OUTPUT.PUT_LINE(V_PRV_YTD);
EXECUTE IMMEDIATE V_PRV_YTD INTO V_SUM3;
DBMS_OUTPUT.PUT_LINE(V_SUM3);
END;
I am getting the dbms output:
SELECT TO_NUMBER(TO_CHAR(TO_DATE('19-DEC-2012', 'DD/MM/YYYY'), 'Q')) FROM DUAL
QT NUM4
01-OCT-12****31-DEC-12
SELECT SUM(ACTUAL_YIELD) FROM DWH_PRODUCTION WHERE WO_RELEASE_DATE BETWEEN TO_DATE('01-OCT-12','DD-MON-YYYY') AND TO_DATE('31-DEC-12','DD-MON-YYYY')
01-JUL-12****30-SEP-12
SELECT SUM(ACTUAL_YIELD) FROM DWH_PRODUCTION WHERE WO_RELEASE_DATE BETWEEN TO_DATE('01-JUL-12','DD/MM/YYYY') AND TO_DATE('30-SEP-12','DD/MM/YYYY')
For calculating the QTD and Previous QTD, it's showing only the query in dbms output not the sum----I've chkd the error and realize its converting the date format like DD-MON-YYYY instead of i've defined the date format as DD/MM/YYYY, so values aren't comin.
Note:- All the queries in function are giving the correct values as expected, if I fire them outside the function code, and giving correct values as data is there.....
-----For YTD and PYTD----------showing error i.e.
ORA-06502: PL/SQL: numeric or value error: character string buffer too small
ORA-06512: at "SPARC.DBMS_OUTPUT", line 116
ORA-06512: at "SPARC.DBMS_OUTPUT", line 65
ORA-06512: at line 81
I've given the string varchar2 type and 1000:
Help appreciated, Plz help me out.....
One more favor I ask i.e.----Can any1 help me to write dbms output to show all the values in one line i.e values of SUM, SUM1, SUM2, SUM3
Thnx in Advance

Answer 1

Your code is against the basics of PL/SQL..
Why are you sing DYNAMIC SQL?
And all these values (QTD,YTD..) - Cant you find it in plain SQL..?
Plase provide sample data (CEATE TABLE and INSERT statements) and expected output..
Provide the logic to arrive at expected output..
And your DB version..
And use {noformat}{noformat} tags to format the code and data you post..
What you are doing is *COMPLETELY WRONG*
Read FAQ: {message:id=9360002}