Tablas

CREATE TABLE REGISTRO_CAMBIOS
(TIPOCAMBIO CHAR(1));
TABLE CREATED
CREATE OR REPLACE TRIGGER CAMBIOS
BEFORE INSERT OR UPDATE OR DELETE ON ALUMNO
FOR EACH ROW
DECLARE
TIPO_CAMBIO CHAR(1);BEGIN /* UTILIZA I PARA INSERT, U PARA UPDATE, D PARA DELETE */
IF INSERTING THEN
TIPO_CAMBIO:= 'I';
ELSIF UPDATING THEN
TIPO_CAMBIO:= 'U';
ELSIF DELETING THEN
TIPO_CAMBIO:= 'D';
END IF;
INSERTINTO REGISTRO_CAMBIOS
VALUES (TIPO_CAMBIO);
END;
/
select*
from user_source

BEGIN
ACTUALIZA(‘&MATRICULA’,’&CARRERA’);
END;

BEGIN
ACTUALIZA('&MATRICULA','&CARRERA');
END;old 2: ACTUALIZA('&MATRICULA','&CARRERA'); 
new 2: ACTUALIZA('10101010','QA'); 
PL/SQL procedure successfully completed.
SELECT*
FROM ALUMNO
MATRICUL | NOMBRE | APELLIDO | CARRERA |GRUPO |
10101020 | JUAN | LOPEZ LOPEZ | MTA | 3G |
10101030 | ROSA | LARA LARA | TIC | 3F |
10101010 | JOSE | PEREZ PEREZ | QA | 3G |

SELECT*
FROM REGISTRO_CAMBIOS
T |
U |

CREATE ORREPLACE PROCEDURE AGREGA(P_MATRICULA ALUMNO.MATRICULA%TYPE, P_NOMBRE ALUMNO.NOMBRE%TYPE, P_APELLIDO ALUMNO.APELLIDO%TYPE, P_CARRERA ALUMNO.CARRERA%TYPE, P_GRUPO ALUMNO.GRUPO%TYPE) AS
BEGIN
INSERT INTOALUMNO (MATRICULA, NOMBRE, APELLIDO, CARRERA, GRUPO) VALUES (P_MATRICULA, P_NOMBRE, P_APELLIDO, P_CARRERA, P_GRUPO);
COMMIT;
END AGREGA;
/
SELECT*
FROM USER_SOURCE

NAME | TYPE | LINE | TEXT |ACTUALIZA | PROCEDURE | 1 | PROCEDURE ACTUALIZA(P_MATRICULA ALUMNO.MATRICULA%TYPE, P_CARRERA ALUMNO.CARRERA%TYPE)AS |
ACTUALIZA | PROCEDURE | 2 | BEGIN |
ACTUALIZA | PROCEDURE | 3 | UPDATEALUMNO |
ACTUALIZA | PROCEDURE | 4 | SET CARRERA= P_CARRERA |
ACTUALIZA | PROCEDURE | 5 | WHERE MATRICULA= P_MATRICULA; |
ACTUALIZA | PROCEDURE | 6 | COMMIT; |
ACTUALIZA | PROCEDURE | 7 | ENDACTUALIZA; |
AGREGA | PROCEDURE | 1 | PROCEDURE AGREGA(P_MATRICULA ALUMNO.MATRICULA%TYPE, P_NOMBRE ALUMNO.NOMBRE%TYPE, P_APELLIDO ALUMNO.APELLIDO%TYPE, P_CARRERA ALUMNO.CARRERA%TYPE, P_GRU PO...