Tony,
We do have a SYSREXX code that automates our shutdown process.
There is a part of if related to respond some pending REPLIES, as shown:
CMDRESULT=AXRCMD('P TCAS','OUTPUTVAR.',10);
X = AXRWAIT(4) /* Aguarda 4s */
Cmd = 'D R,R,SYS='Sysid',JOB=TCAS'
Reply = ReplyCMD(Cmd)
If Reply <> 0 Then
CMDRESULT=AXRCMD('R 'Reply',FSTOP')
/* */
/* Subrotina verifica REPLY pendente */
/* */
ReplyCMD:
CMDRESULT=AXRCMD(Cmd,'REPLYVAR.',10)
If CMDResult = 0 Then
Do
Outst = WORD(REPLYVAR.3,3)
If Outst <> 'OUTSTANDING' Then
Return WORD(REPLYVAR.4,1)
Else
Return 0
End
Else
Say "SHUTDOWN Sysrexx - Reply from "Cmd" - RC="CMDResult
Return 0
Atenciosamente / Regards / Saludos
Ituriel do Nascimento Neto
4250/DITI Engenharia de Software
Tel: +55 11 3684-9602 Canal de voz 23-1404
E-mail: [email protected]
BANCO BRADESCO S.A.
Cidade de Deus, Osasco, Prédio Vermelho
-----Mensagem original-----
De: IBM Mainframe Discussion List <[email protected]> Em nome de Tony
Thigpen
Enviada em: terça-feira, 11 de fevereiro de 2020 10:31
Para: [email protected]
Assunto: Finding and replying to outstanding reply
We have an in-house written automated shutdown program that does everything but
shutdown NPF. That is because NPF leaves an open reply message during start-up
to which I must replay xx,STOP to make it shutdown. Within our shutdown
program, I would like it to programmatically find the outstanding reply number
so that it can issue the correct response.
Can someone point me to any doc or examples that will help me get started on
this?
Some items:
The shutdown program is assembler.
I have SysREXX running with a valid MPF exit to call it.
I would prefer to do it all within the assembler program instead of using
MPF/SysREXX.
Thoughts?
--
Tony Thigpen
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
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.
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: INFO IBM-MAIN
