[Componente] Generar txt con fecha del dia

[LisAndKp]

Hola

Necesito que me apoyen con esta consulta, Tengo un archivo secuencial PRUEBA.LISTAS que estoy formateando para su transmision via XCOM , el archivo txt que debe transmitirse debe tener el nombre "DiaMesAñoLISTAS" ; es decir si el archivo se genera el 28 de Mayo debe decir 28052020_LISTAS.txt si se genera el 06 de julio el archivo debe llamarse 06072020_LISTAS.txt mi consulta como puedo hacer para que el nombre del archivo .txt tenga la fecha del dia.

Les agradezco su apoyo de antemano

[Josber]

@LisAndKp,, como no pones qué versión de COBOL usas, (PowerCobol, MicroFocus ...), te lo pongo para un COBOL genérico

 WORKING-STORAGE SECTION.
 01  FECHA.
      03  AA                               PIC 99.
      03  MM                              PIC 99.
      03  DD                               PIC 99.
 01  FECHA1.
      03  DD1                              PIC 99.
      03  MM1                             PIC 99.
      03  AA1                              PIC 9999.
 01  NOMBRE_FICHERO                PIC X(19).
 PROCEDURE DIVISION.
*
      INITIALIZE FECHA FECHA1 NOMBRE_FICHERO.
      ACCEPT FECHA FROM DATE.
      MOVE DD TO DD1.
      MOVE MM TO MM1.
      COMPUTE AA1 = AA + 2000.
      STRING  FECHA1
               "_LISTAS.txt" DELIMITED BY SIZE INTO NOMBRE_FICHERO
      END-STRING.

Un salu2.-

[LisAndKp]

@Josber,gracias por tu respuesta. Me falto detallar mas sobre mi consulta, por programa si he podido insertar la fecha al txt pero mi consulta es si se puede realizar la misma acción por JCL .








Saludos

[Kuk]

❞ mi consulta es si se puede realizar la misma acción por JCL

Depende de la versión de z/OS y si vas a ejecutar tu JCL via OPC/Control-M o no (submitiendo directamente).
Cuál es la versión de tu z/OS que usas?

[LisAndKp]

@kuk, la version que uso es la z/OS 02.03.00

Saludos

[Kuk]

❞ z/OS 02

En este caso te va a funcionar este ejemplo: [Sintaxis] Variables SET en ficha SYSIN - COBOL Foro

Tendrás que utilizar la variable de sistema &DATE