Virtual TapeServer 8.4 Configuration Guide

126 | Virtual TapeServer Configuration Guide
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]
#PUSH evt_num action emphasis evt_text text_len
#SET evt_num number
#SET action -1
#SET emphasis -1
#SET evt_text VTSPolicy Erase|Delete - virt_tape... [s=hostname]
#SET text_len
#SET evt_error [#EMSINIT evt_buf [ZEMS^VAL^EXTERNAL^SSID] [evt_num]