what about this?
TEST FIRST ON NON-PRODUCTION MACHINE!
pls do change tehe email adres options etc....
miİhelle
-----Original Message-----
From: Matt Simpson [mailto:msimpson@;UKY.EDU]
Sent: Friday, October 25, 2002 3:10 PM
To: [EMAIL PROTECTED]
Subject: Re: drm operator scripts
At 6:57 AM +0200 10/25/02, Burak Demircan wrote:
>Do you have some small scripts for operator to take tapes in and out
easily?
>Please sen me directly if you have them.
I would also be interested in seeing any such scripts, and I'll bet a
bunch of other people would, too. Anybody who has scripts to share,
please either send them to me also, or post them to the list. Thanks.
Getting tapes out seems fairly easy. Getting them back in is a
little bit trickier. Some of the issues that concern me:
Before I can check a tape back in, (I think) I have to change its
status to ONSITERETRIEVE. This effectively deletes the tape from the
database. It looks like it would be easy for things to fall through
the cracks here; if I automate the process of setting tapes to
ONSITERETRIEVE, and then for some reason a tape doesn't get checked
back in, it logically disappears. I'd prefer to see it remain
visible in some kind of limbo status that would attract attention.
Checking tapes in requires System or Unrestricted Storage authority.
That seems like a pretty high level of authority to give to an
operator whose job is mainly to shuffle tapes.
(I asked our local IBM TSM expert for advice, and he told me to ask
other customers).
--
Matt Simpson -- OS/390 Support
219 McVey Hall -- (859) 257-2900 x300
University Of Kentucky, Lexington, KY 40506
<mailto:msimpson@;uky.edu>
mainframe -- An obsolete device still used by thousands of obsolete
companies serving billions of obsolete customers and making huge obsolete
profits for their obsolete shareholders. And this year's run twice as fast
as last year's.
#!/usr/bin/perl
BEGIN{}
init();
getExportInfo();
preparePrint();
END{}
sub init {
$logDir = "/home/drmvar";
$exportFile = "$logDir/IMPORT";
$exportPrt = "$logDir/importLijst";
$dateTime = localtime();
$countU = 0;
$format = "MAGSTAR MP";
$printer = "miami";
$mailAdress = "cs-tsm\@email.nl info\@email.nl";
}
sub getExportInfo {
$recNo = 0;
open(EXPORT,"< $exportFile");
while(<EXPORT>){
($volSer[$recNo], $state[$recNo], $date[$recNo], $time[$recNo], $lib[$recNo])
= split();
if("chomp($volSer[$recNo])" eq " " || "$volSer[$recNo]" eq "Volume" ||
"$volSer[$recNo]" eq "Date/Time" || "$volSer[$recNo]" eq "----------------") {next;}
++$recNo;
}
}
sub preparePrint {
open(CALLTOTAPES,">$exportPrt");
select(CALLTOTAPES);
print "\t\t\t$dateTime\n";
format CALLTOTAPESHEAD=
CARTRIDGES VAN *** NAAR DECENTRAAL ***
VAN: *** - KLUIS DECENTRAAL
NAAR: *** - DECENTRAAL
OBS VOLSER FORMAT DSN
---------------------------------------------------------------------
.
format CALLTOTAPES=
@<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<@<<<<<<<<<<<<<<<<<<<<
$countU, $dsnNo, $format, $dsnNo, $ddd
.
$~ = CALLTOTAPESHEAD;
write;
$~ = CALLTOTAPES;
$ddd= ".OHRA.tsm";
while ($countU <= $#volSer)
{
$dsnNo = $volSer[$countU];
write;
++$countU;
}
close(CALLTOTAPES);
select(STDOUT);
system("mail -s 'Tapes to be moved in to the library lib01' $mailAdress <
$exportPrt");
system("lpr -P $printer $exportPrt");
system("rm $exportFile");
}
#!/usr/bin/perl
BEGIN{}
init();
getExportInfo();
preparePrint();
END{}
sub init {
$logDir = "/home/drmvar";
$exportFile = "$logDir/EXPORT";
$exportPrt = "$logDir/exportLijst";
$dateTime = localtime();
$countU = 0;
$format = "MAGSTAR MP";
$printer = "miami";
$mailAdress = "cs-tsm\@email.nl adres\@email.nl";
}
sub getExportInfo {
$recNo = 0;
open(EXPORT,"< $exportFile");
while(<EXPORT>){
($volSer[$recNo], $state[$recNo], $date[$recNo], $time[$recNo], $lib[$recNo])
= split();
if("chomp($volSer[$recNo])" eq " " || "$volSer[$recNo]" eq "Volume" ||
"$volSer[$recNo]" eq "Date/Time" || "$volSer[$recNo]" eq "----------------") {next;}
++$recNo;
}
}
sub preparePrint {
open(CALLTOTAPES,">$exportPrt");
select(CALLTOTAPES);
print "\t\t\t$dateTime\n";
format CALLTOTAPESHEAD=
CARTRIDGES VAN DECENTRAAL *** NAAR ***
VAN: *** - DECENTRAAL
NAAR: *** - KLUIS
OBS VOLSER FORMAT DSN
---------------------------------------------------------------------
.
format CALLTOTAPES=
@<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<@<<<<<@<<<<<<<<<<<<<<<<<<<<
$countU, $dsnNo, $format, $dsnNo, $ddd
.
$~ = CALLTOTAPESHEAD;
write;
$~ = CALLTOTAPES;
$ddd= ".OHRA.tsm";
while ($countU <= $#volSer)
{
$dsnNo = $volSer[$countU];
write;
++$countU;
}
close(CALLTOTAPES);
select(STDOUT);
system("mail -s 'Tapes to be moved out of library lib01' $mailAdress <
$exportPrt");
system("lpr -P $printer $exportPrt");
system("rm $exportFile");
}
