RDBMS slips A Perfect Code for future

slip 8

SQL> Create table plan(pno int primary key,pname varchar(15),nc
varchar(15), fct
2 varchar(15),f_amt varchar(15));

Table created.

SQL> Create table cust(cno int primary key,cname varchar(15),mno
int,pno int references plan(pno));

Table created.
SQL> set serveroutput on
SQL> Insert into plan values(1,,,,);

1 row created.

SQL> Insert into cust values(1,,9763162617,1);

1 row created.
SQL> create or replace function fun1(nocomp in varchar)return
varchar as detalis varchar(10);
2 begin
3 select ( plan.pname)into detalis from plan,cust where
plan.pno=cust.pno and plan.pno='1';
4 if sql %found then
5 return(detalis);
6 else
7 return null;
8 end if;
9 end fun1;
10 /

Function created.
SQL> begin
2 dbms_output.put_line('detalis-'||fun1('1'));
3 end;
4 /
detalis-summer

PL/SQL procedure successfully completed.



SQL> declare
cursor c1(yyyy cust.cname %type)is select cname,pname from
plan,cust where