Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Crear archivo indexado desde un XLS Anthony AcuCobol 10 6 de agosto de 2019 16:35
De dónde venimos y hacía dónde vamos... Rubencentu Espacio "Offtop" 23 25 de agosto de 2017 23:54
[Aporte] Numero de Registos en un Ficheiro indexado Rapinto Cocina PowerCOBOL 0 27 de febrero de 2015 00:04
Respuesta
 
Herramientas

  #1
Antiguo 10 de noviembre de 2016, 11:30
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
26.10.2021 17:49
PROCEDURE DIVISION
Posts: 321
Enviado: 107
Recibido: 118
Soluiones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Base de datos 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).
Hrmcobol no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 10 de noviembre de 2016, 12:35
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
febrero 2015
Córdoba, Villa María
50 años
27.10.2021 04:07
PROCEDURE DIVISION
Posts: 283
Enviado: 151
Recibido: 141
Soluiones: 14
Reputación: 20
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

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
Fito no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Hrmcobol (10 de noviembre de 2016)
Respuesta

Tags
alternate , indexado , powercobol , previous , read , record key


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 15:00.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.