HP NonStop G-Series - Manual (Page 125)

Using the MSMM Utility Interface Program
(INTFACE)
Mid-Range Silo Media Manager Installation and User’s Guide — 541530-001
7 -7
REPORT Function
== Loop through tape library Inventory, comparing VOLSER to MEDIACOM info and
set
== tapevolume to SCRATCH if in RELEASED state
[#loop |while| not [#emptyv/blank/ tape_list] |do|
#extractv tape_list tapevol
#set media_in INFO TAPEVOLUME [tapevol],POOL [^pool]
sink [#wait media_in]
==
== Finding the status of the tape cartridge in mediacom from the mediacom output
vfind /quiet, to line/ media_status "[tapevol]"
==
== If LINE variable is not empty, then a tapevolume was found in mediacom
[#if not [#emptyv/blank/ line] |then|
== Doing the real work if tape cartridge is in RELEASED state
[#if [#match [#charget line 39 to 46] RELEASED] |then|
==
#output Setting [tapevol] to status of SCRATCH
#set media_in ALTER TAPEVOLUME [tapevol],STATUS SCRATCH,POOL
[^pool]
sink [#wait media_in]
] == endif
] == endif
#set media_status
#set line
] == endloop
==
== Exit the dynamic mediacom started at the top
#set media_in exit
sink [#wait media_in]
#unframe