Leer indexado hacía atrás por clave alterna

[Hrmcobol]

Estimados, necesito leer un archivo indexado ordenado por una clave alternativa desde el ultima hacia a tras.
Podrian decirme como se hace ?
Saludos y Muchas Gracias.


SELECT WORKIDX ASSIGN DSN-WORKIDX
ORGANIZATION INDEXED
ACCESS DYNAMIC
RECORD KEY WKI-CLAVE
ALTERNATE RECORD KEY WKI-CLAVE-1
WITH DUPLICATES
FILE STATUS ST-WORKIDX.

FD WORKIDX IS GLOBAL
LABEL RECORD STANDARD.
01 R-WORKIDX IS GLOBAL.
02 WKI-CLAVE.
03 WKI-DESMQN PIC X(030).
02 WKI-CODMQN PIC X(015).
02 WKI-CLAVE-1.
03 WKI-CANREG PIC 9(006).

[Fito]

Hola:

Sería algo así:


move 999999 to wki-canreg.
start workidx key is not > wki-clave-1 invalid go sale.

leo.
read workidx previous at end go sale.

.....

go leo.

Sale.



Saludos.

Fito