Dan,

Here's our perl script.. Easy as perl is most likely to be installed on your
*IX.
Not that this script is not 100% fool proof, but at that time it was a 10
min effort
and still works like a charm. And as is with any other perl pgm, there are
more ways...
This script now in the public domain...
Fill in your own OPERATORID and PASSWD....

#!/usr/bin/perl
#replies to checkin script

system("tput clear");
print "About to checkin scratch tapes, please wait ... \n";
sleep 3;
print "\n";
open(libraries, 'dsmadmc -commadelimited -id=OPERATORID -pass=PASSWD q libr
| grep SCSI |');

while (<libraries>) {
$l=$_; chomp($l);
  @record=split(/,/, $l);
  $libname=$record[0];
}

close libraries;

system("dsmadmc -id=OPERATORID -pass=PASSWD checkin libv $libname
search=bulk status=scratch >> /dev/null");
sleep 3;
print "\n";
open(libraries, 'dsmadmc -consolemode -commadelimited -id=OPERATORID
-pass=PASSWD |');
while (<libraries>) {
  $l=$_; chomp($l);
  @actlog=split(/ /, $l);
  if (($actlog[0] eq "ANR8373I") and ($actlog[9] eq "$libname")) {
    $replyid=$actlog[1];
    $replyid=~tr/://d;
    system("dsmadmc -id=OPERATORID -pass=PASSWD reply $replyid >
/dev/null");
  }
  if (($actlog[0] eq "ANR0987I") or ($actlog[0] eq "ANR0985I")) {
    print "$l\n";
    exit;
  }
}

---
Marcel Anthonijsz

marcel.anthonijsz!at!shell.com