Print an indexed element from the array. : Table of Char « PL SQL « Oracle PL / SQL

Home
Oracle PL / SQL
1.Aggregate Functions
2.Analytical Functions
3.Char Functions
4.Constraints
5.Conversion Functions
6.Cursor
7.Data Type
8.Date Timezone
9.Hierarchical Query
10.Index
11.Insert Delete Update
12.Large Objects
13.Numeric Math Functions
14.Object Oriented Database
15.PL SQL
16.Regular Expressions
17.Report Column Page
18.Result Set
19.Select Query
20.Sequence
21.SQL Plus
22.Stored Procedure Function
23.Subquery
24.System Packages
25.System Tables Views
26.Table
27.Table Joins
28.Trigger
29.User Previliege
30.View
31.XML
Oracle PL / SQL » PL SQL » Table of Char 
Print an indexed element from the array.
    

SQL> DECLARE
  2    current VARCHAR2(CHAR);
  3    element INTEGER;
  4
  5    TYPE months_varray IS VARRAY(12OF STRING(CHAR);
  6    TYPE calendar_table IS TABLE OF VARCHAR2(CHARINDEX BY VARCHAR2(CHAR);
  7
  8    month MONTHS_VARRAY := months_varray('January','February','March','April','May','June','July','August','September','October','November','December');
  9
 10    calendar CALENDAR_TABLE;
 11  BEGIN
 12    IF calendar.COUNT = THEN
 13      FOR i IN month.FIRST..month.LAST LOOP
 14        calendar(month(i)) := TO_CHAR(i);
 15        DBMS_OUTPUT.PUT_LINE('Index ['||month(i)||'] is ['||i||']');
 16      END LOOP;
 17
 18      FOR i IN 1..calendar.COUNT LOOP
 19        IF i = THEN
 20          current := calendar.FIRST;
 21          element := calendar(current);
 22        ELSE
 23          IF calendar.NEXT(currentIS NOT NULL THEN
 24            current := calendar.NEXT(current);
 25            element := calendar(current);
 26          ELSE
 27            EXIT;
 28          END IF;
 29        END IF;
 30
 31        DBMS_OUTPUT.PUT_LINE('Index ['||current||'] is ['||element||']');
 32      END LOOP;
 33    END IF;
 34  END;
 35  /
Index [Januaryis [1]
Index [Februaryis [2]
Index [Marchis [3]
Index [Aprilis [4]
Index [Mayis [5]
Index [Juneis [6]
Index [Julyis [7]
Index [Augustis [8]
Index [Septemberis [9]
Index [Octoberis [10]
Index [Novemberis [11]
Index [Decemberis [12]
Index [Aprilis [4]
Index [Augustis [8]
Index [Decemberis [12]
Index [Februaryis [2]
Index [Januaryis [1]
Index [Julyis [7]
Index [Juneis [6]
Index [Marchis [3]
Index [Mayis [5]
Index [Novemberis [11]
Index [Octoberis [10]
Index [Septemberis [9]

PL/SQL procedure successfully completed.

   
    
    
    
  
Related examples in the same category
1.Use table of char as an array
2.FIRST, LAST, NEXT, and PRIOR.
3.Loop backwards over the table
4.Check if next index value exists.
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.