[JCantero]

@KTSnowy, no entiendo muy bien tu propuesta.

Te refieres a una tabla con elementos diferentes ?

Algo como esto:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. YOUR-PROGRAM-NAME.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 tabla OCCURS 999 times.
         02 tipo pic x.
         02 tipo1.
             03 descripcion1 pic x(100).
         02 tipo2 redefines tipo1.
             03 importe2 pic 9(10).
         02 tipo3 redefines tipo1.
             03 importe3 pic s9(10)v99.    
       01 i pic 9(4).      
       01 tope pic 9(4).      
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            move '1' to tipo(1)
            move 'pepe' to descripcion1(1)
            move '2' to tipo(2)
            move 123 to importe2(2)
            move '3' to tipo(3)
            move 3.4 to importe3(3)
            move '1' to tipo(4)
            move 'pepa' to descripcion1(4)
            move 4 to tope
            perform test after varying i from 1 by 1 until i = 999
                               or i = tope
              evaluate tipo(i)
              when '1'
                 display descripcion1(i)
              when '2'
                 display importe2(i)
              when '3'
                 display importe3(i)
            end-perform.                   
            STOP RUN.
       END PROGRAM YOUR-PROGRAM-NAME.

Yo esto lo utilizo bastante y si son muchos elementos utilizo un fichero para simular la tabla