Re: Problem with a CL

The second monmsg is monitoring the sndmsg command

What you need is ...

0013.00 INZTAP DEV(TAP01) NEWVOL(IBMIRD) CHECK(*NO)
0014.00 MONMSG MSGID(CPF6760 CPF6718) EXEC(DO)
0015.00 SNDMSG MSG('backup did not run') TOUSR(*SYSOPR))
0016.00 GOTO EXIT
0017.00 ENDDO





Don Brown

MSD Information Technology

Suite 5/29 McDougall Street Milton Q 4064
( 07 3368 7888
+ PO Box 1629 MILTON Q 4054
Ê 07 3368 7877
* Don.Brown@xxxxxxxxxx
È 0408 751 644
þ www.msd.net.au www.architect4web.com.au





I am a proud supporter of THE REFERRAL NETWORK and recommend the services
of the other member businesses. For more information please checkout the
website www.refnet.net.au





From: Richard Reeve <rjrjr64@xxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date: 13/01/2016 09:08 PM
Subject: Problem with a CL
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx>



All,

I've been up too long and am not seeing the problem with this CL.

0013.00 INZTAP DEV(TAP01) NEWVOL(IBMIRD)
CHECK(*NO)
0014.00 MONMSG MSGID(CPF6760 CPF6718) EXEC(SNDMSG
+
0015.00 MSG('backup did not run')
TOUSR(*SYSOPR))
0016.00 MONMSG MSGID(CPF6760 CPF6718) EXEC(GOTO
EXIT)
0017.00 ENDSBS SBS(QINTER)
OPTION(*IMMED)
0018.00 ENDSBS SBS(PRMSDATAQ)
OPTION(*IMMED)
0019.00 /* SAVE LIBRARIES
*/
0020.00 /* DLYJOB DLY(600)
*/
0021.00 DLYJOB
DLY(120)
0022.00 SAVLIB LIB(RMSGL11) DEV(TAP01) ENDOPT(*LEAVE)
+
0023.00 SAVACT(*NO) OMITOBJ((*ALL
*JRNRCV))
)
The issue is that the tape drive wasn't ready so a CPF6760 was issued. (I
verified in the log). Given that CPF6760 was issued (and I also see the
'backup did not run' message, I expected to see the program go to exit
(which is ENDPGM). Unfortunately, that's not what happened. The QINTER
AND PRMSDATAQ were ended and we were stuck. I had to do an IPL through
the
HMC to get things going again.

My questions are;

1. Why didn't the program go to EXIT when the CPF6760 message was issued
2. Could I have done something other than IPL? I know that if I had my
home PC running in QCTL that I could have recovered, but I didn't. I'm
not
an HMC guy so any advice would be much appreciated.

Thanks.

Rich
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.