PROBLEMA CON PL/SQL

Redondo
17 de Enero del 2003
Buenas tardes,tengo un problema al ejecutar un codigo de creacion de un paquete de PL/SQL en Oracle SQL PLus.
Mi problema es q no compila,avanza de linea como si esperara que le introdujera mas sentencias

POR FAVOR ECHENME UNA MANO,ESTOY DESESPERADO

El codigo es el siguiente:

CREATE PACKAGE BODY Pack_Alum AS
PROCEDURE Alta_Alum(Nombre IN Alumno.Nombre%TYPE, Grupo IN Alumno.Grupo%TYPE) IS
BEGIN
OPEN c_AltaAlum;
WHILE c_AltaAlum%FOUND LOOP
FETCH c_AltaAlum INTO TmpMatricula;
IF TmpMatricula > MayorMatricula THEN
MayorMatricula := TmpMatricula;
END IF;
END LOOP;
MayorMatricula := MayorMatricula + 1;
INSERT INTO Alumno VALUES(MayorMatricula, Nombre, Grupo);
MESSAGE('Alumno' || MayorMatricula || 'insertado');
CLOSE c_AltaAlum;
EXCEPTION
WHEN OTHERS THEN
MESSAGE('Error en la operacion de alta de Alumno');
END Alta_Alum;
PROCEDURE Baja_Alum(Matricula IN Alumno.NumMatricula%TYPE) IS
BEGIN
OPEN c_BajaAlum(Matricula);
IF c_BajaAlum%FOUND THEN
FETCH c_BajaAlum INTO TmpMatricula;
END IF;
DELETE FROM Alumno WHERE NumMatricula=TmpMatricula;
MESSAGE('Alumno borrado');
CLOSE c_BajaAlum;
EXCEPTION
WHEN OTHERS THEN
MESSAGE('Error en la operacion de borrado');
END Baja_Alum;
PROCEDURE Grup_Alum(Matricula IN Alumno.NumMatricula%TYPE) IS
BEGIN
OPEN c_GrupAlum(Matricula);
IF c_GrupAlum%FOUND THEN
FETCH c_GrupAlum INTO TmpGrupo;
END IF;
IF TmpGrupo = 'M' THEN
TmpGrupo := 'T';
ELSE
TmpGrupo := 'M';
END IF;
UPDATE Alumno SET Grupo=TmpGrupo
WHERE NumMatricula=TmpMatricula;
IF TmpGrupo='M' THEN
MESSAGE('Alumno cambiado al grupo de Mañana');
ELSE
MESSAGE('Alumno cambiado al grupo de Tarde');
CLOSE c_GrupAlum;
EXCEPTION
WHEN OTHERS THEN
MESSAGE('Error en la operacion de borrado');
END Grup_Alum;
END Pack_Alum;