Please send me select statement for the below query.....

Question

FOR i IN 1..9 LOOP
IF shift(i) IS NULL THEN
FOR y IN i+1..9 LOOP
IF shift(y) IS NOT NULL THEN
shift(i) := shift(y);
shift(y) := NULL;
EXIT;
END IF;
END LOOP;
END IF;
END LOOP;
please how to write select query to replace loops in above code

Answer 1

CREATE or REPLACE function MyFun(
code_1 IN VARCHAR2,
code_2 IN VARCHAR2,
code_3 IN VARCHAR2
)RETURN INTEGER IS
out_param INTEGER:=0;
TYPE t_cos IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
shift t_cos;
i NUMBER;
y NUMBER;
BEGIN
shift(1) := TRIM(code_1);
shift(2) := TRIM(code_2);
shift(3) := TRIM(code_3);
FOR i IN 1..3 LOOP
IF shift(i) IS NULL THEN
FOR y IN i+1..3 LOOP
IF shift(y) IS NOT NULL THEN
shift(i) := shift(y);
shift(y) := NULL;
EXIT;
END IF;
END LOOP;
END IF;
END LOOP;
For i IN 1..3 Loop
IF substr(shift(i),1,1) = 'E' THEN
out_param := shift(i);
EXIT;
ELSE
out_param := NULL;
END IF;
END LOOP;
out_param := 1;
RETURN (out_param);
END;
For Ex we have 100 recors this loops i.e For loops executes more than 100 times we need to avoid this thing and replace for loop's and write select stmt on this.
Edited by: 867554 on Jun 22, 2011 6:31 AM