LMMLIST GROUP en z/OS 2.3

Todo lo relacionado con TSO e ISPF.
Responder
emontepena
Usuario
Usuario
Mensajes: 7
Registrado: 15 Oct 2008, 05:32
País: españa
Ciudad: madrid
Ocupación: Analista de desarrollo

LMMLIST GROUP en z/OS 2.3

Mensaje por emontepena » 05 Jun 2019, 07:44

Después de la subida de S.O. a 2.3, estamos teniendo problemas con el comando LMMLIST con el parámetro GROUP. Utilizamos este comando para leer las estadísticas ISPF de los miembros de una librería.

LEER_ESTADISTICAS: PROCEDURE EXPOSE TOTALSIZE
ARG LIBRERIA
ISAL=SAL.0
"ISPEXEC LMINIT DATAID(ENTRADA) DATASET('"LIBRERIA"') ENQ(SHR)"
IF RC = 0 THEN DO
"ISPEXEC LMOPEN DATAID(&ENTRADA) OPTION(INPUT)"
IF RC = 0 THEN DO
"ISPEXEC LMMLIST DATAID(&ENTRADA) OPTION(SAVE) STATS(YES),
GROUP(ESTADIST)"
IF RC = 0 THEN TOTALSIZE = TOTALSIZE + TRATAR_ESTADISTICAS()
END
END
"ISPEXEC LMFREE DATAID(&ENTRADA)"
SAL.0=ISAL
RETURN 1

TRATAR_ESTADISTICAS: PROCEDURE
TOTAL = 0
FICHERO='TSOMVS.'USERID()'.'MVSVAR('SYSNAME')'.ESTADIST.MEMBERS'
IF SYSDSN("'"FICHERO"'") <> 'OK' THEN RETURN 1
"ALLOC DA('"FICHERO"') FI(ENTRADA) SHR REU"
"EXECIO * DISKR ENTRADA (FINIS STEM DATOS."
CODLEE=RC
"FREE FI(ENTRADA)"
MSG=MSG('OFF')
"DEL ('"FICHERO"')"
MSG=MSG('ON')
DO Z2=1 TO DATOS.0
SIZE=SUBSTR(DATOS.Z2,56,5)
IF DATATYPE(SIZE,'N') = 0 THEN SIZE=0
TOTAL = TOTAL + SIZE
END
RETURN (TOTAL*80)

Después de ejecutar el comando LMMLIST en LEER_ESTADISTICAS, se llama a TRATAR_ESTADISTICAS. En este paso falla al hacer el SYSDSN porque no encuentra el fichero.
Paso el mismo proceso en una máquina con versión anterior de S.O. , en otra máquina, y funciona perfectamente.

He leído el manual de cambios asociados a la subida de S.O. y no hay referencias a este comando en los cambios.

Os agradecería cualquier pista para poder solucionar el problema.

Gracias de antemano.

f_caballero
Usuario avanzado
Usuario avanzado
Mensajes: 63
Registrado: 25 Sep 2007, 16:36
País: España
Ciudad: Madrid
Ocupación: Analista de desarrollo

Re: LMMLIST GROUP en z/OS 2.3

Mensaje por f_caballero » 15 Jun 2019, 07:25

Revisa el PREFIX del usuario que ejecuta el comando.
El fichero se crea como <prefix>.<group>.MEMBERS.
Probablemente, al cambiar la versión de sistema se haya modificado la formación del prefix.
Salud y fortuna.
Fernando Caballero

Abbys
Usuario
Usuario
Mensajes: 27
Registrado: 29 Sep 2015, 01:37
País: España
Ciudad: Madrid
Ocupación: Otra
Contactar:

Re: LMMLIST GROUP en z/OS 2.3

Mensaje por Abbys » 15 Jun 2019, 07:32

Buenos días

¿Has comprobado si el nombre del fichero que salva tiene algún tipo de prefijo que no estés teniendo en cuenta?
Quizá el nombre del fichero que guarda sea distinto al que luego buscas.
Mi blog de Mainframe: https://emuframe.com

emontepena
Usuario
Usuario
Mensajes: 7
Registrado: 15 Oct 2008, 05:32
País: españa
Ciudad: madrid
Ocupación: Analista de desarrollo

Re: LMMLIST GROUP en z/OS 2.3

Mensaje por emontepena » 18 Jun 2019, 07:28

Gracias de antemano por las indicaciones recibidas.

El problema está resuelto cambiando el nombre del fichero donde se deja el resultado del LMMLIST.
Al hacer el LMMLIST:
"ISPEXEC LMMLIST DATAID(&ENTRADA) OPTION(SAVE) STATS(YES),
GROUP(ESTADIST)"
donde ponía
FICHERO='TSOMVS.'USERID()'.'MVSVAR('SYSNAME')'.ESTADIST.MEMBERS'
se debe poner
FICHERO='TSOMVS.'USERID()'.ESTADIST.MEMBERS'

Saludos.

Responder