RE: Check for CD mounted in Remote system

Thanks guys.

All I needed was DSPOPT.  8^)

---
Doug Hart



midrange-l-bounces@xxxxxxxxxxxx wrote:
> Here is how we are doing it in a CL Program
> 
> 
> /* DISPLAY THE OPTICAL DEVICE TO MAKE SURE IT IS READY.  IF IT DOES  *
> /* NOT COME READY WITHIN THE MAXIMUM NUMBER OF ATTEMPTS, THEN EXIT.  
>              * DSPOPT     VOL(*MOUNTED) DEV(OPT01) OUTPUT(*PRINT)
>              MONMSG     MSGID(CPF0000) EXEC(DO)
>              IF         COND(&TRIES = &LIMIT) THEN(DO)
>              GOTO       CMDLBL(FAIL)
>              ENDDO
>              ELSE       CMD(DO)
>              CHGVAR     VAR(&TRIES) VALUE(&TRIES + 1)
>              DLYJOB     DLY(30)
>              GOTO       CMDLBL(VERIFY)
>              ENDDO
>              ENDDO
> 
> 
> 
> 
> 
>                       "Doug Hart"
>                       <doughart@xxxxxxxxxx        To:       "Midrange
>                       Systems Technical Discussion"
>                       <midrange-l@xxxxxxxxxxxx> om>                  
>                       cc: Sent by:                    Subject:  Check
>                       for CD mounted in Remote system
> midrange-l-bounces@m idrange.com 
> 
> 
>                       12/30/2003 12:36 PM
>                       Please respond to
>                       Midrange Systems
>                       Technical Discussion
> 
> 
> 
> 
> 
> 
> 
>  How can I tell if a CD is mounted in the drive of a remote system?
> 
>  I need something like CHKTAP.
> 
> ---
> Doug Hart
> 
> 
> 
> 
> _______________________________________________
> 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.
> 
> 
> 
> 
> _______________________________________________
> 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.