Cobol - Imrimir por llave alterna

Hola todos

Tengo un archivo clientes indexado, y con acceso dinamico, el cual tiene como llave principal la cedula del cliente y como llave alterna el apellido del cliente.

Necesito imprimir este archivo pero no por la llave principal si no por la llave alterna, alguien sabe como se hace esto?.

Hola, antes de empezar a leer el archivo e imprimirlo debes hacer un start del archivo asi:
start archivo key not less than apellido invalid key stop "clavel erronea".

Para imprimir por la llave alterna debes leer el archivo por dicha llave haciendo un Start, lo que debes hacer es:
1.- Mover SPACES o LOW-VALUES al campo o llave por el que quieres leer el archivo.
2.- Haces el START del archivo por el campo de llave que quieres leer.
Esto te poseciona en el primer registro del archivo
3.- Lees el archivo con next record.
Las instrucciones serian:
Suponemos que tu llave alterna se denomina APELLIDO
WORKING-STORAGE SECTION.
77 W-EOF PIC 9.
88 FIN-ARCHIVO VALUE 1.
PROCEDURE DIVISION.
000-MAIN.
PERFORM 001-START.
PERFORM 002-CONTINUAR UNTIL FIN-ARCHIVO.
PERFORM 003-END.
STOP-RUN. (o EXIT PROGRAM).
001-START.
OPEN.........
............
MOVE 0 TO W-EOF.
MOVE LOW-VALUES TO APELLIDO.
START TU-ARCHIVO KEY IS GREATER APELLIDO
INVALID KEY MOVE 1 TO FIN-ARCHIVO.
IF NOT FIN-ARCHIVO
READ TU-ARCHIVO NEXT RECORD AT END
MOVE 1 TO W-EOF.
002-CONTINUE.
ARMAR LA LINEA DE IMPRESION.
IMPRIMIR LINEA.
003-END.
IMPRIMIR TOTALES.. ETC.
CLOSE .........
...............
*
Saludos
Ronny