DEFINE SCRIPT  QERR DESC="[ADM] Report tape problems etc."
UPDATE SCRIPT  QERR "select -"
UPDATE SCRIPT  QERR " cast(stgpool_name as varchar(12)) ""Stgpool"",-"
UPDATE SCRIPT  QERR " volume_name ""Volume"",-"
UPDATE SCRIPT  QERR " cast(status as varchar(7)) ""Status"",-"
UPDATE SCRIPT  QERR " cast(access as varchar(11)) ""Access"",-"
UPDATE SCRIPT  QERR " cast(read_errors as decimal(6,0)) ""R errors"",-"
UPDATE SCRIPT  QERR " cast(write_errors as decimal(6,0)) ""W errors"" -"
UPDATE SCRIPT  QERR "from volumes -"
UPDATE SCRIPT  QERR "where read_errors>0 or write_errors>0 or (not access='READWRITE') -"
UPDATE SCRIPT  QERR "order by ""Stgpool"""