Display de miembros de un usuario

Todo lo relacionado con TSO e ISPF.
Responder
falcon
Usuario avanzado
Usuario avanzado
Mensajes: 60
Registrado: 15 Sep 2006, 08:46
País: España
Ciudad: Barcelona
Ocupación: Administrador de CICS

Display de miembros de un usuario

Mensaje por falcon » 06 Nov 2015, 08:14

Buenos dias,

estoy buscando la manera de poder ver en un panel la lista de miembros de un solo usuario, dentro de un PDS donde hay miembros de otros usuarios. ¿Se os ocurre alguna forma?

Gracias.
FALCON

Avatar de Usuario
Vicente
Colaborador avanzado
Colaborador avanzado
Mensajes: 543
Registrado: 21 Jul 2011, 04:52
País: España
Ciudad: Malaga
Ocupación: Técnico en Sistemas

Re: Display de miembros de un usuario

Mensaje por Vicente » 09 Nov 2015, 05:35

Hola falcon:
Después de p.3.4 y estar en BROWSE de la librería, puedes hacer lo siguiente:

SORT ID
Esto te ordenará la lista de miembros por el ususario.

Después puede hacer SAVE MILISTA
Esto te creará un fichero llamado userid.MILISTA.MEMBERS
fichero que puedes editar o manipular a tu conveniencia

Espero que te sirva
Un saludo
Varios días probando, equivocandote y volviendo a probar
pueden ahorrarte quince minutos de lectura de un manual.

falcon
Usuario avanzado
Usuario avanzado
Mensajes: 60
Registrado: 15 Sep 2006, 08:46
País: España
Ciudad: Barcelona
Ocupación: Administrador de CICS

Re: Display de miembros de un usuario

Mensaje por falcon » 23 Nov 2015, 05:35

Gracias Vicente por la respuesta.
Ahora que vuelvo a leer mi pregunta, veo que no puse que queria hacerlo desde REXX mostrando un panel ISPF.
Se pedia mostrar los miembros de un usuario que ha modificado en una fecha concreta. He utilizado el comando FILTER y el MEMLIST.
He encontrado la siguiente manera de hacerlo, para el que lo necesite :
En el REXX :
Address ISPEXEC
"LMINIT DATAID(DID) DATASET('"DSN"') ENQ(SHRW)"
"LMOPEN DATAID("did")"
misort = 'FILTER ID EQ 'USE1';FILTER CHANGED EQ 'DIA2
"CONTROL NONDISPL ENTER"
"MEMLIST DATAID("did") CONFIRM(YES) MEMBER("Mem") PANEL(xxxxxxx)"
"LMFREE DATAID("did")"

En el panel :
)INIT
....
IF (&MISORT NE &Z)
&ZCMD = &MISORT
....
)PROC
....
&MISORT = &Z
.....
FALCON

Responder