HP3000-L Archives

November 2001, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Mike Hornsby <[log in to unmask]>
Reply To:
Mike Hornsby <[log in to unmask]>
Date:
Thu, 1 Nov 2001 08:53:40 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (62 lines)
> Ideally, I would like to check if there is a tape in the DAT drive before
> the rest of the dayend process runs.

The following JCL should do what you want.

Cordially,

Mike Hornsby
Co-founder/Chief Technical Officer
Beechglen Development Inc. (beechglen.com)
513-922-0509
[log in to unmask]


!showdev 7
!purge showdev
!build showdev;rec=-80,,f,ascii ;msg
!setvar ldev7,false
!run fcopy.pub.sys;info=":showdev 7";stdlist=showdev
!WHILE FINFO("SHOWDEV",19) <> 0
!     INPUT SDIN < SHOWDEV
!     IF POS('Nolabel','!SDIN') > 0
!        SETVAR LDEV7,TRUE
!     ENDIF
!ENDWHILE
!purge showdev
!if ldev7 = true then
!   stream fullback.jobs.sys
!endif
!if ldev7 = false then
!   tellop tape not in ldev 7 skipping fullback!
!endif



----- Original Message -----
From: "Edward Broderick" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Thursday, November 01, 2001 6:16 AM
Subject: [HP3000-L] Checking tape present in DAT drive


> Our backup routine runs automatically in an evening using the STORE
> command. However, if there is no tape in the drive, it will wait until
> there is a tape. The backup process is within a dayend routine and unless
> the backup completes, the application cannot be started the next morning.
> Ideally, I would like to check if there is a tape in the DAT drive before
> the rest of the dayend process runs.
>
> Anyone any idea how I you can check if there is a tape in the drive?
>
> Many thanks,
>
> Edward Broderick
> Dixon Motors Plc
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2