프로시져 배열 선언 및 활용(연습용)

아주 간단하게 배열을 선언해서 써보면 좋겟다~ 라는 로직 문의가 들어왔다.
프로시져에 배열을 선언해서 쓰는 주위 사람이 아무도 없기에! -_-;; 인터넷을 뒤져가면서 얻어낸 방법을 포스팅한다. 

이번껀은 연습용으로 만든 숫자를 기입받아 출력하는 프로시져 이다.(단순 구구단 입니다; ㅎ) 

 - int 형 배열 

소스코드 는 아래의 더보기를 눌러주세요.

CREATE OR REPLACE PROCEDURE arrayTest (  n    IN  number)

is

TYPE type_array IS VARRAY (9) OF number;          --array 선언부 number 형의 배열 9개를 선언 

      gugudan_array type_array := type_array();   -- 선언한 배열을 해당 구문에 적용.

      

 

BEGIN

        

   FOR i IN 1 ..9

      LOOP

      

        gugudan_array.EXTEND;

        gugudan_array(i) :=  n*i ;

        

        DBMS_OUTPUT.PUT_LINE ('gugudan_array : '|| n ||' * '|| i ||' = ' || gugudan_array (i));   

 

    END LOOP;

END arrayTest ;

gugudan_array 라는 int형 배열 9개를 선언한것을 볼수 있다.
array의 선언은  TYPE 을 통해서 하며 선언한 TYPE 을 넣어줌으로써 ( type_array := type_array(); 요부분) 배열의 선언은 완료 된다.

해당 배열의 접근은  gugudan_array.EXTEND; 로 접근상태를 활성화 한다음  gugudan_array(i) 로 배열에 접근하는것을 볼수 있다. (여러개의 배열을 사용할 경우 배열이름.EXTEND; 만 상위단에 선언해주면 접근할수 있다.)

-. 해당 프로시져 결과 화면( 파라미터 값을 9로 했을 경우.)

-. char 형 배열

소스코드 는 아래의 더보기를 눌러주세요.

CREATE OR REPLACE PROCEDURE arrayTest ( sv_char    IN   VARCHAR2)is

TYPE type1 IS VARRAY (26) OF VARCHAR2 (1);

      char_array type1 := type1();   

 

 s_char_temp        VARCHAR2(2);

  

BEGIN

    s_char_temp := sv_char;

        

        

   FOR i IN 1 ..26

      LOOP

      

 

         char_array.EXTEND;

        

       char_array (i) := chr(ascii(s_char_temp)+(i-1));       

     

        

        DBMS_OUTPUT.PUT_LINE ('char_array : ' || char_array (i));   

    END LOOP;

END arrayTest ;

 TYPE type1 IS VARRAY (26) OF VARCHAR2 (1); 를 보면 varchar2(1) 싸이즈 배열을 26개짜리를 선언하였다.
(필요에 따라서 싸이즈만 늘려주면 된다.) 
ascii() 함수로 파라미터로 받은 캐릭터형의 아스키 코드 부터 26개까지를 배열에 집어 넣은 단순한 코드이다.