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.
Código COBOL:
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).