PL-SQL/p1q8.sql at master · ibaiape/PL-SQL · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
set serveroutput on
DECLARE
a CENTROS.IDCENTRO%TYPE;
BEGIN
  SELECT MAX(IDCENTRO) INTO a FROM CENTROS;
  DELETE FROM CENTROS WHERE IDCENTRO = a;
  IF SQL%FOUND THEN
    COMMIT;
    DBMS_OUTPUT.PUT_LINE('Borrado el centro: '||a);
  ELSE
    DBMS_OUTPUT.PUT_LINE('No existe el centro: '||a);
  END IF;
END;

SELECT  * FROM CENTROS;
BEGIN
borrar_centro(2,1);
END;
UPDATE TRABAJADOR SET IDCENTRO = 62 WHERE IDCENTRO = 1;