>How do you verify that a 3590 drive in a 3494 is being cleaned?  Daily we
>see "TAPE SIM/MIM RECORD" and "TAPE DRIVE NEEDS CLEANING" entries in the AIX
>error log.  Someone mentioned on the list a while back that the drive
>cleanings would also be recorded in the AIX log, but we can't find any.
>


Here's what I do, perhaps inelagantly:

open(PIPE,"errpt -a -s $stimekey -e $etimekey -d H -J SIM_MIM_RECORD_3590 |") 
|| die "cant open pipe to errpt.\n";
while ($output=<PIPE>) {
        chop $output;
        if ($output =~ /Date\/Time:\s*(.*)/) {
                $datetime=$1;
                next;
                }
        if ($output =~ /Resource Name:\s*(.*)/) {
                $drive=$1;
                next;
                }
        if ($output =~ /DIAGNOSTIC EXPLANATION/) {
                $diag=1;
                next;
                }
#    we want bytes 20,21 counting from 0.
#    a 55 means needs cleaning, a 57 means was cleaned.

        if ($diag) {
                @words=split(/ /,$output);
                $clean=$words[10];
                $status="needs cleaning" if $clean eq "3535";
                $status="was just cleaned" if $clean eq "3537";
                print "$datetime $drive $status\n" if $opt_d;
                $cnt--;
                $lines{$cnt}="$datetime = $drive = $status\n";
                $diag=0;
                next;
                }
} # while PIPE */
close(PIPE);


Sample errrpt output for a needs cleaning:

Detail Data
DIAGNOSTIC EXPLANATION
3100 0044 0000 6140 0130 3030 3030 3030 3234 3239 3535 3030 3839 3130 3030 3030
4646 3730 3336 3730 3336 3830 3030 4942 4D31 332D 3030 3030 3030 3032 3933 3737
3033 3539 3042 3141


And one for was cleaned:

Detail Data
DIAGNOSTIC EXPLANATION
3100 0044 0000 6140 0130 3030 3030 3030 3234 3239 3537 3030 3941 3030 3030 3030
4646 4335 3539 4335 3539 3830 3030 4942 4D31 332D 3030 3030 3030 3032 3738 3539
3033 3539 3042 3141
--
Richard
Richard