Procedure executes statement and exists prematurely

Question

I have been getting so much incredible help, I figure why stop now!
I have the following procedure. It runs perfectly until it gets to the line marked "--THIS LINE GETS EXECUTED AND THEN THE ROUTINE EXITS". I suspect this has something to do with all the begin..end statements but without them I get invalid sql statements errors. Any advice on how I can make this work?
PROCEDURE INTERPRET_LOOP
    p_MasterTable   IN  VARCHAR2,
    p_PrimaryIDField IN VARCHAR2)
AS
    cursor TableName_Tab IS
        select distinct DBTABLENAME from DATASPECIFICATIONS;
    v_TableName VARCHAR2(25);
    CURSOR FieldNames_Tab (cv_TableName VARCHAR2) IS
        select distinct SHORTNAME, QCTYPE, LOWVALUE, HIGHVALUE from DATASPECIFICATIONS where DBTableName = cv_TableName;
    v_FieldName VARCHAR2(25);
    v_QCType VARCHAR2(100);
    v_High VARCHAR2(25);
    v_Low VARCHAR2(25);
    v_SQL VARCHAR2(2000);
BEGIN
    OPEN TableName_Tab;
    Loop
        Fetch TableName_Tab into v_TableName;
        Exit when TableName_Tab%NOTFOUND;
        --interpret each field based on data type
        --select list of fields and types to loop through
        OPEN FieldNames_Tab(v_TableName);
        Loop
            Fetch FieldNames_Tab into v_FieldName, v_QCType, v_High, v_Low;
            Exit when FieldNames_Tab%NOTFOUND;
            If (instr(UPPER(v_QCType), 'RANGE') > 0) Then
                v_SQL:= 'HT_QCINTERPRET.INTERPRET_'||UPPER(v_QCType)||'('''||UPPER(v_FieldName)||''', '''||v_Low||''||', '''||v_High||''||', '''||UPPER(v_TableName)||''');';
            ElsIf (instr(UPPER(v_QCType), 'DATA') > 0) Then
                v_SQL:= 'HT_QCINTERPRET.INTERPRET_'||UPPER(v_QCType)||'('''||UPPER(v_TableName)||''');';
            Else
                v_SQL:= 'HT_QCINTERPRET.INTERPRET_'||UPPER(v_QCType)||'('''||UPPER(v_FieldName)||''', '''||UPPER(v_TableName)||''');';
            End If;
            v_SQL := 'BEGIN '||v_SQL||' END;';
            execute immediate v_SQL;    --THIS LINE GETS EXECUTED AND THEN THE ROUTINE EXITS
        End Loop;
        --update DATAINFO table.  insert interpretation failures
        If v_TableName <> p_MasterTable Then
            v_SQL := 'insert into DATAINFO select p.'||UPPER(p_PrimaryIDField)||', 1, t.RECORDID, '''||UPPER(v_FieldName)||''', '||CURRENT_DATE||', p.DATAVRSN, '''||UPPER(v_QCType)||'''';
            v_SQL := v_SQL||' from '||UPPER(v_TableName)||' t left join '||UPPER(p_MasterTable)||' p on t.'||UPPER(p_PrimaryIDField)||' = p.'||UPPER(p_PrimaryIDField);
            v_SQL := v_SQL||' where t.'||UPPER(v_FieldName)||' is NULL and t.'||UPPER(v_FieldName)||'_IN is NOT NULL';
        Else
            v_SQL := 'insert into DATAINFO select p.'||UPPER(p_PrimaryIDField)||', 1, p.RECORDID, '''||UPPER(v_FieldName)||''', '||CURRENT_DATE||', p.DATAVRSN, '''||UPPER(v_QCType)||'''';
            v_SQL := v_SQL||' from '||UPPER(v_TableName)||' p ';
            v_SQL := v_SQL||' where p.'||UPPER(v_FieldName)||' is NULL and p.'||UPPER(v_FieldName)||'_IN is NOT NULL';
        End If;
        v_SQL := 'BEGIN '||v_SQL||' END;';
        execute immediate v_SQL;
        close FieldNames_Tab;
    End Loop;
    close TableName_Tab;
    commit work;
END INTERPRET_LOOP;Thanks!!!!

Answer 1

Hmmm,
Interesting. Never typed a >< in here.
Btw, try doing a dbms_output.put_line(V_SQL) before the execute immediate. i.e
        v_SQL := 'BEGIN '||v_SQL||' END;';
        dbms_output.put_line(v_SQL);
        execute immediate v_SQL;and see if that gets printed properly (and also as expected)
-Arun
Edited by: Arunkumar Ramamoorthy on Oct 22, 2009 1:08 AM