Error while executing a function

Question

I had created a function F_GET_PRH_NO_QTY. While using this function in a query system is giving me error as given below :
ORA-06502: PL/SQL: numeric or value error: character string buffer too small
ORA-06512: at "ORION_REPORTS.F_GET_PRH_NO_QTY", line 36
CREATE OR REPLACE FUNCTION F_GET_PRH_NO_QTY(P_PWH_NO NUMBER)
RETURN VARCHAR2
AS
L_RET_VAL VARCHAR2(4000);
CURSOR C1 IS
SELECT REP_NO, REP_QTY
FROM
SELECT PRH_NO REP_NO, NVL(PRSO_REP_QTY_BU/IU_CONV_FACTOR/IU_MAX_LOOSE_1,0) REP_QTY
FROM OT_PR_HEAD, OT_PWO_HEAD, OT_PR_WO_DETAIL, OT_PR_STAGE_OUTPUT, OM_ITEM, OM_ITEM_UOM
WHERE ITEM_CODE = IU_ITEM_CODE AND ITEM_UOM_CODE = IU_UOM_CODE
AND PWH_SYS_ID = PRH_REF_SYS_ID (+)
AND PRH_SYS_ID = PRWD_PRH_SYS_ID -- FROM OT_PR_WO_DETAIL TABLE
AND PRWD_SYS_ID = PRSO_PRWD_SYS_ID -- FROM OT_PR_STAGE_OUTPUT TABLE
AND PWH_NO = P_PWH_NO
M_REP_NO VARCHAR2(40);
M_REP_QTY VARCHAR2(40);
M_TEMP1 NUMBER := 0;
M_RNO_RQTY VARCHAR2(2000);
BEGIN
IF C1%ISOPEN THEN
CLOSE C1;
END IF;
OPEN C1;
LOOP
FETCH C1 INTO M_REP_NO, M_REP_QTY;
EXIT WHEN C1%NOTFOUND;
M_TEMP1 := M_TEMP1 + 1;
IF M_TEMP1 = 1 THEN
M_RNO_RQTY := M_REP_NO||'-'||M_REP_QTY;
ELSE
M_RNO_RQTY := M_RNO_RQTY||', '||M_REP_NO||' - '||M_REP_QTY;
END IF;
END LOOP;
--RETURN NVL(M_RNO_RQTY,'');
RETURN L_RET_VAL;
END;
Yogesh

Answer 1

you need to use pipelined function to break into small chunks...
CREATE OR REPLACE
  FUNCTION F_GET_PRH_NO_QTY
      P_PWH_NO NUMBER)
    RETURN VARCHAR2 PIPELINED
  IS
    L_RET_VAL VARCHAR2(4000);
    v_counter NUMBER := 1;
    v_temp VARCHAR2(4000) := NULL;
    CURSOR C1
    IS
       SELECT REP_NO,
        REP_QTY
         FROM
        (SELECT PRH_NO REP_NO,
          NVL(PRSO_REP_QTY_BU/IU_CONV_FACTOR/IU_MAX_LOOSE_1,0) REP_QTY
           FROM OT_PR_HEAD  ,
          OT_PWO_HEAD       ,
          OT_PR_WO_DETAIL   ,
          OT_PR_STAGE_OUTPUT,
          OM_ITEM           ,
          OM_ITEM_UOM
          WHERE ITEM_CODE = IU_ITEM_CODE
        AND ITEM_UOM_CODE = IU_UOM_CODE
        AND PWH_SYS_ID    = PRH_REF_SYS_ID
        AND PRH_SYS_ID    = PRWD_PRH_SYS_ID  -- FROM OT_PR_WO_DETAIL TABLE
        AND PRWD_SYS_ID   = PRSO_PRWD_SYS_ID -- FROM OT_PR_STAGE_OUTPUT TABLE
        AND PWH_NO        = P_PWH_NO
    M_REP_NO   VARCHAR2(40);
    M_REP_QTY  VARCHAR2(40);
    M_TEMP1    NUMBER := 0;
    M_RNO_RQTY VARCHAR2(2000);
  BEGIN
    IF C1%ISOPEN THEN
      CLOSE C1;
    END IF;
    OPEN C1;
    LOOP
      FETCH C1 INTO M_REP_NO, M_REP_QTY;
      EXIT
    WHEN C1%NOTFOUND;
      M_TEMP1      := M_TEMP1 + 1;
      IF M_TEMP1    = 1 THEN
        M_RNO_RQTY := M_REP_NO||'-'||M_REP_QTY;
      ELSE
        M_RNO_RQTY := M_RNO_RQTY||', '||M_REP_NO||' - '||M_REP_QTY;
      END IF;
    END LOOP;
    LOOP
    v_temp := SUBSTR(v_xml,   v_counter,   4000);
    EXIT
    WHEN v_temp IS NULL;
    pipe ROW(v_temp);
    v_counter := v_counter + 4000;
    END LOOP;
    RETURN ;
  END;
  /untested....
for executing above
select * from table(F_GET_PRH_NO_QTY(<your variable inside quotes>))Ravi Kumar