1 PACKAGE BODY OEXCYMCA AS
2 /* $Header: OEXCYCAB.pls 115.1 99/07/16 08:12:15 porting shi $ */
3 PROCEDURE GET_RESULT_COLUMN (P_RESULT_TABLE IN VARCHAR2, RESULT_COLUMN OUT VARCHAR2) IS
4 I INTEGER := 1;
5 QUALIFIER VARCHAR2 (10);
6 DUMMY CHAR (1);
7
8 BEGIN
9 RESULT_COLUMN := NULL;
10 WHILE I < 29 LOOP
11 I := I + 1;
12 QUALIFIER := 'S' || TO_CHAR (I);
13
14 SELECT NULL
15 INTO DUMMY
16 FROM SO_ACTIONS
17 WHERE RESULT_COLUMN = QUALIFIER
18 AND RESULT_TABLE = P_RESULT_TABLE;
19 END LOOP;
20
21 EXCEPTION
22 WHEN NO_DATA_FOUND THEN
23 RESULT_COLUMN := QUALIFIER;
24 END GET_RESULT_COLUMN;
25 END OEXCYMCA;