Grabar Archivo en Disco

[jmeza]

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.

           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

       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

[JCantero]

El problema lo tienes en que debes de poner una variable al describir el fichero en vez de un literal. Y rellenar la variable en tiempo de ejecución con el contenido deseado.

Cambia esto SELECT PreviRed ASSIGN DISK "C:\INFORMES\WS-PREVIRED" por WS-PREVIRED Y rellena el nombre de fichero deseado en esa variable antes de hacer el open.

O prueba esto..........

En vez de poner esto:

SELECT PreviRed ASSIGN DISK "C:\INFORMES\WS-PREVIRED"
ORGANIZATION IS LINE SEQUENTIAL
FILE STATUS FILE-STATUS.

Pon esto:

SELECT PreviRed ASSIGN DISK WS-PREVIRED
ORGANIZATION IS LINE SEQUENTIAL
FILE STATUS FILE-STATUS.

Y antes de hacer el OPEN, rellena el nombre de fichero. Por ejemplo:

WORKING-STORAGE SECTION.
01 fecha pic x(6).
01 WS-PREVIRED pic x(80).
 
*
*
*
 
PROCEDURE DIVISION.
 
accept fecha from time.
 
initialize  WS-PREVIRED.
 
string "C:\INFORMES"  delimited by size
            fecha delimited by size into WS-PREVIRED
 
 
 

O rellenar el nombre del fichero con algo parecido a esto:

string "C:\INFORMES\fichero-"  delimited by size
            fecha(1:2) '-' fecha (3:2) '-'  fecha (5:2) delimited by size into WS-PREVIRED

[jmeza]

JCantero, Gracias por tu ayuda
Esta es el Código Cobol que me dio resultado

           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