Plsql procedure help..

Question

Hi There,
We're developing a procedure that takes a string, a delimiter, assign the individual tokens to variables, and return the variables to the calling program.
Since I'm new to pl/sql, I'm not quite sure how to do the last bit (assign the tokens to the variables and return them to the calling program), and we we're looking at some help please. In other words, I have a loop, fetch a cursor into variable.. and we're wondering how can we assign the 1st value of the cursor to the 1st defined OUT variable in the procedure heading (the 2nd cursor value to the 2nd OUT variable, ..etc)?
Here is the code:
procedure string_to_tokens (in_str                IN varchar2,
                                delim                      IN varchar2,
                    VENDOR_ID               OUT number,
                    CCF_ID                    OUT number,
                    PRR_ID                    OUT number,
                    CON_NAME                 OUT VARCHAR2,
                    CONT_TYPE_ID               OUT number,
                    DEPOSIT_DATE               OUT VARCHAR2,
                    CON_YEAR               OUT VARCHAR2,
                    CHG_NAME               OUT VARCHAR2,
                    CON_AMOUNT               OUT number,
                    TOT_AMOUNT               OUT number)
is
     mystring varchar2(100);
     cursor str_cur is
     SELECT
           SUBSTR
                ( in_str
                , DECODE(LEVEL, 1, 1, INSTR(in_str, delim, 1, LEVEL-1)+1)
                , INSTR(in_str, delim, 1, LEVEL) -
                  DECODE(LEVEL, 1, 1, INSTR(in_str, delim, 1, LEVEL-1)+1)
     FROM DUAL
     CONNECT BY INSTR(in_str, delim, 1, LEVEL)>0
     ORDER BY LEVEL ASC;
begin
     open str_cur;
     loop
     fetch str_cur into mystring;
     exit when str_cur%NOTFOUND;
     dbms_output.put_line ('mystring is '||mystring);
     end loop;
     close str_cur;
end string_to_tokens;a sample input string would be:
'22|||1334502 RegXL Ltd|18|10032011|2011|John Joe|2000.00|2000.00'The delimiter would be '|'.
Thanks in advance for your help.
Thanks
Edited by: rsar001 on Oct 26, 2011 7:39 AM
Edited by: rsar001 on Oct 26, 2011 7:40 AM

Answer 1

Hi,
You can do something like this:
CREATE OR REPLACE procedure string_to_tokens
(                                  in_str                    IN varchar2,
                                delim                      IN varchar2,
                    VENDOR_ID               OUT number,
                    CCF_ID                    OUT number,
                    PRR_ID                    OUT number,
                    CON_NAME                 OUT VARCHAR2,
                    CONT_TYPE_ID               OUT number,
                    DEPOSIT_DATE               OUT VARCHAR2,
                    CON_YEAR               OUT VARCHAR2,
                    CHG_NAME               OUT VARCHAR2,
                    CON_AMOUNT               OUT number,
                    TOT_AMOUNT               OUT number,
                    encloser               IN  VARCHAR2     := '"'          -- new argument added
is
     mystring     VARCHAR2 (32767)     := in_str || delim;     -- Remining text to process
     sub_str          VARCHAR2 (32767);                            -- Nth delimited item
     loop_cntr     PLS_INTEGER          := 0;
     delimiter_pos     PLS_INTEGER          := -1;               -- position of 1st delimiter in remaining text
begin
     WHILE  delimiter_pos != 0
     AND    loop_cntr     <= 10
     LOOP
         loop_cntr := loop_cntr + 1;
         IF  SUBSTR (mystring, 1, 1) = encloser               -- Changes start here
         THEN       -- Next token is enclosed; next token ends with encloser
          delimiter_pos := INSTR (mystring, encloser, 2);
             sub_str := SUBSTR ( mystring
                         , 2
                      , delimiter_pos - 2
          mystring := SUBSTR ( mystring
                           , delimiter_pos + 2
         ELSE     -- Usual situation: next token ends with delim
             delimiter_pos := INSTR (mystring, delim);
             sub_str := SUBSTR ( mystring
                         , 1
                      , delimiter_pos - 1
          mystring := SUBSTR ( mystring
                           , delimiter_pos + 1
         END IF;
         IF  delimiter_pos > 0
         THEN
                                             -- Changes end here
          IF    loop_cntr =  1
          THEN
              vendor_id    := TO_NUMBER (sub_str);
          ELSIF loop_cntr =  2
          THEN
              ccf_id       := TO_NUMBER (sub_str);
          ELSIF loop_cntr =  3
          THEN
              prr_id       := TO_NUMBER (sub_str);
          ELSIF loop_cntr =  4
          THEN
              con_name     :=            sub_str;
          ELSIF loop_cntr =  5
          THEN
              cont_type_id  := TO_NUMBER (sub_str);
          ELSIF loop_cntr =  6
          THEN
              deposit_date  := TO_NUMBER (sub_str);     -- Should this be a DATE, rather than a NUMBER?
          ELSIF loop_cntr =  7
          THEN
              con_year     :=            sub_str;
          ELSIF loop_cntr =  8
          THEN
              chg_name     :=            sub_str;
          ELSIF loop_cntr =  9
          THEN
              con_amount   := TO_NUMBER (sub_str);
          ELSIF loop_cntr = 10
          THEN
              tot_amount   := TO_NUMBER (sub_str);
          END IF;
         END IF;
     END LOOP;
end string_to_tokens;
{code}
I added an optional argument after tot_amount, and changed a few lines of code at the beginning of the loop.  The rest of the procedure is unchanged.