|
midrange.com
Would it be possible to change the message description, CHGMSGD, and add a
DFTPGM to perform an action based on the halt? If your system is in such a
restricted state could an action be performed? Such an action might be,
page someone to fix the tape.
Or use a secondary method. Have another PC or 400 test your machine for
connectivity, after the allotted time for the backup. If it cannot connect
then page someone. The problem with this method is if your backup takes 10
hours and it dies in the first hour, then you've lost 9 hours of
productivity.
I would suggest that if you do follow Neil's suggestion that you turn the
maximum job logging on and evaluate the joblog each time you run this.
Rob Berendt
==================
Remember the Cole!
neilp@dpslink.com
Sent by: To: MIDRANGE-L@midrange.com
owner-midrange-l@mi cc:
drange.com Subject: Re: Load Next Tape
10/30/00 08:51 AM
Please respond to
MIDRANGE-L
In CL program near the start do a CHGJOB INQMSGRPY(*DFT).
This will cause the "Change tape" message to take a "C" reply, and your
program will regain control and bring the system back up.
Neil Palmer DPS Data Processing Services Canadafont> Ltd.
50 Acadia Avenue, Ste.102 AS/400~~~~~
Markham, Ontario, Canada. ____________ ___ ~
Phone:(905) 474-4890 x303 |OOOOOOOOOO| ________ o|__||=
Cell.:(416) 565-1682 x303 |__________|_|______|_|______)
Fax: (905) 474-4898 oo oo oo oo OOOo=o\
mailto:NeilP@DPSlink.com ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
http://www.DPSlink.com iSeries 400 The Ultimate Business Server
"Alan Moulsdale"
<alan.moulsdale@virgi To:
n.net> <MIDRANGE-L@midrange.
Sent by: com>
owner-midrange-l@midr cc:
ange.com Subject:
Load Next Tape
2000/10/30 05:29
Please respond to
MIDRANGE-L
I have a situation where I am running a dedicated backup from the console:
ENDSYS
SAVSYS
SAVLIB *NONSYS
SAVDLO
SAV
STRSBS QCTL
If any of the commands fail, the program that I have written starts the
required subsystems and sends a pager message to the support guys. They can
then come in, fix the problem and restart the backup.
I have one problem, if the save runs out of cartridges the message 'load
next volume...' is sent and the save waits for it to be answered. Because
an
error hasn't occurred, my program does not know it is waiting and so no
pager message is sent.
This shouldn't be a problem because the device is a 3590 with a cartridge
stacker, however this weekend the stacker had a hardware failure and didn't
load the next cart and the save hung waiting for a response for 10+
hours!!!
Does anybody know a way round this.
Many thanks
Alan
+---
| 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.
