pl 2fsql procedure example

1CREATE OR REPLACE PROCEDURE my_schema.my_procedure(param1 IN VARCHAR2) IS
2    cnumber NUMBER;
3BEGIN
4    cnumber := 10;
5    INSERT INTO my_table (num_field) VALUES (param1 + cnumber);
6    COMMIT;
7EXCEPTION
8    WHEN OTHERS THEN
9        raise_application_error(-20001, 'An error was encountered - '
10            || sqlcode || ' -ERROR- ' || sqlerrm);
11END;

1CREATE [OR REPLACE] PROCEDURE procedure_name
2    [ (parameter [,parameter]) ]
3
4IS
5    [declaration_section]
6
7BEGIN
8    executable_section
9
10[EXCEPTION
11    exception_section]
12
13END [procedure_name];

1
2        
3            
4        
5     CREATE OR REPLACE PROCEDURE print_contact(
6    in_customer_id NUMBER 
7)
8IS
9  r_contact contacts%ROWTYPE;
10BEGIN
11  -- get contact based on customer id
12  SELECT *
13  INTO r_contact
14  FROM contacts
15  WHERE customer_id = p_customer_id;
16
17  -- print out contact's information
18  dbms_output.put_line( r_contact.first_name || ' ' ||
19  r_contact.last_name || '<' || r_contact.email ||'>' );
20
21EXCEPTION
22   WHEN OTHERS THEN
23      dbms_output.put_line( SQLERRM );
24END;
25

1CREATE OR REPLACE Procedure UpdateCourse
2   ( name_in IN varchar2 )
3
4IS
5   cnumber number;
6
7   cursor c1 is
8   SELECT course_number
9    FROM courses_tbl
10    WHERE course_name = name_in;
11
12BEGIN
13
14   open c1;
15   fetch c1 into cnumber;
16
17   if c1%notfound then
18      cnumber := 9999;
19   end if;
20
21   INSERT INTO student_courses
22   ( course_name,
23     course_number )
24   VALUES
25   ( name_in,
26     cnumber );
27
28   commit;
29
30   close c1;
31
32EXCEPTION
33WHEN OTHERS THEN
34   raise_application_error(-20001,'An error was encountered - '||SQLCODE||' -ERROR- '||SQLERRM);
35END;

1CREATE PROCEDURE nome_procedura [(parametri)] IS
2	Definizioni;
3BEGIN
4	Corpo procedura;
5END;