Leer indexado hacía atrás por clave alterna

**Hrmcobol** · 01.03.2022 02:59

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).

**Fito** · 19.09.2026 13:19

Hola:

Sería algo así:

Código COBOL:

    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

Otros temas que te pueden interesar
Tema	Autor	Foro	Respuestas	Último post
[Sintaxis] Ayuda con lectura de archivo indexado	JonathanDemons_123	COBOL - General	4	15 de abril de 2024 08:46
[Sintaxis] Como buscar por nombre en un registro indexado?	Marengo97	GnuCOBOL (OpenCOBOL)	10	4 de agosto de 2023 12:04
No puedo crear un archivo indexado	CHITOBLA	GnuCOBOL (OpenCOBOL)	42	7 de diciembre de 2022 10:34
[Sintaxis] Volcar registros de un fichero hacia varios CmText	Breew	PowerCOBOL (ActiveX, v4 - v11)	1	27 de febrero de 2015 15:44
[PowerCOBOL] Numero de Registos en un Ficheiro indexado	Rapinto	Cocina PowerCOBOL	0	27 de febrero de 2015 01:04

Likes

Likes


		Archivo - Cobol Foro		Webdesign by: vbdesigns.de		Contactar con Nosotros - Cobol Foro