Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   JCL y utilidades (https://www.cobolforo.es/forumdisplay.php?f=25)
-   -   [Componente] Generar txt con fecha del dia (https://www.cobolforo.es/showthread.php?t=1152)

LisAndKp 29 de mayo de 2020 02:38
Generar txt con fecha del dia
 
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 29 de mayo de 2020 10:00
@LisAndKp,, como no pones qué versión de COBOL usas, (PowerCobol, MicroFocus ...), te lo pongo para un COBOL genérico

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  FECHA.
  3.       03  AA                               PIC 99.
  4.       03  MM                              PIC 99.
  5.       03  DD                               PIC 99.
  6.  01  FECHA1.
  7.       03  DD1                              PIC 99.
  8.       03  MM1                             PIC 99.
  9.       03  AA1                              PIC 9999.
  10.  01  NOMBRE_FICHERO                PIC X(19).
  11.  PROCEDURE DIVISION.
  12. *
  13.       INITIALIZE FECHA FECHA1 NOMBRE_FICHERO.
  14.       ACCEPT FECHA FROM DATE.
  15.       MOVE DD TO DD1.
  16.       MOVE MM TO MM1.
  17.       COMPUTE AA1 = AA + 2000.
  18.       STRING  FECHA1
  19.                "_LISTAS.txt" DELIMITED BY SIZE INTO NOMBRE_FICHERO
  20.       END-STRING.

Un salu2.-

LisAndKp 28 de junio de 2020 06:46
@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 28 de junio de 2020 10:54
Cita:
Citación del post de LisAndKp (Mensaje 5892)
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 28 de junio de 2020 23:49
@kuk, la version que uso es la z/OS 02.03.00

Saludos :)

Kuk 29 de junio de 2020 10:01
Cita:
Citación del post de LisAndKp (Mensaje 5898)
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


La franja horaria es GMT +2. Ahora son las 13:54.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.