Interesting.  Thanks for the tip.  I don't have perl on my 3466 but I did
an IEI-Eyeball of the byte 20 (6 back from the right! :-) and found pairs
of 3537 / 3535  with :
                 RECOVERY LOGIC INITIATED BY DEVICE
in between.

I'm guessing the : RECOVERY LOGIC INITIATED BY DEVICE triggered the tape
cleaning.  Maybe?

I am currently at the very latest microcode due to more serious hits in
errpt and tape being put in ReadOnly mode because the 3590 drives were
telling ADSM the tapes were had too many hits on them.  I recycled and
am now re using the tapes and that has since stopped.
                        . .. joe.f.

Joseph A Faracchio,  Systems Programmer, UC Berkeley


On Thu, 30 Mar 2000, Richard Cowen wrote:

> >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
>