One of my coworkers produced this some years ago:
PROC to place in a common proclib:
//OESIG PROC
//*******************************************************************
//*** This Procedure Terminates Processes in the UNIX Environment ***
//*******************************************************************
//OESIG02 EXEC PGM=IRXJCL,REGION=30M,TIME=NOLIMIT,
// PARM='OESIGREX'
//SYSTSPRT DD SYSOUT=X
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSEXEC DD DISP=SHR,DSN=your.SYSEXEC.dataset
REXX exec OESIGREX:
/* rexx */
If syscalls('ON')>3 then
do
say 'Unable to establish the SYSCALL environment'
exit
end
address syscall
'getpid'
me=retval
sig = SIGTERM
'getpsent ps.'
process = '/usr/lpp/tcpip/sbin/timed -l'
call kill_process
process = 'EZANSNMD'
call kill_process
process = '/usr/lpp/tcpip/sbin/syslogd'
call kill_process
process = '/usr/sbin/inetd /etc/inetd.conf'
call kill_process
EXIT
kill_process:
do ent=1 to ps.0
if ps.ent.ps_cmd = process then
do
say 'TERMINATING THE FOLLOWING PROCESS ' process
'kill' ps.ent.ps_pid sig
end
end
return
Issue a S OESIG *before* shutting down JES2
Hope some find it useful. If not, don't shoot the messenger!
Another task that hangs around: AXR Issue P AXR
Bob
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Brian Westerman
Sent: Wednesday, May 15, 2019 1:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES2 shutdown failure
At the end of the shutdown process, it's a good idea to issue these commands.
The first one will ask you to verify that it's okay to stop ZFS., the rest
won't ask you anything at all.
F OMVS,STOPPFS=ZFS
F BPXOINIT,SHUTDOWN=FORKINIT
SETRRS SHUTDOWN
F OMVS,SHUTDOWN
$DU,STA
$PJES2
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
