Like you we have created a small Sysrexx that shuts down our system.
To circunvent this time limit issue, we have instructed the operators to
Start a proc named SHUTDOWN that follows :
//SHUTDOWN PROC
//STEP1 EXEC PGM=COMMAND
//IEFRDER DD DISP=SHR,DSN=SYS2.OPERLIB(SHUT&SYSNAME)
Here goes the IEFRDER :
REXX SHUTDOWN,T=0
The T=0 parameter does the magic.
Another cool thing that can be done with Sysrexx is to invoke MXI :
/* REXX */
Parse ARG mxicmd
"STEPLIB ADD DA('SYS2.MXI43.LOAD') NOMSG"
Rcode = MXIREXX('line.',mxicmd)
If Rcode = 0 Then
DO
i = 1
Do line.0
say line.i
i = i + 1
End
End
Else
Say 'MXI com RC='Rcode
"STEPLIB REMOVE DA('SYS2.MXI43.LOAD') NOMSG"
Exit
Atenciosamente / Regards / Saludos
Banco Bradesco S/A
4254 - DPCD Engenharia de Software
Sistemas Operacionais Mainframes
Ituriel do Nascimento Neto
Tel: 55 11 4197-2021 R: 22021 Fax: 55 11 4197-2814
|-----Mensagem original-----
|De: IBM Mainframe Discussion List
|[mailto:[email protected]] Em nome de Martinez, Frank J
|Enviada em: quarta-feira, 22 de abril de 2009 18:40
|Para: [email protected]
|Assunto: Re: System REXX usage
|
|I pieced together a small routine to bring down my sandbox
|gracefully, but I have yet to try it on the two larger LPARs.
|My biggest concern is that there is a limit of 30 seconds (I
|think) for EXEC to run.
|
|________________________________________
|From: IBM Mainframe Discussion List [[email protected]] On
|Behalf Of John McKown [[email protected]]
|Sent: Wednesday, April 22, 2009 8:53 AM
|To: [email protected]
|Subject: Re: System REXX usage
|
|On Wed, 22 Apr 2009 07:48:11 -0500, Bob <[email protected]> wrote:
|
|>Just wondering if we could get a list going of some
|interesting SYSTEM
|>REXX uses and tools... to get the creative ideas flowing.... or does
|>this
|already exist
|>somewhere (haven't found it yet).
|>
|>Peace,
|>
|>bob h
|
|I agree. I'm not really "getting" when and how I would use
|System REXX. Yes, I've read the chapter in the book.
|
|--
|John
|
|----------------------------------------------------------------------
|For IBM-MAIN subscribe / signoff / archive access
|instructions, send email to [email protected] with the
|message: GET IBM-MAIN INFO Search the archives at
|http://bama.ua.edu/archives/ibm-main.html
|
|----------------------------------------------------------------------
|For IBM-MAIN subscribe / signoff / archive access
|instructions, send email to [email protected] with the
|message: GET IBM-MAIN INFO Search the archives at
|http://bama.ua.edu/archives/ibm-main.html
|
<HTML><font face="Tahoma" size="1"><HR>AVISO LEGAL <br>Esta mensagem é
destinada exclusivamente para a(s) pessoa(s) a quem é dirigida, podendo conter
informação confidencial e/ou legalmente privilegiada. Se você não for
destinatário desta mensagem, desde já fica notificado de abster-se a
divulgar, copiar, distribuir, examinar ou, de qualquer forma, utilizar a
informação contida nesta mensagem, por ser ilegal. Caso você tenha recebido
esta mensagem por engano, pedimos que nos retorne este E-Mail, promovendo,
desde logo, a eliminação do seu conteúdo em sua base de dados, registros ou
sistema de controle. Fica desprovida de eficácia e validade a mensagem que
contiver vÃnculos obrigacionais, expedida por quem não detenha poderes de
representação.
<HTML><font face="Tahoma" size="1"><HR>LEGAL ADVICE <br>This message is
exclusively destined for the people to whom it is directed, and it can bear
private and/or legally exceptional information. If you are not addressee of
this message, since now you are advised to not release, copy, distribute, check
or, otherwise, use the information contained in this message, because it is
illegal. If you received this message by mistake, we ask you to return this
email, making possible, as soon as possible, the elimination of its contents of
your database, registrations or controls system. The message that bears any
mandatory links, issued by someone who has no representation powers, shall be
null or void.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
