procedure example of oracle procedure

Some example for memory.

create or replace procedure TQ_FirstProc is
  classname_value class %rowtype;
begin
  select * into classname_value from class where class_id='2';
  dbms_output.put_line(classname_value.class_number);
end TQ_FirstProc;

create or replace procedure TQ_Proc2 is
  classname class.class_name%type;
  remark class.class_remark%type;
begin 
  select class.class_name into classname from class where class.class_number = 1003;
  if classname = 'Grade one' then
     remark := '5 students';
     elsif classname = 'Grade two' then
     remark := '10 students';
     else
     remark := '15 students';
 end if;
     update class set class_remark = remark where class.class_number = 1003;
     commit;
end TQ_Proc2;

create or replace procedure TQ_PROC3 is
  num NUMBER(3):=5;
  rus number(5):=1;
begin
  for i in 1..num loop
    rus := rus*i;
    end loop;
    dbms_output.put_line((rus));
end TQ_PROC3;