Re: Problem with a CL

[Richard Reeve <rjrjr64@xxxxxxxxx>]

Thanks Don.  Funny how sleep deprivation works.

On Wed, Jan 13, 2016 at 6:15 AM, Don Brown <DBrown@xxxxxxxxxx> wrote:

> 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.