CHKDAT.CMDFILE.SYS

PARM NUMDAT=0,DEV1=0,DEV2=0,DEV3=0,DEV4=0,DEV5=0,DEV6=0,DEV7=0,DEV8=0
parm dev9=0,dev10=0,dev11=0,dev12=0,dev13=0,dev14=0,dev15=0,dev16=0
PARM RETRY=10,TIME=60 ,P1=0
COMMENT
comment          modified  for 2.2 > 4.0   1 mar 94  RDL
comment          modified  Added (W) check 3 jan 97  RDL
comment
COMMENT &1 CHKDAT - will check 1 to 8 ldevs for tape mounted and READY.
if !numdat = 0 or !numdat > 16 then
echo
echo CHKDAT - will check 1 to 16 ldevs for tape mounted and READY.
echo
echo     NUMDAT = number of tapes to check
echo     DEV1   = ldev of tape 1
echo     DEV2   = ldev of tape 2
echo     DEV3   = ldev of tape 3
echo     DEV4   = ldev of tape 4
echo     DEV5   = ldev of tape 5
echo     DEV6   = ldev of tape 6
echo     DEV7   = ldev of tape 7
echo     DEV8   = ldev of tape 8
echo     DEV9   = ldev of tape 9
echo     DEV10  = ldev of tape 10
echo     DEV11  = ldev of tape 11
echo     DEV12  = ldev of tape 12
echo     DEV13  = ldev of tape 13
echo     DEV14  = ldev of tape 14
echo     DEV15  = ldev of tape 15
echo     DEV16  = ldev of tape 16
echo     RETRY  = numbers of times to retry      !retry
echo     TIME   = time in seconds to pause before retry  !time
echo
echo     This cmdfile will set the vars TAPE###. ### is the
echo     same numbers as your ldevs. 0 = ready, 1 = not ready.
echo     For MPE-XL 2.1 or !>
escape
COMMENT   R. LEGAULT  206-773-5956
endif
comment 123456789012345678901234567890123456789012345678901234567890
comment LDEV  AVAIL         OWNERSHIP         VOLID         DEN
comment
comment   7   AVAIL
comment  16     AVAIL    (W)                    (Nolabel)     1600
COMMENT   9   AVAIL                           (Nolabel)     6250
comment  30   UNAVAIL       #J98: 1 FILES     (Nolabel)     1600
comment  30   AVAIL                           (Nolabel)     1600
showtime
continue
IF !NUMDAT > 0  THEN
SETVAR CKNUM 1
WHILE !NUMDAT >= !CKNUM
 setvar dev "!" + "dev![cknum]"
echo !dev
if !cknum = 1
continue
purge chkdatcm.data.sys
build chkdatcm.data.sys;rec=40,1,f,ascii;disc=5
release chkdatcm.data.sys
file out=chkdatcm.data.sys,old;acc=out
errclear
echo setvar devused !dev
echo setvar devused !dev   >> *out
reset out
print chkdatcm.data
listf chkdatcm.data.sys,2
endif
 IF !DEV > 0 THEN
   PURGE CKTEMP,TEMP
   SETJCW CIERROR 0
   setvar tape!dev 1
   CONTINUE
   SHOWDEV !dev > CKTEMP
   IF CIERROR <> 0 THEN
    setvar tape!dev 1
    ECHO INVAILD LDEV !["DEV!CKNUM"]
   ELSE
    RUN CI.PUB.SYS;PARM=3;INFO="CHKDAT -1  ";STDLIST=$NULL;STDIN=CKTEMP
    ECHO !CKIN
    setvar ckin ups("!ckin")
    setvar chkxxx false
    if pos("UNAVAIL","!ckin")   = 0 then
    if pos("(","!ckin")         > 0 then
    if ((pos("1600","!ckin")> 0  or pos("6250","!ckin")>0 ) and
pos("(W)","!ckin
")>0 )
      setvar  chkxxx true
    endif
    endif
    endif
    if !chkxxx then
comment tape is in a ready state
     echo                           !dev is ONLINE and READY.
     showtime
     setvar tape!dev 0
    else
     setvar numtime 1
     while !numtime < !retry
     setvar numtime !numtime + 1
     setvar numop 1
     tellop >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
     while !numop < 7
      tellop LDEV !dev not ready. Please put on line ![chr(7)]
      tellop LDEV !dev may need Write ring Enabled...![chr(7)]?
      setvar numop numop + 1
      endwhile
      echo  LDEV !dev may need Write ring Enabled...![chr(7)]
      echo  LDEV !dev not ready. Please put on line ![chr(7)]
     tellop <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
     pause !time
     showtime
     SETJCW CIERROR 0
     CONTINUE
     SHOWDEV !dev > CKTEMP
     RUN CI.PUB.SYS;PARM=3;INFO="CHKDAT -1  ";STDLIST=$NULL;STDIN=CKTEMP
     ECHO !CKIN
    setvar ckin ups("!ckin")
    setvar chkxxx false
    if pos("UNAVAIL","!ckin")   = 0 then
    if pos("(","!ckin")         > 0 then
    if ((pos("1600","!ckin")> 0  or pos("6250","!ckin")>0 ) and
pos("(W)","!ckin
")>0 )
      setvar  chkxxx true
    endif
    endif
    endif
    if !chkxxx then
comment tape is in a ready state
      setvar numtime !retry + 1
      setvar tape!dev 0
      echo ....................!dev is ONLINE and READY.
      showtime
     else
      setvar tape!dev 1
      endif
     endwhile
    endif
   ENDIF
  ENDIF
 SETVAR CKNUM CKNUM + 1
ENDWHILE
deletevar cknum,dev
showvar tape@
ELSE
COMMENT CI TO READ FILE
INPUT CKIN
INPUT CKIN
INPUT CKIN
ENDIF
****************************************
 TESTDEV.CMDFILE.SYS

PARM IDV=7
OPTION NOLIST
comment          Will check a dat/tape drive for activity.(unavail)
comment          modified  for 2.2 > 4.0   4 feb 93  RDL
comment          modified  for chkdat dev 1 used 20dec96
comment
continue
setvar idev "!idv"
if finfo("chkdatcm.data.sys",0) and finfo("chkdatcm.data.sys",19) = 1
then
continue
chkdatcm.data.sys
continue
setvar idev !devused
endif
echo Ldev Used = !idev .
SETVAR HPAUTOCONT TRUE
SETVAR MAC_BOOL TRUE
SETVAR MAC_DFILE,"D"+"!HPMINUTE"+"!HPCPUSECS"
FILE !MAC_DFILE,NEW;TEMP;REC=-80,,F,ASCII
SHOWTIME
WHILE !MAC_BOOL DO
   SHOWDEV !IDEV > !MAC_DFILE
   FILE !MAC_DFILE,OLDTEMP
   PRINT *!MAC_DFILE;START=2 > DS284903
   INPUT MAC_TEST_VAR < DS284903
   IF pos("UNAVAIL","!MAC_TEST_VAR") > 0 THEN
      SETVAR !MAC_BOOL FALSE
   ELSE
      PAUSE 30
   ENDIF
ENDWHILE
PURGE !MAC_DFILE,TEMP
SHOWTIME
PURGE DS284903,TEMP
RESET !MAC_DFILE
DELETEVAR MAC_@
DELETEVAR TRUE
***********************************