Escribir salida de LISTC en fichero

Todo lo relacionado con REXX en este ambiente.
betosi
Usuario
Usuario
Mensajes: 4
Registrado: 02 Mar 2017, 11:12
País: España
Ciudad: Madrid
Ocupación: Analista funcional

Escribir salida de LISTC en fichero

Mensajepor betosi » 04 Dic 2017, 07:08

Buenos días.

Sigo formándome a golpe de leer manuales y foros en esto del REXX, pero he llegado a un callejón sin salida que no he sabido resolver.
Tengo que realizar un proceso en REXX que me saque el volumen donde están alojadas determinadas librerías con LISTC. Como puedo sacar la salida de este rexx por el fichero indicado?

/* REXX */
/* */
"ALLOC F("APFVOL4") DSNAME("A702324.PERM.PRUEBA.APFVOL") " ,
"BLKSIZE(27920) LRECL(80) RECFM(F,B) NEW KEEP SPACE(1,1) CYLINDERS
PARSE ARG COMMAND
COMMAND 'LISTC ENT('SYST.FOCUS.R7611.FOCSQL.LOAD') VOLUME'
EXIT

Muchas gracias.
Nunca es tarde para reciclarse

betosi
Usuario
Usuario
Mensajes: 4
Registrado: 02 Mar 2017, 11:12
País: España
Ciudad: Madrid
Ocupación: Analista funcional

Re: Escribir salida de LISTC en fichero

Mensajepor betosi » 04 Dic 2017, 08:32

Bueno, pues cierro el hilo porque por fin encontré la forma de que me funcionase.
Siento haber abierto "innecesariamente" este hilo, pero la desesperación de tener que entregar el Rexx y ver que el tiempo se me agotaba y no encontraba solución era muy importante. He aquí la solución.

ADDRESS TSO
"ALLOC F("APFVOL4") DSNAME("A702324.PERM.PRUEBA.APFVOL") " ,
"BLKSIZE(27920) LRECL(80) RECFM(F,B) NEW KEEP SPACE(1,1) CYLINDERS"
A = OUTTRAP("X.","*")
"LISTCAT ENTRIES('SYS1.LINKLIB') VOLUME"
CALL OUTTRAP "OFF"
I = 1
DO L = 1 TO X.0
OUT.I= X.L
I = I + 1
END
"EXECIO * DISKW APFVOL4 (FINIS STEM OUT."
EXIT 0
Nunca es tarde para reciclarse


Volver a “REXX”