[Duda] Invalid calling of the method setting or getting

[Fito]

hola:

Los archivos de rm se leen perfectamente desde powercobol, sólo hay que tener un par de consideraciones.

- Los campos comp-6 en power no existen, asi que deberían sacarlos del archivo.
- Los campos signados con Comp-3 no hay ningún problema, es más, deberían ser comp-3 para poder leerlos sin problemas desde los dos coboles.
- hay un tema con las claves alternativas, en la declaración en la select, tienen que estar en orden como van apareciendo en el diseño del archivo.

Yo utilicé muy poco tiempo los programas rm y power funcionando al mismo tiempo. Tuve un problema con el bloqueo de archivos, en rm me daba un error que no recuerdo su número, cuando estaba siendo utilizado por power. Pero como enseguida pasé todo a power no le presté mucha atención.

No recuerdo en este momento alguna otra consideración.

Saludos.

Fito...

[jmeza]

Hola Hrmcobol, me podrías ayudar con un ejemplo como pasar los archivos a modo texto con RM, y la forma de leerlos en PW, por ahora no se como hacerlo, para poder seguir con la migración de mis programas a PW.

Saludos

[Hrmcobol]

Hola Amigo, te paso las lineas de cbl para que armes tu programa de conversion de RM a TXT, luego una vez que los tienes en TXT haces los pasos alreves y los tienes en PW
Espero te sirva, sino vuelve a preguntar
Saludos
H

 ENVIRONMENT     DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
           SELECT ARCH-RM    ASSIGN DSN-ARCH-RM      *> no se si estas lineas son compatibles con RM
                             ORGANIZATION INDEXED                            
                             ACCESS DYNAMIC                                  
                             RECORD KEY RM-CLAVE.
           SELECT ARCH-TX    ASSIGN DSN-ARCH-TX
                             ORGANIZATION LINE SEQUENTIAL.
 DATA DIVISION.
 FILE SECTION.
 FD  ARCH-RM
     LABEL RECORD STANDARD.                                            
 01  R-ARCH-RM.
     02  RM-CLAVE.
         03  RM-CAMPO                       PIC  X(005).
         03  RM-DATE                        PIC  9(008).
         03  RM-TIME                        PIC  9(008) COMP-3.
 FD  ARCH-TX
     LABEL RECORD STANDARD.                                            
 01  R-ARCH-TX.
     02  TX-CLAVE.
         03  TX-CAMPO                       PIC  X(005).
         03  TX-DATE                        PIC  9(008).
         03  TX-TIME                        PIC  9(008).
 
 WORKING-STORAGE SECTION.
 01  DSN-ARCH-RM    PIC X(256).  *>  << Aqui pones el nombre del archivo de entrada RMCobol
 01  DSN-ARCH-RX    PIC X(256).  *>  << Aqui pones el nombre del archivo de Salida que esta en modo texto
 01  W-EOF-ARCH-RM  PIC X(001).
 PROCEDURE       DIVISION.
**>-------------------------------------------------------------------------------------------------------------------------------------
     OPEN INPUT   ARCH-RM
     OPEN OUTPUT  ARCH-RM
**>-------------------------------------------------------------------------------------------------------------------------------------
     MOVE "N" TO W-EOF-ARCH-RM
     PERFORM UNTIL W-EOF-ARCH-RM = "S"
             READ ARCH-RM NEXT
                  AT END MOVE "S" TO W-EOF-ARCH-RM
              NOT AT END PERFORM ARMO-00
                            THRU ARMO-99
             END-READ
     END-PERFORM
**>-------------------------------------------------------------------------------------------------------------------------------------
     CLOSE ARCH-RM
     CLOSE ARCH-TX
     
     EXIT PROGRAM.
**>-------------------------------------------------------------------------------------------------------------------------------------
 ARMO-00.
     MOVE RM-CAMPO TO TX-CAMPO
     MOVE RM-DATE  TO TX-DATE 
     MOVE RM-TIME  TO TX-TIME
     WRITE R-ARCH-TX.
  ARMO-99.
     EXIT.
**>-------------------------------------------------------------------------------------------------------------------------------------
     

[jmeza]

Hola Hrmcobol, de acuerdo a lo que me comentas, me podrías ayudar con un ejemplo como genero el archivo modo texto con RM y luego leerlos con PW.

Por que estoy teniendo problemas con los traspaso de los archivos de datos de RM a PW.
Te lo agredezco
Saludos

[Hrmcobol]

Hola Amigo, envíame el diseño del archivo indexado que quieres convertir a texto, y te armo el ejemplo.
También si no es muy grande envíame el archivo indexado y veo de leerlo.
Saludos

[Joseg]

❞ No sé si habrán mejores ideas, pero yo creo que desde rmcobol, deberías hacer un programa que traspase esos datos a otro tipo de COMP, soportado por PWC, como COMP-5, COMP-3 BINARY o DECIMAL y una vez traspasado, PWC, ya los leerá perfectamente, si mal no recuerdo, son compatibles los ficheros de rmcobol y PWC perfectamente, excepto por el COMP-6 y COMP-X que no los soporta. Aunque creo recordar también que, para compatibilidad total, en la SELECT de PWC, habia que poner la palabra BTRV. (SELECT nombre_de_fichero BTRV). Un saludo.-

"BTRV" é para ceder nativamente a ficheiros Btrive (muito popular anos 80 e 90).
Btrieve - Wikipedia