|
midrange.com
Glenn,
You may want to do something similar to a program I have called SHUTDOWN.
I wrote it a while ago (probably around V3R1 !) when I got tired of getting
stung when trying a PWRDWNSYS or ENDSYS and having the system hang. :-)
My complete system save job (SAVALL) calls this before it resorts to ENDSYS
*IMMED, and I also call this program before powerdown. It basically contains a
controlled shutdown of various jobs, and you could put the Firewall end in
there.
example:
/* SHUTDOWN - END (ALMOST) ALL PROGRAMS BEFORE PWRDWNSYS. */
PGM
MONMSG CPF0000
MONMSG TCP0000
/* Also need to end *M36 Machine NXT36A if active so that */
/* library M36LIB backup can be used to restore *M36. */
/* Because of waits in OCL proc it will take a little */
/* over 2 minutes to end, but will be done by the time */
/* the following SAVLIB (prior to SAVLIB M36LIB) is run. */
SBMNETJOB FILE(QGPL/QCLSRC) TOUSRID((POWEROFF NXT36A)) +
MBR(PWROFM36) PTY(*HIGH) /* Submit job to +
machine NXT36A via SNADS */
DLYJOB DLY(10)
ENDCALSRV
ENDDIRSHD
ENDWTR PRT01
ENDWTR PRT02
ENDWTR PRT03
ENDWTR PRT08
ENDWTR PRT09
ENDWTR XEROX_N32
STOPTCP
ENDMSF
ENDSBS QSNADS DELAY(30)
ENDSBS QEUX
ENDSBS QSPL
ENDSBS QBATCH
ENDSBS QSERVER
ENDSBS Q1PGSCH *IMMED
/* ENDSBS SVCDRCTR *IMMED V4R1 version not yet installed */
/* ENDSBS QSYSWRK *IMMED V4R1 - QSYSWRK handles Passthru (QPASVRS) */
ENDDUPJOB CHKFWDMAIL
ENDPGM
Neil Palmer DPS Data Processing Services Canada Ltd.
AS/400~~~~~
Thornhill, Ontario, Canada ___________ ___ ~
Phone: (905) 731-9000 x238 |OOOOOOOOOO| ________ o|__||=
Cell.: (416) 565-1682 x238 |__________|_|______|_|______)
Fax: (905) 731-9202 oo oo oo oo OOOo=o\
mailto:NeilP@DPSlink.com ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
http://www.DPSlink.com AS/400 The Ultimate Business Server
-----Original Message-----
From: Glenn Gundermann [SMTP:ggundermann@rachisholm.com]
Sent: Friday, December 11, 1998 1:31 PM
To: Midrange List
Subject: Firewall Getting Corrupted
In case anyone is doing what I was doing .......
You must End Network Server Application *FIREWALL and then vary it off
BEFORE doing a power down. If you don't, you risk getting your firewall
corrupted.
Our firewall was down 6.5 hours today. I had to restore from tape
(Restoring the Firewall, SG24-2162 Red Book, ch. 11.3) to get it up.
And by the way, step 11.3.4 didn't work and I had to manually Add Link.
IBM is apparently changing the power down system command to take care of
this for you in V4R4 _IF_ you do a controlled power down.
Glenn Gundermann
Ronald A. Chisholm Limited
Toronto
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
