Re: Checking for tape Volume Identifier in a CL

[Pete Hall <peteh@xxxxxxxxxx>]

At 15:33 07/30/98 -0400, Chuck Lewis wrote:
>What is the method for checking a tapes volume id in a CL ?
>
>I thought you could use the CHKTAP command but I don't remember the way
>to have the CL receive the information that this command returns via the
>message it sends.

              CHKTAP     DEV(TAP01)
              MONMSG     MSGID(CPF6760 CPF6702 CPF6708) EXEC(CHGVAR +
                           VAR(&TAPERR) VALUE('1'))
              IF         COND(*NOT &TAPERR) THEN(DO)
                 RCVMSG     MSGTYPE(*COMP) MSGDTA(&MSGDTA)    
                 CHGVAR     VAR(&VOLID) VALUE(%SST(&MSGDTA 11 6))
                 ENDDO


Pete Hall
peteh@inwave.com 
http://www.inwave.com/~peteh/

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