PL/SQL: ORA-00947

Question

Hi,
I have a package body as given below
CREATE OR REPLACE PACKAGE BODY DF AS
    FUNCTION T24_GetCOPYBatchKeyAndDate(RECKEY VARCHAR2)
        RETURN RTNVAL
        IS
        RTNVAL1 RTNVAL; 
        DELPOS    INTEGER;
        LISTSTRING VARCHAR2(4000);
    BEGIN
        SELECT XMLRECORD INTO LISTSTRING FROM V_F_RO_COPY_KEYLIST WHERE RECID = RECKEY;
        LISTSTRING := TRIM(LISTSTRING);
        WHILE LENGTH(LISTSTRING) <> 0
        LOOP
          DELPOS := INSTR(LISTSTRING, ' ');
          IF DELPOS = 0 THEN
             DELPOS := LENGTH(LISTSTRING) + 1;
          END IF;
    --SELECT SUBSTR(LISTSTRING, 9, DELPOS - 9) INTO RTNVAL FROM DUAL;
    SELECT TO_DATE(SUBSTR(LISTSTRING, 1, 8),'YYYYMMDD'), SUBSTR(LISTSTRING, 9, DELPOS - 9) INTO RTNVAL1 FROM DUAL;
          LISTSTRING := SUBSTR(LISTSTRING, DELPOS+1, LENGTH(LISTSTRING)-DELPOS);
        END LOOP;
        RETURN(RTNVAL1);
    END T24_GetCOPYBatchKeyAndDate;
END DF;
but i get compilation errors below is the error can anyone let me know whats the exact problem here and earlier i used this fucntion as PIPILINED and PIPE_ROW(RTNVAL).
It was working fine now i wanted to test this without pipeline fucntion.
SQL> SHOW ERRORS;
LINE/COL ERROR
19/5     PL/SQL: SQL Statement ignored
19/105   PL/SQL: ORA-00947: not enough values
SQL>

Answer 1

Now...if you do a BULK inside the loop, then the collection get's overwritten every loop iteration.
So going back to the original post
replacing
WHILE LENGTH(LISTSTRING) <> 0
LOOP
DELPOS := INSTR(LISTSTRING, ' ');
   IF DELPOS = 0 THEN
      DELPOS := LENGTH(LISTSTRING) + 1;
   END IF;
   SELECT TO_DATE(SUBSTR(LISTSTRING, 1, 8),'YYYYMMDD'), SUBSTR(LISTSTRING, 9, DELPOS - 9)) INTO RTNVAL1 FROM DUAL;
   LISTSTRING := SUBSTR(LISTSTRING, DELPOS+1, LENGTH(LISTSTRING)-DELPOS);
END LOOP;
with
WHILE LENGTH(LISTSTRING) <> 0
LOOP
DELPOS := INSTR(LISTSTRING, ' ');
   IF DELPOS = 0 THEN
      DELPOS := LENGTH(LISTSTRING) + 1;
   END IF;
   RTNVAL1.EXTEND();
    RTNVAL1(RTNVAL1.COUNT()) := DATEKEYPAIR(TO_DATE(SUBSTR(LISTSTRING, 1, 8),'YYYYMMDD')
                                                                         , SUBSTR(LISTSTRING, 9, DELPOS - 9));
   LISTSTRING := SUBSTR(LISTSTRING, DELPOS+1, LENGTH(LISTSTRING)-DELPOS);
END LOOP;
should help
hth