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 (https://www.cobolforo.es/showthread.php?t=51)

Tendrás que utilizar la variable de sistema &DATE