Oracle report function error..........

Question

Dear
i am using oracle report 6i and database 10g. my function is below---
function CF_ITEMFormula return VARCHAR2 is
v_item varchar2(30);
V_1 VARCHAR2(20);
begin
          SELECT      DISTINCT B.ITEM_CODE,(SELECT WE.WIP_ENTITY_NAME FROM APPS.WIP_ENTITIES WE WHERE WE.WIP_ENTITY_ID=B.CHILD_WIP_ID)
          INTO           V_ITEM ,v_1
          FROM           WEBSUPP.ELE_WIP_EXPLOED_DTL A,
                              WEBSUPP.ELE_WIP_EXPLOED_DTL B
          WHERE      B.AUTO_NUMBER = 1
          AND           B.CHILD_WIP_ID IS NOT NULL
          AND           B.CHILD_WIP_ID = A.PRIMARY_WIP_ID
          AND           A.ITEM_CODE = :ITEM_CODE_1;
IF :ITEM_CODE1 IS NULL THEN
     RETURN V_ITEM;
ELSE
     RETURN :ITEM_CODE1;
END IF;
EXCEPTION
     WHEN OTHERS THEN RETURN :ITEM_CODE1;      
end;
but it gives following error...
Encounter the symbol SELECT when expecting....
pls solve...
PS

Answer 1

Try this also:
FUNCTION cf_itemformula RETURN VARCHAR2 IS
   v_item varchar2(30);
   v_1 VARCHAR2(20);
begin
   SELECT DISTINCT B.ITEM_CODE,WE.WIP_ENTITY_NAME
   INTO v_item ,v_1
   FROM WEBSUPP.ELE_WIP_EXPLOED_DTL A,
   WEBSUPP.ELE_WIP_EXPLOED_DTL B,
   APPS.WIP_ENTITIES WE
   WHERE B.AUTO_NUMBER = 1
   AND B.CHILD_WIP_ID IS NOT NULL
   AND B.CHILD_WIP_ID = A.PRIMARY_WIP_ID
   AND NVL(A.ITEM_CODE,'*') = NVL(:ITEM_CODE_1,'*')
   AND WE.WIP_ENTITY_ID=B.CHILD_WIP_ID
   AND ROWNUM = 1;
   IF :ITEM_CODE1 IS NULL
   THEN
      RETURN v_item;
   ELSE
      RETURN :ITEM_CODE1;
   END IF;
EXCEPTION
   WHEN OTHERS THEN
      RETURN :ITEM_CODE1;
END;Also I notice your "v_1" variable is not used at all except to receive the entity_name, but other than that is not being used, if it is not used then remove it as follows:
FUNCTION cf_itemformula RETURN VARCHAR2 IS
   v_item varchar2(30);
begin
   SELECT DISTINCT B.ITEM_CODE
   INTO v_item
   FROM WEBSUPP.ELE_WIP_EXPLOED_DTL A,
   WEBSUPP.ELE_WIP_EXPLOED_DTL B
   WHERE B.AUTO_NUMBER = 1
   AND B.CHILD_WIP_ID IS NOT NULL
   AND B.CHILD_WIP_ID = A.PRIMARY_WIP_ID
   AND NVL(A.ITEM_CODE,'*') = NVL(:ITEM_CODE_1,'*')
   AND ROWNUM = 1;
   IF :ITEM_CODE1 IS NULL
   THEN
      RETURN v_item;
   ELSE
      RETURN :ITEM_CODE1;
   END IF;
EXCEPTION
   WHEN OTHERS THEN
      RETURN :ITEM_CODE1;
END;Let me know if this helps.
Thanks!