Cobol - leer y desplegar

Tengo el siguiente archivo de dato

app,100,500,300
app,241,400,600
ayy,450,654,211
ayy,321,422,667

la idea es desplegar los datos (listado por pantalla)

app
100,500,300
241,400,600

ayy
450,654,211
321,422,667

la idea es no repetir el TIPO (ejemplo app y ayy) en el listado.

Gracias

Carlos Supongamos:

FD ARCHIVO.

01 REGISTRO-ARCH.
03 TIPO PIC X(3).
03 NUM-1 PIC 999.
03 NUM-2 PIC 999.
03 NUM-3 PIC 999.

WORKING.

77 W-TIPO PIC X(3) VALUE SPACES.

01 LINEA-1 PIX X(3).
01 LINEA-2.
03 N1 PIC ZZZ.
03 FILLER PIC XX VALUE SPACES.
03 N2 PIC ZZZ.
03 FILLER PIC XX VALUE SPACES.
03 N3 PIC ZZZ.

PROCEDURE.
INICIO.
OPEN INPUT ARCHIVO.

PROCESO.
READ ARCHIVO NEXT AT END
GO TO FIN-PROCESO.

IF TIPO NOT = W-TIPO
MOVE TIPO TO W-TIPO
LINEA-1
DISPLAY LINEA-1.

MOVE NUM-1 TO N1.
MOVE NUM-2 TO N2.
MOVE NUM-3 TO N3.

DISPLAY LINEA-2
GO TO PROCESO.

FIN-PROCESO.

CLOSE ARCHIVO.
STOP RUN.

Suerte, Desde Gijón-Asturias (España). Alberto