Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Leer indexado hacía atrás por clave alterna (https://www.cobolforo.es/showthread.php?t=508)

Hrmcobol 10 de noviembre de 2016 12:30
Leer indexado hacía atrás por clave alterna
 
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:
  1.       SELECT WORKIDX    ASSIGN DSN-WORKIDX
  2.                         ORGANIZATION INDEXED                            
  3.                         ACCESS DYNAMIC                                  
  4.                                    RECORD KEY WKI-CLAVE
  5.                          ALTERNATE RECORD KEY WKI-CLAVE-1 
  6.                                    WITH DUPLICATES
  7.                         FILE STATUS ST-WORKIDX.
  8.  
  9.  FD  WORKIDX IS GLOBAL
  10.      LABEL RECORD STANDARD.                                            
  11.  01  R-WORKIDX IS GLOBAL.
  12.      02  WKI-CLAVE. 
  13.          03  WKI-DESMQN        PIC X(030).
  14.      02  WKI-CODMQN            PIC X(015).  
  15.      02  WKI-CLAVE-1.
  16.          03  WKI-CANREG        PIC 9(006).

Fito 10 de noviembre de 2016 13:35
Hola:

Sería algo así:

Código COBOL:
  1.     move 999999      to wki-canreg.
  2.     start workidx key is not > wki-clave-1 invalid go sale.
  3.  
  4. leo.
  5.     read workidx previous at end go sale.
  6.  
  7.     .....
  8.  
  9.     go leo.
  10.  
  11. Sale.

Saludos.

Fito


La franja horaria es GMT +2. Ahora son las 02:04.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.