HP3000-L Archives

May 1999, Week 3

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:
Way to detect if a tape is loaded in dat
From:
Ralph Alexander <[log in to unmask]>
Reply To:
[log in to unmask]
Date:
Wed, 19 May 1999 22:09:18 +0200
Content-Type:
text/plain
Parts/Attachments:
text/plain (39 lines) 
Hi Joseph,

we are using a very simple way to check a non write-protected tape in our
dat:
We are using the writeable flag (line 3 position 21) of the "SHOWDEV ldev"
command.

!SHOWDEV 8 > TMP1
!PRINT TMP1 > TMP2;START=2
!INPUT XTMP < TMP2
!SETVAR XWRITE " "
!CONTINUE
!SETVAR XWRITE,STR(XTMP,21,1)
!IF XWRITE = "W" THEN
!   TELLOP;***************************************************
!   TELLOP;***   Daily backup is starting now              ***
!   TELLOP;***************************************************
!   FILE TP;DEV=8

!   STORE ....

!   TELLOP;*********************************************************
!   TELLOP;***   Daily backup is complete, check the protocol    ***
!   TELLOP;*********************************************************
!ELSE
!   TELLOP;*********************************************************
!   TELLOP;***   ERROR - daily backup was NOT successful         ***
!   TELLOP;***   TAPE ???                                        ***
!   TELLOP;*********************************************************
!ENDIF

Ralph Alexander
[log in to unmask]

EGSTON Ges.m.b.H.       Tel.: +43 (2984) 2226-279
Grafenbergerstrasse 37  Fax: +43 (2984) 2226-204
A-3730 Eggenburg        www.egston.com
Austria

ATOM RSS1 RSS2