DML

SELECCIONAR

SET SERVEROUTPUT ON;
DECLARE
  VAR1 PERSONA%ROWTYPE;
BEGIN
SELECT * INTO VAR1 FROM PERSONA
WHERE ROWNUM=1;
dbms_output.put_line(' NOMBRE : ' || VAR1.NOMBRE || ' APELLLIDO : ' || VAR1.APELLIDO || ' FECHA DE NACIMIENTO : ' || VAR1.FECHANACIMIENTO ||
' NACIONALIDAD : ' || VAR1.NACIONALIDAD || ' EDAD : ' || VAR1.EDAD || ' OCUPACION : ' || VAR1.OCUPACION || ' SEXO : ' || VAR1.SEXO);
END;

INSERTAR

SET SERVEROUTPUT ON;
DECLARE
  LOC_PERSONA_ID PERSONA.PERSONA_ID%TYPE:='&INGRESE_ID';
  LOC_NOMBRE PERSONA.NOMBRE%TYPE:='&INGRESE_NOMBRE';
  LOC_APELLIDO PERSONA.APELLIDO%TYPE:='&INGRESE_APELLIDO';
  LOC_FECHANAC PERSONA.FECHANACIMIENTO%TYPE:='&INGRESE_FECHA_NACIMIENTO';
  LOC_NACIONALIDAD PERSONA.NACIONALIDAD%TYPE:='&INGRESE_NACIONALIDAD';
  LOC_EDAD PERSONA.EDAD%TYPE:='&INGRESE_EDAD';
  LOC_OCUPACION PERSONA.OCUPACION%TYPE:='&INGRESE_OCUPACION';
  LOC_SEXO PERSONA.SEXO%TYPE:='&INGRESE_SEXO';
BEGIN
  INSERT INTO PERSONA (PERSONA_ID, NOMBRE, APELLIDO, FECHANACIMIENTO, NACIONALIDAD, EDAD, OCUPACION , SEXO)
  VALUES (LOC_PERSONA_ID, LOC_NOMBRE, LOC_APELLIDO, LOC_FECHANAC, LOC_NACIONALIDAD, LOC_EDAD, LOC_OCUPACION, LOC_SEXO);
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('ERROR EN EL INGRESO DE NUEVOS DATOS');
    END;
   
ACTUALIZAR

SET SERVEROUTPUT ON;
DECLARE
  LOC_PERSONA_ID PERSONA.PERSONA_ID%TYPE:='&INGRESE_ID';
  LOC_NOMBRE PERSONA.NOMBRE%TYPE:='&INGRESE_NOMBRE';
  LOC_APELLIDO PERSONA.APELLIDO%TYPE:='&INGRESE_APELLIDO';
  LOC_FECHANAC PERSONA.FECHANACIMIENTO%TYPE:='&INGRESE_FECHA_NACIMIENTO';
  LOC_NACIONALIDAD PERSONA.NACIONALIDAD%TYPE:='&INGRESE_NACIONALIDAD';
  LOC_EDAD PERSONA.EDAD%TYPE:='&INGRESE_EDAD';
  LOC_OCUPACION PERSONA.OCUPACION%TYPE:='&INGRESE_OCUPACION';
  LOC_SEXO PERSONA.SEXO%TYPE:='&INGRESE_SEXO';
BEGIN
  UPDATE PERSONA SET NOMBRE= LOC_NOMBRE , APELLIDO= LOC_APELLIDO, FECHANACIMIENTO= LOC_FECHANAC, NACIONALIDAD= LOC_NACIONALIDAD,
  EDAD= LOC_EDAD, OCUPACION= LOC_OCUPACION, SEXO= LOC_SEXO
  WHERE PERSONA_ID = LOC_PERSONA_ID;
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('ERROR EN EL INGRESO DE NUEVOS DATOS');
    END;

ELIMINAR   
SET SERVEROUTPUT ON;
DECLARE
  LOC_PERSONA_ID PERSONA.PERSONA_ID%TYPE:='&INGRESE_ID';

BEGIN
  DELETE PERSONA
  WHERE PERSONA_ID = LOC_PERSONA_ID;
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('ERROR EN EL INGRESO DE NUEVOS DATOS');
    END;