Re: Checking for tape Volume Identifier in a CL

[Chuck Lewis <CLEWIS@xxxxxxxxxx>]

Thanks Pete !

Got it working.

Chuck

Pete Hall wrote:

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



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