Virtual TapeServer 6.03.42 Operations and Administration Guide

114 | Migrating Data to Physical Tape
For example, to migrate the virtual tape named CART01 on the VTS1 server and erase the
selected files from VTS, issue the following command:
VTSPolicy NBP '/VAULT01/POOLA/CART01 s=VTS1 ERASE=YES'
FUP utility call
A simple FUP utility call can copy the contents of a text file to the $0 process.
1. Create a text file named TEXT1 on the NonStop server. Add the VTSPolicy command to
the file. Here is an example that uses Tivoli Storage Manager to migrate a virtual tape
named cart1. The virtual tape resides in the VAULT01 vault and the PoolA pool:
VTSPolicy TSM 'archive /VAULT01/PoolA/cart1 s=VTS1 o=/tape/opt1
ERASE=YES'
2. From Batchcom or in an existing backup script, run the following command:
FUP COPY TEXT1, $0
This sends the contents of the TEXT1 file to the EMS collector.
TACL macro in obey script
On the NonStop server, you can 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 the EMS collector to the collector named in the EMS configuration settings of VTS:
#SET collector $0
Specify the event number:
#SET evt_num 1234
Specify how the message will be displayed in an EMS viewer, such as ViewPoint. In this
example, inverse text is used until the event is acknowledged but the event is listed in normal
text:
#SET action -1
#SET emphasis -1
Issue the VTSPolicy command; see Automating migration using VTSPolicy on page 110 for an
explanation of the parameters. TSM is used in this example:
#SET evt_text VTSPolicy TSM “/VAULT01/Pool st=VTS1 r=14,d”
Here is a example of the full script, with the commands inserted:
#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