Yurttas/PL/DBL/oracle/F/02/PC/q12.sp
Jump to navigation
Jump to search
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/