Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   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
Forero desde (Registrado)mayo 2020
Perú
Ubicación Lima
Última Actividad30.08.2020 04:55
PROCEDURE DIVISION
PostsPosts: 3
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputació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
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad19.09.2020 12:13
PROCEDURE DIVISION
PostsPosts: 538
Ha dicho GraciasEnviado: 230
Ha recibido agradecimientosRecibido: 248
Mejores respuestasSoluiones: 34
ReputaciónReputación: 24
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
Forero desde (Registrado)mayo 2020
Perú
Ubicación Lima
Última Actividad30.08.2020 04:55
PROCEDURE DIVISION
PostsPosts: 3
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputació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
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad19.09.2020 16:34
PROCEDURE DIVISION
PostsPosts: 1.646
Ha dicho GraciasEnviado: 460
Ha recibido agradecimientosRecibido: 657
Mejores respuestasSoluiones: 91
ReputaciónReputació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 - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando 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
Forero desde (Registrado)mayo 2020
Perú
Ubicación Lima
Última Actividad30.08.2020 04:55
PROCEDURE DIVISION
PostsPosts: 3
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputació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
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad19.09.2020 16:34
PROCEDURE DIVISION
PostsPosts: 1.646
Ha dicho GraciasEnviado: 460
Ha recibido agradecimientosRecibido: 657
Mejores respuestasSoluiones: 91
ReputaciónReputació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 - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando 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 18:57.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.