Ver Mensaje Individual
  #2
Antiguo 17 de junio de 2016, 08:31
BASA01
Forero Junior
Última Actividad 04.05.2021 18:27
Posts Posts: 7

Para utilizar las claves con ese formato necesitarías el compilador Rmcobol85 V6.

Si quieres que funcione en V5 debes de declarar las claves de esta forma :

Código COBOL:
  1. ************************************
  2.            SELECT CLI
  3.            ASSIGN RANDOM "CLIENTES"
  4.            ORGANIZATION INDEXED
  5.            ACCESS DYNAMIC
  6.            RECORD CLI-KEY
  7.            ALTERNATE RECORD CLI-ALT-1
  8.            ALTERNATE RECORD CLI-ALT-2
  9.            ALTERNATE RECORD CLI-ALT-3
  10.            ALTERNATE RECORD CLI-ALT-4
  11.            STATUS ST-CLI.
  12.  
  13.            FD  CLI
  14.                LABEL RECORDS ARE STANDARD.
  15.            01  CLI-REG.
  16.                03  CLI-KEY.
  17.                    05  CLI-EMPRE         PIC 999.
  18.                    05  CLI-N-CLIENTE     PIC 9(6).
  19.                03  CLI-ALT-1.
  20.                    05  CLI-EMPRE-1       PIC 999.
  21.                    05  CLI-NOMBRE        PIC X(40).
  22.                    05  CLI-N-CLIENTE-1   PIC 9(6).
  23.                03  CLI-ALT-2.
  24.                    05  CLI-EMPRE-2       PIC 999.
  25.                    05  CLI-DNI-CIF       PIC X(12).
  26.                    05  CLI-N-CLIENTE-2   PIC 9(6).
  27.                03  CLI-ALT-3.
  28.                    05  CLI-EMPRE-3       PIC 999.
  29.                    05  CLI-RAZON-SOCIAL  PIC X(40).
  30.                    05  CLI-N-CLIENTE-3   PIC 9(6).
  31.                03  CLI-ALT-4.
  32.                    05  CLI-EMPRE-4       PIC 999.
  33.                    05  CLI-ALIAS         PIC X(40).
  34.                    05  CLI-N-CLIENTE-4   PIC 9(6).
  35.                03  CLI-DIR-CLI           PIC X(40).
  36.                03  CLI-POB-CLI           PIC X(40).
  37.                03  CLI-COD-POSTAL.
  38.                    05  CLI-PROVINCIA     PIC 99.
  39.                    05  CLI-NUM-POS       PIC 999.
  40.                03  CLI-NUM-PROV          PIC X(10).
  41.                03  CLI-TFNO              PIC 9(9) OCCURS 2.
  42.                03  CLI-FAX               PIC 9(9).
BASA01 is offline   Responder Con Cita