Virtual TapeServer 6.04.03 Operations and Administration Guide

Migrating Data to Physical Tape | 113
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 108 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
#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 1234
#SET action -1
#SET emphasis -1
#SET evt_text VTSPolicy TSM 'archive /VAULT01/PoolA s=VTS1 o=/tape/opt1
erase=YES'
#SET text_len
#SET evt_error [#EMSINIT evt_buf [ZEMS^VAL^EXTERNAL^SSID] [evt_num]
ZEMS^TKN^TEXT [#charcount evt_text] [evt_text]]
#SET evt_error [#SSPUT evt_buf ZEMS^TKN^EMPHASIS [ZSPI^VAL^TRUE]]
#SET evt_error [#SSPUT evt_buf ZEMS^TKN^ACTION^NEEDED [ZSPI^VAL^TRUE]]
#APPENDV req_prompt evt_buf