topic Re: Getting "Device Offline" status from DCL in Operating System - OpenVMS

Getting "Device Offline" status from DCL

Jack Trachtman — Mon, 23 Apr 2007 11:38:08 GMT

(VMS V7.3-2)

I'm trying to determine if a disk is Offline from within a DCL script. Looks like F$GETDVI returns this with either the DEVDEPEND or DEVDEPEND2 keyword, but not being familiar with system service calls I can't figure out which of the above keywords to use, and which bit within that keyword gives me what I want (seems to be related to the SS$_DEVOFFLINE status word). Can someone help? TIA

Re: Getting "Device Offline" status from DCL

Karl Rohwedder — Mon, 23 Apr 2007 12:00:05 GMT

I normally use keywords "EXISTS" and "AVL" to check for a device.

regards Kalle

Re: Getting "Device Offline" status from DCL

Jack Trachtman — Mon, 23 Apr 2007 12:55:19 GMT

Karl,

I get a TRUE return for both EXISTS & AVL on an Offline disk.

Re: Getting "Device Offline" status from DCL

Jim_McKinney — Mon, 23 Apr 2007 13:15:02 GMT

You want to be looking for UCB$M_ONLINE in the UCB$L_STATUS field.

From DCL (replacing 'disk' with whatever you find appropriate

$ pipe libr/extr=$ucbdef/out=sys$output sys$share:lib.mlb | -
sear sys$pipe ucb$m_online
$ ucb$m_online = %x10
$ disk = "DKA0"
$ if (f$getdvi(disk,"sts") .and. UCB$M_ONLINE) .ne. UCB$M_ONLINE -
then write sys$output "''disk' is offline"

Re: Getting "Device Offline" status from DCL

Robert_Boyd — Mon, 23 Apr 2007 13:23:44 GMT

"EXISTS" corresponds to the device actually being in the list of currently configured devices on the system.

"AVL" corresponds to whether or not the device has been declared AVAILABLE/NOAVAILABLE( SET DEVICE/[NO]AVAILABLE).

Have you tried path_available or path_not_responding to see what you get from those? You may well have to extract it from the DEVDEPEND* fields. I found this:

UCB$L_DK_DEVOFFLINE = 804,0,32,1 %; ! SS$_DEVOFFLINE ...

The contents of the DEVDEPEND* are defined under each of the drivers in the IO User's Reference Manual. I suspect you will want to consult that manual.

Robert

Re: Getting "Device Offline" status from DCL

Robert_Boyd — Mon, 23 Apr 2007 13:47:47 GMT

Good one Jim -- can also find this with

$ search sys$share:*.req ucb$m_online

Re: Getting "Device Offline" status from DCL

Joseph Huber_1 — Tue, 24 Apr 2007 02:28:45 GMT

Wouldn't issuing a IO$_PACKACK to the device (after checking availability) be a better check? It also checks media loaded.

A simple packack program e.g. in
< http://wwwvms.mppmu.mpg.de/~huber/util/main/packack.for >