PL/SQL Pseucodico RUPTURA DE CONTROL

-- Ejemplo pseudocodigo RUPTURA DE CONTROL

ENTORNO
    FICHERO ALUMNOS
        ORGANIZACION SECUENCIAL
        ACCESO SECUENCIAL
        DISEÑO DE REGISTROS (REG-ALUMNOS)
            NUM-MAT
            NOM-APELL
            CURSO
            NOTA
    T-ALUMN-CURSO, T-ALUMNOS, CURSO-ANT, NMATRICULA-ANT, NOTA-TOTAL, NOTA-MEDIA, CONTA, NOM-APELL-AUX

INICIO
    ABRIR DE ENTRADA FICHERO-ALUMNOS
    LEER FICHERO-ALUMNOS(REG-ALUMNOS)
    T-ALUMNOS=0
    IMPRIMIR " =LISTADO DE ALUMNOS= "

    MIENTRAS (HR) HACER -- bloque x curso
        CURSO-ANT=CURSO
        IMPRIMIR "CURSO......" CURSO
        IMPRIMIR "N. MATRICULA NOMBRE NOTA MEDIA"
        T-ALUMN.CURSO=0

        MIENTRAS (HR) AND (CURSO-ANT=CURSO) HACER -- Bloque x numero d matricula
            NMATRICULA-ANT=NUM.MAT
            CONT=0
            NOTA TOTAL=0

            MIENTRAS (HR) AND (CURSO-ANT=CURSO) AND (NMATRICULA-ANT=NUM.MAT) HACER -- proceso central para todos los registros
                NOTA.TOTAL=NOTA.TOTAL+NOTA
                CONT=CONT+1
                NOM-APELL-AUX=NOM-APELL
                LEER FICHERO-ALUMNOS(REG-ALUMNOS)
            FIN MINETRAS

        NOTA.MEDIA=NOTA.TOTAL/CONT -- salida del bloque matricula
        IMPRIMIR (NMATRICULA-ANT, NOM-APELL.AUX, NOTA-MEDIA)
        T.ALUM-CURSO=T.ALUM-CURSO+1

        FIN MIENTRAS

    IMPRIMIR "TOTAL ALUMNOS DEL CURSO...." CURSO-ANT "....." T.ALUM-CURSO -- salida del bloque curso
    T-ALUMNOS= TALUMNOS + T.ALUM-CURSO

    FIN MIENTRAS

    IMPRIMIR "N. TOTAL D ALUMNOS DEL CENTRO....." T.ALUMNOS -- salida final
    CERRAR FICHERO-ALUMNOS
FIN