Case identification

Question

Hi,
Can anyone help me with a program that can change the case of a string ie from lower to upper case without using upper case or the translate function.the string should be entered by the user.
ex:
let' s say the user enters ' world ' (lower case)
the ouput should be 'WORLD' (upper case ) this should be done with using pl/sql and without any case functions(upper or translate).
please can you help me with this.

Answer 1

Hi,
Waht do you think about this:
create or replace PROCEDURE CONVERT_STRING
(p_inputStr IN VARCHAR2, p_outputStr OUT VARCHAR2, p_option IN VARCHAR2)
IS
v_inputStrLength NUMBER;
v_letter VARCHAR2(10);
v_letterNo NUMBER;
BEGIN
EXECUTE IMMEDIATE 'SELECT LENGTH(:1) FROM DUAL' INTO v_inputStrLength USING p_inputStr;   
--if p_option is 'H' then convert small letter to big one
IF p_option = 'H' THEN
  FOR counter IN 1..v_inputStrLength LOOP
    EXECUTE IMMEDIATE 'SELECT SUBSTR(:1,:counter,1) FROM DUAL' INTO v_letter USING p_inputStr,counter;
    EXECUTE IMMEDIATE 'SELECT ASCII(:1) FROM DUAL' INTO v_letterNo USING v_letter;
    IF v_letterNo >=97 AND v_letterNo <=122  THEN
      p_outputStr := p_outputStr || CHR(v_letterNo - 32);
    ELSE
      p_outputStr := p_outputStr || v_letter;
    END IF;
  END LOOP;
ELSIF p_option = 'L' THEN
  FOR counter IN 1..v_inputStrLength LOOP
    EXECUTE IMMEDIATE 'SELECT SUBSTR(:1,:counter,1) FROM DUAL' INTO v_letter USING p_inputStr,counter;
    EXECUTE IMMEDIATE 'SELECT ASCII(:1) FROM DUAL' INTO v_letterNo USING v_letter;
   IF v_letterNo >=65 AND v_letterNo <= 90 THEN
      p_outputStr := p_outputStr || CHR(v_letterNo + 32);
    ELSE
      p_outputStr := p_outputStr || v_letter;
    END IF;
  END LOOP;
  --if 3rd parameter is invalid
ELSE
  DBMS_OUTPUT.PUT_LINE('INVALID 3RD PARAMETER. AVAILABLE OPTIONS: "H" and "L"');
END IF;
DBMS_OUTPUT.PUT_LINE(p_outputStr);
END;Then invoke it:
DECLARE
v_result VARCHAR2(100);
BEGIN
CONVERT_STRING('ABcD',v_result,'L');
END;Peter D.