Oracle PL/SQL/PL SQL/Data Type Define
avoid declaration exception
<source lang="sql">
SQL> SQL> SQL> declare
2 myNumber number; 3 begin 4 myNumber := "MY NUMBER"; 5 exception 6 when OTHERS then 7 dbms_output.put_line("Exception caught"); 8 raise; 9 end; 10 / declare
ERROR at line 1: ORA-06502: PL/SQL: numeric or value error: character to number conversion error ORA-06512: at line 8
SQL>
</source>
Define data type for later use
<source lang="sql">
SQL> -- create demo table SQL> create table Employee(
2 ID VARCHAR2(4 BYTE) NOT NULL, 3 First_Name VARCHAR2(10 BYTE), 4 Last_Name VARCHAR2(10 BYTE), 5 Start_Date DATE, 6 End_Date DATE, 7 Salary Number(8,2), 8 City VARCHAR2(10 BYTE), 9 Description VARCHAR2(15 BYTE) 10 ) 11 /
Table created. SQL> SQL> -- prepare data SQL> insert into Employee(ID, First_Name, Last_Name, Start_Date, End_Date, Salary, City, Description)
2 values ("01","Jason", "Martin", to_date("19960725","YYYYMMDD"), to_date("20060725","YYYYMMDD"), 1234.56, "Toronto", "Programmer") 3 /
1 row created. SQL> insert into Employee(ID, First_Name, Last_Name, Start_Date, End_Date, Salary, City, Description)
2 values("02","Alison", "Mathews", to_date("19760321","YYYYMMDD"), to_date("19860221","YYYYMMDD"), 6661.78, "Vancouver","Tester") 3 /
1 row created. SQL> insert into Employee(ID, First_Name, Last_Name, Start_Date, End_Date, Salary, City, Description)
2 values("03","James", "Smith", to_date("19781212","YYYYMMDD"), to_date("19900315","YYYYMMDD"), 6544.78, "Vancouver","Tester") 3 /
1 row created. SQL> insert into Employee(ID, First_Name, Last_Name, Start_Date, End_Date, Salary, City, Description)
2 values("04","Celia", "Rice", to_date("19821024","YYYYMMDD"), to_date("19990421","YYYYMMDD"), 2344.78, "Vancouver","Manager") 3 /
1 row created. SQL> insert into Employee(ID, First_Name, Last_Name, Start_Date, End_Date, Salary, City, Description)
2 values("05","Robert", "Black", to_date("19840115","YYYYMMDD"), to_date("19980808","YYYYMMDD"), 2334.78, "Vancouver","Tester") 3 /
1 row created. SQL> insert into Employee(ID, First_Name, Last_Name, Start_Date, End_Date, Salary, City, Description)
2 values("06","Linda", "Green", to_date("19870730","YYYYMMDD"), to_date("19960104","YYYYMMDD"), 4322.78,"New York", "Tester") 3 /
1 row created. SQL> insert into Employee(ID, First_Name, Last_Name, Start_Date, End_Date, Salary, City, Description)
2 values("07","David", "Larry", to_date("19901231","YYYYMMDD"), to_date("19980212","YYYYMMDD"), 7897.78,"New York", "Manager") 3 /
1 row created. SQL> insert into Employee(ID, First_Name, Last_Name, Start_Date, End_Date, Salary, City, Description)
2 values("08","James", "Cat", to_date("19960917","YYYYMMDD"), to_date("20020415","YYYYMMDD"), 1232.78,"Vancouver", "Tester") 3 /
1 row created. SQL> SQL> SQL> SQL> -- display data in the table SQL> select * from Employee
2 /
ID FIRST_NAME LAST_NAME START_DAT END_DATE SALARY CITY DESCRIPTION
---------- ---------- --------- --------- ---------- ---------- ---------------
01 Jason Martin 25-JUL-96 25-JUL-06 1234.56 Toronto Programmer 02 Alison Mathews 21-MAR-76 21-FEB-86 6661.78 Vancouver Tester 03 James Smith 12-DEC-78 15-MAR-90 6544.78 Vancouver Tester 04 Celia Rice 24-OCT-82 21-APR-99 2344.78 Vancouver Manager 05 Robert Black 15-JAN-84 08-AUG-98 2334.78 Vancouver Tester 06 Linda Green 30-JUL-87 04-JAN-96 4322.78 New York Tester 07 David Larry 31-DEC-90 12-FEB-98 7897.78 New York Manager 08 James Cat 17-SEP-96 15-APR-02 1232.78 Vancouver Tester 8 rows selected. SQL> SQL> SQL> SQL> SQL> set serverout on SQL> SQL> declare
2 type myTextTableType is table of varchar2(200) index by binary_integer; 3 4 type my_emp_table_type is table of employee%rowtype index by binary_integer; 5 6 l_text_table myTextTableType; 7 myEmpTable my_emp_table_type; 8 begin 9 l_text_table(1) := "varchar2 value"; 10 l_text_table(2) := "varchar2 value 2"; 11 12 myEmpTable(10).id := 10; 13 myEmpTable(10).first_name := "S"; 14 myEmpTable(10).last_name := "D"; 15 16 myEmpTable(20).id := 20; 17 myEmpTable(20).first_name := "Chris"; 18 myEmpTable(20).last_name := "Beck"; 19 20 dbms_output.put ("We have " ||l_text_table.count|| " varchar2""s "); 21 dbms_output.put_line("and " ||myEmpTable.count|| " employees."); 22 dbms_output.put_line("-"); 23 dbms_output.put_line("vc2(1)="||l_text_table(1)); 24 dbms_output.put_line("vc2(2)="||l_text_table(2)); 25 dbms_output.put_line("-"); 26 dbms_output.put_line("myEmpTable(10)="||myEmpTable(10).first_name); 27 dbms_output.put_line("myEmpTable(20)="||myEmpTable(20).first_name); 28 29 end; 30 /
We have 2 varchar2"s and 2 employees. - vc2(1)=varchar2 value vc2(2)=varchar2 value 2 - myEmpTable(10)=S myEmpTable(20)=Chris PL/SQL procedure successfully completed. SQL> SQL> SQL> -- clean the table SQL> drop table Employee
2 /
Table dropped. SQL> SQL> SQL>
</source>