Looping issue in stored procedure

Question

Hi Experts,
currently i am using below version :
Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - Production
PL/SQL Release 11.2.0.1.0 - Production
CORE     11.2.0.1.0     Production
TNS for 32-bit Windows: Version 11.2.0.1.0 - Production
Here i am describibng DDL and DML queries.
CREATE TABLE test_1 (c1 NUMBER,c2 VARCHAR2(30),c3 VARCHAR2(20));
INSERT INTO test_1 VALUES(10,'abcdefg','abcdefg');
INSERT INTO test_1 VALUES(20,'Hi jklm','hij klmn');
i want the ouput like below : (count of spaces,count of lower characters,count of upper characters for every column)
Number of spaces : 0 column_name :c2
Number of uppercase char : 0 column_name :c2
Number of lowercase char :7 column_name :c2
Number of spaces : 0 column_name :c3
Number of uppercase char : 0 column_name :c3
Number of lowercase char :7 column_name :c3
Number of spaces : 1 column_name :c2
Number of uppercase char : 1 column_name :c2
Number of lowercase char :5 column_name :c2
Number of spaces : 1 column_name :c3
Number of uppercase char : 0 column_name :c2
Number of lowercase char :7 column_name :c2
For the above requirement i had written the below procedure. but i am getting error, Please help me on this issue. or else tell me other logic for this requirement.
create or replace procedure string_count(intab IN VARCHAR2)
AS
v_str VARCHAR2(200);
v_query VARCHAR2(200);
l NUMBER;
i NUMBER := 1;
ss VARCHAR2(20);
ascii NUMBER;
upper_count NUMBER := 0;
lower_count NUMBER := 0;
space_count NUMBER := 0;
BEGIN
FOR i IN (SELECT COLUMN_NME FROM USER_TAB_COLUMNS WHERE TABLE_NAME=UPPER(intab) AND DATA_TYPE IN ('VARCHAR2'))
LOOP
BEGIN
v_query := 'CURSOR c2 IS select '||i.column_name||' from '||intab;
EXECUTE IMMEDIATE v_query INTO v_str;
l := LENGTH(v_str);
WHILE i <= l
LOOP
ss := substring(v_str,i,1);
IF (ASCII(ss)) = ASCII(' ') THEN
space_count := space_count+ 1;
ELSE
IF (ASCII(ss)) = ASCII(UPPER(ss)) THEN
upper_count := upper_count + 1;
ELSE
lower_count := lower_count + 1;
i := i + 1;
END IF;
END LOOP;
END;
CLOSE c2;
DBMS_OUTPUT.PUT_LINE(space_count|| 'Number of spaces :'||v_str );
DBMS_OUTPUT.PUT_LINE(upper_coun|| 'Number of uppercase char :'||v_str );
DBMS_OUTPUT.PUT_LINE(lower_count||'Number of lowercase char :'||v_str);
END LOOP;
CLOSE c1;
END string_count;
ERROR is : Error(33,8): PLS-00103: Encountered the symbol "LOOP" when expecting one of the following: if
Thanks in Advance.

Answer 1

Hi Purvesh,
Now your logic is fine.defiantly will be useful for my requirement. but i had written the procedure for this requirement with other logic it is not working.
Here is the procedure : (at compile time no issue but at run time got error)
create or replace procedure string_count (intab IN VARCHAR2)
AS
    v_str VARCHAR2(200);
    v_query VARCHAR2(200);
    a NUMBER;
    i NUMBER := 1;
    ss VARCHAR2(200);
    upper_count NUMBER := 0;
    lower_count NUMBER := 0;
    space_count NUMBER := 0;
BEGIN
    FOR k IN (SELECT COLUMN_NAME FROM USER_TAB_COLUMNS WHERE TABLE_NAME=UPPER(intab) AND DATA_TYPE IN ('VARCHAR2'))
    LOOP
BEGIN
      v_query := 'CURSOR c2 IS select '||k.column_name||' from '||intab ;
      EXECUTE IMMEDIATE v_query INTO v_str;
      a := LENGTH(v_str);
        WHILE i <= a
        LOOP
           ss := substr(v_str,i,1);
         IF ASCII(ss) = ASCII(' ') THEN
           space_count := space_count + 1;
         ELSIF ASCII(ss) = ASCII(UPPER(ss)) THEN
           upper_count := upper_count + 1;
         ELSE
           lower_count := lower_count + 1;
           i := i + 1;
         END IF;
        END LOOP;
END;
   DBMS_OUTPUT.PUT_LINE('No.of spaces:'||space_count||' ' ||v_str );
   DBMS_OUTPUT.PUT_LINE('No.of upper case char:'||upper_count||' '||v_str );
   DBMS_OUTPUT.PUT_LINE('No.of lower case char:'||lower_count||' '||v_str);
    END LOOP;
END string_count;Here is the Error Message :
ERROR : Error starting at line 1 in command:
EXECUTE string_count('BB');
Error report:
ORA-00900: invalid SQL statement
ORA-06512: at "TESTUSER.STRING_COUNT", line 17
ORA-06512: at line 1
00900. 00000 - "invalid SQL statement"Please suggest me on this error and even i had tried to create a procedure with your logic. but i am blank to put your logic in the procedure.
Here is the proceduere of ur logic(incomplete) :
create or replace procedure string_count1 (intab IN VARCHAR2)
AS
lowercase_count NUMBER;
uppercase_count NUMBER;
space_count NUMBER;
v_str VARCHAR2(200);
v_query VARCHAR2(200);
CURSOR c1 IS SELECT COLUMN_NAME FROM USER_TAB_COLUMNS WHERE TABLE_NAME=UPPER(intab) AND DATA_TYPE IN ('VARCHAR2');
BEGIN
OPEN c1 ;
LOOP
FETCH c1 INTO v_str;
EXIT WHEN c1%NOTFOUND;
v_query := 'SELECT regexp_count('||v_str||','|| '''[a-z]'''||',' ||'1'||','|| '''c'''||') FROM '||intab;
EXECUTE IMMEDIATE v_query INTO lowercase_count;
DBMS_OUTPUT.PUT_LINE(lowercase_count);
--DBMS_OUTPUT.PUT_LINE(v_query);
END LOOP;
CLOSE c1;
END string_count1;My ouput should be like :
DBMS_OUTPUT.PUT_LINE('No.of spaces:'||space_count||' ' ||v_str );
DBMS_OUTPUT.PUT_LINE('No.of upper case char:'||upper_count||' '||v_str );
DBMS_OUTPUT.PUT_LINE('No.of lower case char:'||lower_count||' '||v_str);Thanks,