We use the mechanism supplied by System Automation. Just issue 'P task-name'.
If that does not get a result, CANCEL the task. It's not worth the trouble of
finding the WTOR number for a task that you're shutting down anyway.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
ITURIEL DO NASCIMENTO NETO
Sent: Wednesday, February 12, 2020 11:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):RES: Finding and replying to outstanding reply
CAUTION EXTERNAL EMAIL
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: ituriel.nascime...@bradesco.com.br
BANCO BRADESCO S.A.
Cidade de Deus, Osasco, Prédio Vermelho
-----Mensagem original-----
De: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> Em nome de Tony
Thigpen Enviada em: terça-feira, 11 de fevereiro de 2020 10:31
Para: IBM-MAIN@LISTSERV.UA.EDU
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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
