Consulta LPAR en Rexx

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

Consulta LPAR en Rexx

Mensaje por betosi » 30 Oct 2017, 06:15

Buenos días.

Soy novato en temas de Rexx y sistemas y tengo una duda que espero me podáis resolver.
Estoy haciendo un proceso en Rexx que tengo que ejecutar en todos los LPAR de la instalación. En principio será un software que irá escalando por los diferentes entornos y probablemente en alguno no pueda editarlo, por lo que necesitaría recuperar (si es posible), de forma automática, desde qué LPAR se está ejecutando el proceso.

Muchas gracias de antemano.
Un saludo
Nunca es tarde para reciclarse

Avatar de Usuario
patoaukan
Usuario
Usuario
Mensajes: 3
Registrado: 05 Feb 2008, 19:10
País: España
Ciudad: Madrid
Ocupación: Técnico en Sistemas
Ubicación: España

Re: Consulta LPAR en Rexx

Mensaje por patoaukan » 30 Oct 2017, 09:02

Hola!.

Comprueba si tienes estas variables definidas en el sistema (que probablemente sí):

https://www.ibm.com/support/knowledgece ... vsvarr.htm

Entonces podrás usar el comando >>-MVSVAR(arg_name) para obtener la información que necesitas.

Si tienes permisos en SDSF podrás comprobar el valor de estas variables de entorno dando el comando SYM en la pantalla inicial.

Salud!
Aprendiendo.

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

Re: Consulta LPAR en Rexx

Mensaje por betosi » 04 Dic 2017, 06:59

Muchas gracias por la respuesta.

Me sirvió de mucho, aunque finalmente utilicé lo siguiente.

ECVT=C2D(STORAGE(D2X(C2D(STORAGE(010,4))+140),4))
lpar.1 = STORAGE(D2X(ECVT+344),8)

Con esto me dio el nombre de la máquina, que era lo que buscaba.

Un saludo.
Nunca es tarde para reciclarse

Avatar de Usuario
jlanderos
Usuario
Usuario
Mensajes: 18
Registrado: 26 Sep 2017, 18:21
País: México
Ciudad: CDMX
Ocupación: IT Specialist

Re: Consulta LPAR en Rexx

Mensaje por jlanderos » 27 Dic 2017, 03:10

Hola:

Quiza te refieras a esto:

Código: Seleccionar todo

/* REXX */

SsId = MVSVAR('SYSNAME')   

Say 'El subsistema actual es >' SsId

exit
Saludos y suerte.

El camino de 1,000 kilómetros inicia con un solo paso. :arriba:

Responder