HP3000-L Archives

February 2018, Week 4

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:
Re: Tape Drive Availability via Jobstream
From:
Dan Barnes <[log in to unmask]>
Reply To:
Dan Barnes <[log in to unmask]>
Date:
Thu, 22 Feb 2018 15:01:41 +0000
Content-Type:
text/plain
Parts/Attachments:
text/plain (1 lines) 
We use the following job for this task:





!JOB SPCLTPCK,MANAGER.SYS;OUTCLASS=LP,1

!COMMENT APPLICATION = TAPEDRIVE_MPE

!

!COMMENT **************************************************************

!COMMENT * This job is used in partnership with the FULLSTOR job to   *

!COMMENT * insure that tape drives needed by that backup job have     *

!COMMENT * tapes loaded, or alert us that they do not.                *

!COMMENT * no other job or session is accessing the drives.           *

!COMMENT **************************************************************

!

!COMMENT

!COMMENT            LDEV 15:  Special backup tape #1

!COMMENT            LDEV 16:  Special backup tape #2

!COMMENT

!

!NEXTJOBSTEP SPCLTPCK, 1

!

!SHOWDEV TAPE

!

!SETVAR tapes_not_ready 0

!

!

!SHOWDEV TAPE15 >$NEWPASS

!PRINT $OLDPASS;START=2 >$NEWPASS

!

!RUN QEDIT.PUB.ROBELLE;PARM=128;INFO="LIST $OLDPASS 'AVAIL    (W)'"

!IF QEDITCOUNT = 0 THEN

!  TELLOP  !HPSYSNAME NO TAPE READY ON LDEV 15

!  SETVAR tapes_not_ready tapes_not_ready + 1

!ELSE

!  TELLOP  !HPSYSNAME TAPE READY FOR WRITING ON LDEV 15

!ENDIF

!

!SHOWDEV TAPE16 >$NEWPASS

!PRINT $OLDPASS;START=2 >$NEWPASS

!

!RUN QEDIT.PUB.ROBELLE;PARM=128;INFO="LIST $OLDPASS 'AVAIL    (W)'"

!IF QEDITCOUNT = 0 THEN

!  TELLOP  !HPSYSNAME NO TAPE READY ON LDEV 16

!  SETVAR tapes_not_ready tapes_not_ready + 1

!ELSE

!  TELLOP  !HPSYSNAME TAPE READY FOR WRITING ON LDEV 16

!ENDIF

!

!

!IF tapes_not_ready = 0 THEN

!  NEXTJOBSTEP SPCLTPCK, 0

!ELSE

!  IF str("!HPSYSNAME",1,6) = "HP1609"

!    tellvcc.scripts.itxxrmi &

!    "EXCPTLST ALERT: App=TAPEDRIVE_MPE Job TAPECHK, MANAGER.SYS &

!    has errors at !hptimef on !hpdatef"  critical

!  ELSE

!    TELLOP !HPSYSNAME A TOTAL OF !tapes_not_ready TAPE(S) NOT READY

!  ENDIF

!  SETJCW JCW = FATAL

!ENDIF

!

!EOJ



Dan Barnes

Sr. Systems Engineer

Phone:   763.390.8320

Fax:         763.425.5483

Cell:        612.240.2136

Email:      [log in to unmask]





Visit us at:    



-----Original Message-----

From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of John Sommer

Sent: Thursday, February 22, 2018 7:28 AM

To: [log in to unmask]

Subject: [HP3000-L] Tape Drive Availability via Jobstream



All,





Is there a way to have a HP3000 jobstream check to see if a tape drive (LDEV) is available?

I am not seeing a HP system variable that seems to list the status.

I can see via a SHOWDEV that the device is available or not.

I just need a jobstream to be able to do the same.





Thoughts?





Thanks,

John













* 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