Introdução à Linguagem PL/SQL

CONECTANDO COMO SYSTEM

	conn system/coti    

Criar tabela

	create table funcionario( id number(5) primary key, nome varchar(50), salario number(15,2), setor varchar(15) );

INSERÇÃO DE DADOS

	insert into funcionario values (100, 'fadinha', 1000, 'inf'); 
	insert into funcionario values (101, 'fadinha ref', 2000, 'inf'); 
	insert into funcionario values (102, 'jhon', 3000, 'inf'); 
	insert into funcionario values (103, 'marcio', 4000, 'eng'); 
	insert into funcionario values (104, 'diego', 6000, 'inf'); 
	insert into funcionario values (105, 'lu', 5000, 'des'); 
	insert into funcionario values (106, 'marcia', 3000, 'des'); 
	commit;
	select * from funcionario;

Cursor

		declare cursor linha (fim number) is select * from funcionario where id=fim; 
		reg_linha funcionario%rowtype; 
		begin 
		open linha(102); 
		loop 
		fetch linha into reg_linha; 
		exit when linha%notfound; 
		dbms_output.put_line('Nome: '|| reg_linha.nome); 
		dbms_output.put_line('Salario: '|| reg_linha.salario); 
		dbms_output.put_line('Setor: '|| reg_linha.setor); 
		end loop; 
		close linha; 
		end; 
		/