Yurttas/PL/DBL/oracle/F/02/PC/q12.sp

 1/*
 2REM
 3REM q12.sp
 4REM
 5REM Delete PC's with hard drives less than 2GB
 6REM
 7REM
 8*/
 9
10CREATE OR REPLACE
11PROCEDURE q12 IS
12
13  del_shp  NUMBER;
14
15BEGIN
16
17  DBMS_OUTPUT.PUT_LINE('Delete all PCs with a hard drive less than 2GB');
18  DBMS_OUTPUT.PUT_LINE('----------------------------------------------');
19
20  DELETE FROM PC
21  WHERE hd<2;
22
23  del_shp := SQL%ROWCOUNT;
24
25  DBMS_OUTPUT.PUT_LINE(del_shp||''||' rows deleted from PC');
26
27END q12;
28/