Re: Check for CD mounted in Remote system

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>]

Don, do you catch the "Optical device OPTxx is empty" message? It's OPT1660 
and comes through as an *ESCAPE in a program and is monitorable. (It's a 
diagnostic from a command line.).

Of course, this is a local check. The following can check a remote device 
and get the same monitorable message back:

SBMRMTCMD CMD('dspopt *mounted opt01')
          DDMFILE(VERN/MYDDMF)

It only requires that you create a DDM file on the local system, *IP type, 
that points to the remote system. Tres cool!

HTH
Vern

At 12:59 PM 12/30/2003 -0800, you 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