Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > IBM Enterprise COBOL > JCL y utilidades
JCL y utilidades Job Control Lenguage, DFSORT, IEBGENER, IDCAMS...
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Renombrar fichero con fecha dhitar JCL y utilidades 1 5 de marzo de 2019 20:16
[Sintaxis] Calculo de dia de la semana Breew PowerCOBOL (ActiveX, v4 - v11) 1 12 de febrero de 2019 09:49
[Compilador] Se puede generar una DLL con mas de un formulario? jhjacomo PowerCOBOL V3L10 (Win32) 5 9 de diciembre de 2018 09:15
[Sintaxis] Crear generar un TXT Dasije WinDev 1 12 de noviembre de 2016 02:21
Feliz Dia Laburantes Coboleros !! Hrmcobol Celebraciones 0 1 de mayo de 2015 13:56
Respuesta
 
Herramientas

  #1
Antiguo 29 de mayo de 2020, 01:38
IDENTIFICATION DIVISION
LisAndKp
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de LisAndKp
DATA DIVISION
mayo 2020
Lima
30.08.2020 04:55
PROCEDURE DIVISION
Posts: 3
Enviado: 1
Recibido: 0
Soluiones: 0
Reputación: 0
LisAndKp is an unknown quantity at this point
Tabla 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
LisAndKp no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 29 de mayo de 2020, 09:00
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
23.06.2021 11:26
PROCEDURE DIVISION
Posts: 582
Enviado: 267
Recibido: 286
Soluiones: 38
Reputación: 29
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

@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.-
Josber no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 28 de junio de 2020, 05:46
IDENTIFICATION DIVISION
LisAndKp
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de LisAndKp
DATA DIVISION
mayo 2020
Lima
30.08.2020 04:55
PROCEDURE DIVISION
Posts: 3
Enviado: 1
Recibido: 0
Soluiones: 0
Reputación: 0
LisAndKp is an unknown quantity at this point
Predeterminado

@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
LisAndKp no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 28 de junio de 2020, 09:54
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
23.06.2021 16:26
PROCEDURE DIVISION
Posts: 1.760
Enviado: 557
Recibido: 722
Soluiones: 94
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Cita del post de LisAndKp Ver Mensaje
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?



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 28 de junio de 2020, 22:49
IDENTIFICATION DIVISION
LisAndKp
 Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de LisAndKp
DATA DIVISION
mayo 2020
Lima
30.08.2020 04:55
PROCEDURE DIVISION
Posts: 3
Enviado: 1
Recibido: 0
Soluiones: 0
Reputación: 0
LisAndKp is an unknown quantity at this point
Predeterminado

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

Saludos
LisAndKp no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 29 de junio de 2020, 09:01
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
23.06.2021 16:26
PROCEDURE DIVISION
Posts: 1.760
Enviado: 557
Recibido: 722
Soluiones: 94
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Cita del post de LisAndKp Ver Mensaje
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



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
LisAndKp ( 1 de julio de 2020)
Respuesta

Tags
jcl , xcom


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 16:55.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.