JCantero, Gracias por tu ayuda
Esta es el Código Cobol que me dio resultado
Código COBOL:
SELECT PreviRed ASSIGN TO DISK WS-PREVIRED
ORGANIZATION IS LINE SEQUENTIAL
FILE STATUS FILE-STATUS.
WORKING-STORAGE SECTION.
01 WS-PREVIRED PIC X(80).
01 NOMARCH.
02 WS-NOMARCH PIC X(13).
02 WS-NOMARCH-R REDEFINES WS-NOMARCH.
03 WS-EMP PIC 9(03).
03 WS-MES PIC 9(02).
03 WS-ANO PIC 9(04).
03 WS-EST PIC X(04).
PROCEDURE DIVISION.
INITIALIZE WS-PREVIRED
MOVE REM00-EMPRESA TO WS-EMP
MOVE REM00-MES1 TO WS-MES
MOVE REM00-ANO1 TO WS-ANO
MOVE ".TXT" TO WS-EST
string "C:\INFORMES\PREVIRED-" delimited by size
WS-NOMARCH(1:3) '-' WS-NOMARCH(4:2) '-'
WS-NOMARCH(6:4) WS-NOMARCH(10:4)
delimited by size into WS-PREVIRED.
OPEN OUTPUT PreviRed