PROCEDURE INSCRIPCION_DE_MATERIA(CODIGO_ALUMNO NUMBER,CODIGO_MATERIA NUMBER, FECHA_INSCRIPCION DATE)

    IS
    EXISTE_CODALUMNO NUMBER;
    EXISTE_CODMATERIA NUMBER;
    EXISTE_INSCRIPCION NUMBER;

    BEGIN
    SELECT

          SELECT COUNT(*) INTO EXISTE_INSCRIPCION FROM INSCRIPCION   WHERE CODALUMNO=CODIGO_ALUMNO AND CODMATERIA=CODIGO_MATERIA;


            SELECT COUNT(*) INTO EXISTE_CODALUMNO FROM ALUMNO WHERE CODALUMNO= CODIGO_ALUMNO;
            SELECT COUNT(*) INTO EXISTE_CODMATERIA FROM MATERIAS WHERE CODMATERIA= CODIGO_MATERIA;


                  IF EXISTE_INSCRIPCION = 1 THEN

                            DBMS_OUTPUT.PUT_LINE('ERROR  EXISTE MATERIA INSCRITA')


                ELSE
                            IF EXISTE_CODALUMNO=1 AND EXISTE_CODMATERIA=1   THEN


                              INSERT INTO INSCRIPCION(CODALUMNO,CODMATERIA,FECHA_INSCRIPCION )VALUES
                                    (CODIGO_ALUMNO,CODIGO_MATERIA,FECHA_INSCRIPCION);

                          ELSE

                            DBMS_OUTPUT.PUT_LINE(' ERROR NO EXISTE : ' || CODIGO_ALUMNO|| ' ALUMNO');
                         END IF;



                 END IF;


    END INSCRIPCION_DE_MATERIA;