Hola, me podrían ayudar como se hace para grabar un archivo en disco en una carpeta direccionada desde el programa.
Al definir de esta manera funciona, pero el nombre se graba como tal WS-PREVIRED
sin agregar lo demás AÑO, MES, etc.
Código COBOL:
SELECT PreviRed ASSIGN DISK "C:\INFORMES\WS-PREVIRED"
ORGANIZATION IS LINE SEQUENTIAL
FILE STATUS FILE-STATUS.
Lo que necesito es agregar algunos datos como la fecha cuando se genero el archivo
esto funciona pero me deja grabado el archivo donde están todos los programas del sistema
es complicado por que el usuario estaría entrando a la carpeta donde están todos los programs para rescatar el archivo.
Esta rutina la tengo en RMCOBOL85
Código COBOL:
SELECT PreviRed ASSIGN TO DISK WS-PREVIRED
ORGANIZATION IS LINE SEQUENTIAL
ACCESS SEQUENTIAL
FILE STATUS FILE-STATUS.
FD PreviRed LABEL RECORD OMITTED.
01 R-PreviRed.
02 FILLER PIC X(2600).
WORKING-STORAGE SECTION.
01 WS-PREVIRED.
02 WS-NOMARCH PIC X(17).
02 WS-NOMARCH-R REDEFINES WS-NOMARCH.
03 WS-PREV PIC X(04).
03 WS-EMP PIC 9(03).
03 WS-ANO PIC 9(04).
03 WS-MES PIC 9(02).
03 WS-EST PIC X(04).
PROCEDURE DIVISION.
MOVE "PREV" TO WS-PREV
MOVE REM00-EMPRESA TO WS-EMP
MOVE REM00-ANO1 TO WS-ANO
MOVE REM00-MES1 TO WS-MES
MOVE ".TXT" TO WS-EST
MOVE WS-NOMARCH TO WS-PREVIRED
OPEN OUTPUT PreviRed
Saludos