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
Código COBOL:
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.
**>-------------------------------------------------------------------------------------------------------------------------------------