Cobol - cobol

Hola genios.
Necesito saber como realizar un listado en rmc85, para q me aparescan los registros en forma lineal.
Yo tengo el archivo SOC , como hago para leerlo y mostrarlo cuando hago el PERFORM a la LISTADO SECTION.
Gracias chicos.
Saludos.
Fede.

Si tienes definido el archivo de ingreso SOC y la impresora, por ej. PAPEL con registro LINEA, podrías escribir algo así
WORKING-STORAGE SECTION.
01 EOF PIC 9 VALUE 0.
01 TITULO-1.
03 ....... Definir el titulo
01 TITULO-2.
03 .......
01 DETALLE.
03 ...... Definir los campos y formatos de la linea
01 CONT PIC 99 VALUE 99.

PROCEDURE DIVISION.
Luego de abrir los archivos
LEER-E-IMPRIMIR.
PERFORM UNTIL EOF NOT = 0
READ SOC AT END MOVE 1 TO EOF
NOT AT END
*-------------- saltar de hoja e imprimir los títulos
IF CONT > 50
WRITE LINEA FROM TITULO-1 AFTER PAGE
WRITE LINEA FROM TITULO-2
END-IF
MOVE (los campos del registro) TO (los campos de DETALLE)
WRITE LINEA FROM DETALLE
END-PERFORM.
,