Virtual TapeServer 8.0 Configuration Guide

90 | Creating and Managing Virtual Media
To delete the virtual tape named GB0002, and to indicate that the vts-prod2 server should
process this policy request, issue this command:
VTSPolicy Delete - GB0002 s=vts-prod2
You can issue a simple FUP call to copy the contents of a text file to the $0 process. Create a
text file on the NonStop server that contains the VTSPolicy command. Then, from Batchcom
or within an existing backup script, run the following command:
FUP COPY filename, $0
This sends the contents of the file to the EMS collector.
Or, you can create a TACL macro to issue the command. On the NonStop server, create an
obey script that includes a TACL macro that communicates with the VTS server through
EMS. In the script file, add the commands specified below. To initiate the script, run the
script using the obey command, add the lines to the end of an existing script, or schedule the
script to run from Batchcom.
#SET collector $0
#SET evt_num number
#SET action -1
#SET emphasis -1
#SET evt_text VTSPolicy Erase|Delete - virt_tape... [s=hostname]
Here is an explanation of the lines:
#SET collector $0
Refers to the EMS collector to which to send the message. Change collector to the
name of the collector in the EMS configuration settings on VTS.
#SET evt_num number
Assigns a number to the event.
#SET action -1
Refers to the way the message is displayed in an EMS viewer, such as ViewPoint. In
this case, it is inverse text until acknowledged.
#SET emphasis -1
Refers to the way the message is displayed in an EMS viewer, such as ViewPoint. In
this case, it is normal text.
#SET evt_text VTSPolicy Erase|Delete - virt_tape... [s=hostname]
Specifies the message to be sent to the EMS collector.
Add these lines to the end of an existing obey script or schedule it from Batchcom.
When the script runs, the following is sent in the EMS message:
#PUSH evt_x evt_error req_error req_read req_prompt
#PUSH action_id collector
#LOAD /LOADED evt_x/ $system.zspidef.zemstacl
#LOAD /LOADED evt_x/ $system.zspidef.zspitacl
#LOAD /LOADED evt_x/ $system.zspidef.ztactacl
#LOAD /LOADED evt_x/ $system.zspidef.ztaptacl
#DEF evt_buf STRUCT BEGIN BYTE b(1:3000); END;
#SET collector $0
#SET action_id 0
#SET evt_error [#REQUESTER /WAIT/ READ [collector] req_error req_read
req_prompt]