Guardar salida de spool en archivo

Todo lo relacionado con REXX en este ambiente.
Responder
carlos rodriguez

Guardar salida de spool en archivo

Mensaje por carlos rodriguez » 23 Sep 2009, 19:45

Hola a todos, alguien puede decirme como hacer un "XDC" de una salida en Spool con un REXX???
Lo que quiero hacer es guardar la salida de un JCL (en Spool) en un archivo.

Gracias por la ayuda,
Carlos.

Avatar de Usuario
canseco
Colaborador
Colaborador
Mensajes: 196
Registrado: 27 Sep 2007, 13:37
País: España
Ciudad: Madrid
Ocupación: Lider de proyectos
Ubicación: España

Re: Guardar salida de spool en archivo

Mensaje por canseco » 24 Sep 2009, 05:18

Buenos días,

Para guardar las salida de un JCL a fichero se puede especificar un dataset como SYSOUT del JCL.

Por ejemplo (esto habrá que modificarlo según la instalación)

//SYSOUT DD DSN=SALIDA.SYSOUT,
// DISP=(NEW,CATLG,DELETE),
// VOL=SER=3390,UNIT=SYSDA,
// LRECL=200,RECFM=VBA,SPACE=(TRK,(10,20),RLSE)



Un saludo

carlos rodriguez

Re: Guardar salida de spool en archivo

Mensaje por carlos rodriguez » 24 Sep 2009, 12:45

Hola, primero gracias por responder, lo que necesito es guardar una salida que ya está en el spool (sería el equivalente al XDC, pero desde un REXX) , no puedo modifcar el JCL que origina esa salida.

Gracias por su ayuda.
Carlos.

galeno

Re: Guardar salida de spool en archivo

Mensaje por galeno » 24 Sep 2009, 15:23

Hola Carlos,

No sé exactamente por qué quieres acceder al Spool desde un Rexx, pero lo que si te puedo decir es que a partir de la versión de Z/os 1.9 el SDSF tiene un interface para rexx, que quizás te pueda ser de ayuda. (no sé que versión gastais en vuestra instalación), te dejo un link al manual en cuestion.

http://publibz.boulder.ibm.com/cgi-bin/ ... T#FIRSTHIT

No obstante, tambien podrías acceder al SDSF en Batch.

Un saludo

carlos rodriguez

Re: Guardar salida de spool en archivo

Mensaje por carlos rodriguez » 25 Sep 2009, 11:19

Gracias por la información, todavia estamos en 1.7.

Un saludo muy cordial,
Carlos.

Luis Galvez

Re: Guardar salida de spool en archivo

Mensaje por Luis Galvez » 26 Sep 2009, 20:37

Carlos si ya tienes el spool en sdsf lo que puedes hacer es un pre nombre de job y st con eso haces display del job luego poner el cursor al lado y tipear XDC se habre un menu donde pones el nombre del archivo y la opcion MEW

espero que te sirva

NJB
Su anfitrion
Su anfitrion
Mensajes: 1111
Registrado: 12 Oct 2003, 16:27
País: Argentina
Ciudad: Capilla del Señor
Ocupación: System Programmer
Contactar:

Re: Guardar salida de spool en archivo

Mensaje por NJB » 27 Sep 2009, 07:55

Hola

Lo que tienes que hacer desde tu REXX es invocar el comando OUTPUT de TSO que te permite varias cosas, entre otras mandar una salida de spool a un dataset.

Cuidado que por default el comando OUTPUT borra la salida del spool.

Hace mucho que no lo uso por lo que no te paso la sintaxis pero usa directamente el HELP de TSO que para lo que tienes que hacer te va a sobrar.

Te mando un cordial saludo
Norberto Bocalandro

Cristina Betegón Sánchez

Re: Guardar salida de spool en archivo

Mensaje por Cristina Betegón Sánchez » 28 Sep 2009, 05:20

Para acceder al SDSF desde una REXX tienes que escribir los comandos del SDSF que quieras ejecutar en un fichero de entrada ISFIN y alocar un fichero ISFOUT para que se escriba la salida.
Ejemplo:

TEMP = MAAD01.BAT1WORK.SYSLOG

LINE.1 = "H"
LINE.2 = OWNER
LINE.3 = "AFD REFRESH"
LINE.4 = "PREFIX SYSLOG"
LINE.5 = "AFD REFRESH"
LINE.6 = "FIND SYSLOG"
LINE.7 = "++XD"
/*LINE.8 = "++<='''"TEMP"'''><><=NEW>" */
LINE.8 = "++<='''"TEMP"'''><><=NEW><><><><><><><><><><><=137>"
LINE.9 = "PRINT CLOSE"

"ALLOC FI(ISFIN) LRECL(80) UNIT(SYSDA)",
"BLKSIZE(8000) RECFM(F B) NEW REUSE"

"ALLOC FI(ISFOUT) DA('"TEMP2"') LRECL(151) UNIT(SYSDA)",
"BLKSIZE(15100) RECFM(F B) NEW REUSE"

"EXECIO 9 DISKW ISFIN (FINIS STEM LINE.)"

Configurar los parámetros de la pantalla del SDSF según te va a aparecer en en fichero de salida ISFOUT y llamar al programa que accede al SDSF:

PARM = '++40,80'

ADDRESS ATTCHMVS "ISFAFD PARM"

"FREE FI(ISFIN)"

"EXECIO * DISKR ISFOUT (FINIS STEM LINE.)"

"FREE FI(ISFOUT)"

El ISFOUT no contendrá el fichero creado en la llamada al SDSF, sino los pantallazos de cada comando.

El fichero del syslog se escribirá en el que asignes a la variable TEMP que escribes en la linea.8

Un saludo.

carlos rodriguez

Re: Guardar salida de spool en archivo

Mensaje por carlos rodriguez » 28 Sep 2009, 13:37

Buenod ias a todos, es maravilloso contar con su ayuda,

En verdad gracias,
Carlos.

javierc

Re: Guardar salida de spool en archivo

Mensaje por javierc » 02 Mar 2013, 00:43

Luis Galvez escribió:Carlos si ya tienes el spool en sdsf lo que puedes hacer es un pre nombre de job y st con eso haces display del job luego poner el cursor al lado y tipear XDC se habre un menu donde pones el nombre del archivo y la opcion MEW

espero que te sirva
Hola, buscaba justo esto, me fue muy útil, con la opción NEW y toda la salida al dataset indicado.

Muchísimas gracias.

Carbesu
Usuario
Usuario
Mensajes: 1
Registrado: 14 Oct 2017, 13:10
País: España
Ciudad: Madrid
Ocupación: Operador de consola

Re: Guardar salida de spool en archivo

Mensaje por Carbesu » 21 Oct 2017, 13:10

Hola,
Yo tambien necesito pasar a fichero una ejecucion d un job a traves de rexx con isfcalls, en realidad, ya lo tengo hecho, pero el problema es q si hay varias ejecuciones del mismo job me guarda la de fecha mas antigua (por default) y yo necesito q sea la mas reciente. He encontrado el parametro submited = date time, q busca la ejecucion mas cercana a esa fecha, pero no consigo utilizarlo bien.
Muchas gracias y un saludo

Avatar de Usuario
Horacio Villa
Colaborador
Colaborador
Mensajes: 186
Registrado: 04 Dic 2003, 13:11
País: Argentina
Ciudad: Buenos Aires
Ocupación: DBA

Re: Guardar salida de spool en archivo

Mensaje por Horacio Villa » 19 May 2018, 15:30

Supongo que con SORT POS D se soluciona, ya que pondría primero el mas nuevo
HV

Responder