[Kuk]

@DestinedBroken, a ver vamos a clararlo todo porque se está liando un poco la cosa.

Primero, los puntos. Los puntos eran necesarios cuando no existían los terminadores explícitos de las instrucciones, es decir los END-IF, END-PERFORM etc. no eran aceptados por el compilador. EL estándar ANS74 trajo estos terminadores explícitos eliminando la necesidad de usar los puntos como terminadores de instrucción.

La desventaja de los puntos es que se ven mal, y siendo Cobol un lenguaje que se basa en palabras inglesas y no en signos y derivados como es el caso de otros lenguajes, los puntos son difíciles de detectar y sobre todo de controlar. Es por ello que cualquier compilador de hoy en día que usa estándares >= ANS74 no obliga a usar los puntos en la PROCEDURE DIVISION dentro del párrafo. El único punto obligatorio es el del fin de párrafo, nada más. Y te recomiendo NO usar los puntos sino poner uno sólo en una línea nueva al final del párrafo (cada párrafo, lógicamente) para que sea bien visible.

Segundo, la pantalla. @Josber se refiere a la SCREEN SECTION, es decir a que tengamos una interfaz definida y la usemos de pantalla. Efectivamente, por herencia son 24x80. Ahora, si simplemente quieres hacer DYSPLAY como System.out.println(), puedes hacer tantos como quieras sin restricción alguna. Solo que dependiendo de la consola/terminal y su buffer, te irá guardando las últimas X líneas, no tiene más.

Tercero, sobre que MF Cobol acepta y no... Todo depende del Dialecto seleccionado. Un dialecto viene a ser un juego de reglas y directivas de compilación para respetar un estándar o comportamiento de un compilador específico. Por defecto, y es lógico, el dialecto en Visual COBOL es el de Micro Focus, que es extremadamente permisivo. Language Features - Dialect

Cuarto, la lógica de lectura de un fichero de manera secuencial es la siguiente:

1. lees el fichero
2. dentro del bucle: 1 - muestras campos, 2 - vuelves a leer
3. si la lectura ha sido correcta, vuelve a iterar, si no, sale del bucle

Ojo. Bajo Windows, la consola no es tan ortodoxa como bajo Linux, bajo Windows incluso diría que está bastante mal hecha, va a su bola. Por tanto, si no usas SCREEN SECTION no esperes gran cosa, porque a veces el comportamiento no es del todo adecuado. En todo caso, lo primero que tienes que hacer es incrementar el buffer de la consola a 900 por ejemplo (estará en 50 por defecto)



Mira el programa, lo he modificado, lo pruebas y me dices:

       identification division.
       program-id. BB-DD-2.
  
       environment division.
       configuration section.
       input-output section.
       file-control.
           select optional empleados-archivo
           assign to "f:\empleados-escritura.dat"
           organization is line sequential.
  
       data division.
       file section.
       fd empleados-archivo.
       01 empleados-registro.
         05 empleados-id pic x(6).
         05 empleados-nombre pic x(25).
         05 empleados-apellidos pic x(35).
         05 empleados-edad pic x(3).
         05 empleados-telefono pic x(9).
         05 empleados-direccion pic x(35).
  
       working-storage section.
   
       01 FIN-DEL-ARCHIVO PIC X value "1".
       01 MAXIMO-REGISTROS PIC 99 value zeroes.
       01 siguiente PIC X.
       
       procedure division.
           
           move zeroes to MAXIMO-REGISTROS.
           open input empleados-archivo.
      
           perform lee-siguiente-registro
           
           perform until fin-del-archivo = "0"
               perform muestra-campos
               perform lee-siguiente-registro
           end-perform 
           
           close empleados-archivo
           
           goback 
           .
  
       muestra-campos.
           if MAXIMO-REGISTROS = 4
               perform siguiente-pagina
           end-if
           
           display "ID:        " empleados-id 
           display "Nombre:    " empleados-nombre 
           display "Apellidos: " empleados-apellidos
           display "Edad:      " empleados-edad 
           display "Telefono:  " empleados-telefono 
           display "Direccion: " empleados-direccion 
           
           ADD 1 TO MAXIMO-REGISTROS
           .
  
       lee-siguiente-registro.
           read empleados-archivo next record
               at end
                   move "0" to FIN-DEL-ARCHIVO
                   
                   display "*****FIN DEL FICHERO******"
           end-read
           .
  
       siguiente-pagina.
           display
             "Presiona ENTER para ver la siguiente pagina..."
           accept siguiente no beep.
           display erase
           move zeroes to MAXIMO-REGISTROS
           .
      

Y por último, lo de la paginación, lo que haces normalmente no se hace nunca, lo he dejado para no modificar tu programa mucho. Pero la paginación se usa sólo con SCREEN SECTION. el DISPLAY "simple" sólo se usa para los tests o en tratamientos Batch.