Problem with a CL

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