Hola.
No estoy de acuerdo en que tenga que leer todo el fichero 2 veces.
Se lee todo la primera(esto parece inevitable) y cuando está situado al final(*HIVAL),se hace un READP y lee hacia atrás. Si hace por ejemplo:(vale,falta un trozo de bucle,pero ya se entiende)
     *hival        Setll     Registro    
                   Do        15          
                   ReadP     Registro    
                   Exsr      SrcargaSF    
Se situa al final y le carga en el subfichero los ultimos 15 registros.Cada vez que se pagine,los 15 anteriores,etc.
Normalmente los ultimos registros son los mas interesantes porque son los mas actuales.

Responder a