ADSM-L

Re: Two ADSM/6000, one IBM3494

1997-06-23 11:29:58
Subject: Re: Two ADSM/6000, one IBM3494
From: "Dwight E. Cook" <decook AT AMOCO DOT COM>
Date: Mon, 23 Jun 1997 10:29:58 -0500
Item Subject: 1.txt "internet headers"
Could not convert BINARY FILE item to text.
Will attempt to 'shar' item as file '02l6593' at end of msg.

.......................................................................

Item Subject: Two ADSM/6000, one IBM3494
     You will not like my answer but...
     Where we share a 3494 between two rs/6000's running adsm we have just
     dedicated 3590's to each system.  6-3590's set 2 to one system & 4 to
     the other...

     Naturally each business group didn't want to share tape drives thus
     paid their own way but had no problem doing the share thing with the
     3494.  The 'ol we can wait 30 seconds on a mount but we can't wait 1+
     hour(s) for the availability of a drive.

     We really do have a lot of idle time (outside diskpool migration) but
     when they are doing recoveries on either system or both, all tape
     drives are in use ALL the time.  I myself wouldn't want to be in the
     middle of what would be going on if the two systems shared tape
     drives.


______________________________ Reply Separator _________________________________
Subject: Two ADSM/6000, one IBM3494
Author:  ADSM-L (ADSM-L AT VM.MARIST DOT EDU) at unix,sh
Date:    6/23/97 10:52 AM


Hi there !
We have installed two ADSM/6000 on two different maschines. Both machines have
installed library controller for the same IBM 3494 with four drives IBM 3590.
We want to share the tapeload on the two ADSM server dynamically.
Do we need extra software (NetTAPE) to control the reserves of the tapedrives
and for dynamic sharing of the tapeload ?
Does anybody else has experiences sharing one library between more than one ADSM
on more than one physical machine ?

Udo Wanders
Bayer AG, Leverkusen

UDO.WANDERS.UW AT bayer-ag DOT de


# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
#
# Wrapped by Openmail for HP9000 <openmail@tuleosm1> on Mon Jun 23 10:30:40 1997
#
# This archive contains:
#       02l6593
#
# Error checking via wc(1) will be performed.

LANG=""; export LANG
PATH=/bin:/usr/bin:$PATH; export PATH


rm -f /tmp/uud$$
(echo "begin 666 /tmp/uud$$\n#;VL*n#6%@x\n \nend" | uudecode) >/dev/null 2>&1
if [ X"`cat /tmp/uud$$ 2>&1`" = Xok ]
then
        unpacker=uudecode
else
        echo Compiling unpacker for non-ascii files
        pwd=`pwd`; cd /tmp
        cat >unpack$$.c <<'EOF'
#include <stdio.h>
#define C (*p++ - ' ' & 077)
main()
{
        int n;
        char buf[128], *p, a,b;

        scanf("begin %o ", &n);
        gets(buf);

        if (freopen(buf, "w", stdout) == NULL) {
                perror(buf);
                exit(1);
        }

        while (gets(p=buf) && (n=C)) {
                while (n>0) {
                        a = C;
                        if (n-- > 0) putchar(a << 2 | (b=C) >> 4);
                        if (n-- > 0) putchar(b << 4 | (a=C) >> 2);
                        if (n-- > 0) putchar(a << 6 | C);
                }
        }
        exit(0);
}
EOF
        cc -o unpack$$ unpack$$.c
        rm unpack$$.c
        cd $pwd
        unpacker=/tmp/unpack$$
fi
rm -f /tmp/uud$$

echo x - 02l6593 '[non-ascii]'
$unpacker <<'@eof'
begin 660 02l6593
M4F5C96EV960Z(&9R;VT@8V]R<&UX,#$@*&-O<G!M># Q+G1D8RYA;6]C;RYCX
M;VTI(&)Y('1U;&5O<VTQ('=I=&@@15--5% -"@DH,2XS-RXQ,#DN,C O,38NX
M,BD@:60@04$R-3$V-C@Y,3<[($UO;BP@,C,@2G5N(#$Y.3<@,3 Z,34Z,3<@X
M+3 U,# -"E)E8V5I=F5D.B!F<F]M(&AO<VTQ,C)A(&)Y(&-O<G!M># Q("A3X
M34DM."XV+U--22TT+C I#0H):60@2T%!,C$Q,C$[($UO;BP@,C,@2G5N(#$YX
M.3<@,3 Z,#4Z,C@@+3 U,# -"E)E8V5I=F5D.B!F<F]M(&EN=&5R;&]C:RYAX
M;6]C;RYC;VT@8GD@:&]S;3$R,F$@*%--22TX+C8O4TU)+5-64C0I#0H):60@X
M2T%!,#8P.3([($UO;BP@,C,@2G5N(#$Y.3<@,3 Z,3@Z-#0@+3 U,# -"E)EX
M8V5I=F5D.B!F<F]M('9M+FUA<FES="YE9'4@8GD@<&]R=&%L+F%M;V-O+F-OX
M;2!W:71H(%--5% @:60@04$R-S@W-PT*(" H26YT97),;V-K(%--5% @1V%TX
M97=A>2 S+C I.R!-;VXL(#(S($IU;B Q.3DW(#$P.C$T.C(T("TP-3 P#0I2X
M96-E:79E9#H@9G)O;2!632Y-05))4U0N1415(&)Y(%9-+DU!4DE35"Y%1%4@X
M*$E"32!632!33510(%8R4C,I#0H@("!W:71H($)33510(&ED(#,R-3@[($UOX
M;BP@,C,@2G5N(#DW(#$Q.C$P.C0P($5$5 T*4F5C96EV960Z(&9R;VT@5DTNX
M34%225-4+D5$52 H3DI%(&]R:6=I;B!,25-44T525D!-05))4U0I(&)Y(%9-X
M+DU!4DE35"Y%1%4@*$Q-86EL(%8Q+C)B+S$N.&(I('=I=&@@0E--5% @:60@X
M-#8W,SL@36]N+" R,R!*=6X@,3DY-R Q,3HQ,#HS.2 M,#0P, T*4F5C96EVX
M960Z(&9R;VT@5DTN34%225-4+D5$52!B>2!632Y-05))4U0N1415("A,25-4X
M4T525B!R96QE87-E(#$N.&,I('=I=&@@3DI%#0H@(" @(" @(" @:60@,C@SX
M-2!F;W(@041332U,0%9-+DU!4DE35"Y%1%4[($UO;BP@,C,@2G5N(#$Y.3<@X
M,3$Z,3 Z,S8@+3 T,# -"E)E8V5I=F5D.B!F<F]M($U!4DE35" H3DI%(&]RX
M:6=I;B!335100$U!4DE35"D@8GD@5DTN34%225-4+D5$52 H3$UA:6P-"B @X
M(" @(" @("!6,2XR8B\Q+CAB*2!W:71H($)33510(&ED(#0Q.#([($UO;BP@X
M,C,@2G5N(#$Y.3<@,3 Z-34Z,S4@+3 T,# -"E)E8V5I=F5D.B!F<F]M(&)AX
M>65R,BYB87EE<BUA9RYD92!B>2!632Y-05))4U0N1415("A)0DT@5DT@4TU4X
M4"!6,E(S*2!W:71H(%1#4#L-"B @(" @(" @("!-;VXL(#(S($IU;B Y-R QX
M,#HU-3HS,B!%1%0-"E)E8V5I=F5D.B!B>2!B87EE<C(N8F%Y97(M86<N9&4@X
M:60@04$Q-S8U-2 H4TU44"!'871E=V%Y(#,N,"!F;W(-"B @(" @(" @("!!X
M1%--+4Q =FTN;6%R:7-T+F5D=2D[($UO;BP@,C,@2G5N(#$Y.3<@,38Z-30ZX
M,34@*S R,# -"E)E8V5I=F5D.B!B>2!B87EE<C(N8F%Y97(M86<N9&4@*$ENX
M=&5R;F%L($UA:6P@06=E;G0M,2D[($UO;BP@,C,@2G5N(#$Y.3<-"B @(" @X
M(" @(" Q-CHU-#HQ-2 K,#(P, T*6#0P,"U/<FEG:6YA=&]R.B!51$\N5T%.X
M1$524RY55T!B87EE<BUA9RYD90T*6#0P,"U296-I<&EE;G1S.B!!1%--+4Q X
M5DTN34%225-4+D5$50T*6#0P,"U-=',M261E;G1I9FEE<CH@6R]04DU$/4)!X
M6452+T%$340]1$)0+T,]1$4O.S P,#8X,# P,#(R.3(T-S8P,# P,#)=#0I8X
M-# P+4-O;G1E;G0M5'EP93H@4#(M,3DX." H,C(I#0I-97-S86=E+4ED.B @X
M/# P,#8X,# P,#(R.3(T-S8P,# P,#(J0$U(4SX-"D1A=&4Z(" @(" @(" @X
M36]N+" R,R!*=6X@,3DY-R Q-CHU,CHU,B K,#$P, T*4F5P;'DM5&\Z(")!X
M1%--.B!$:7-T(%-T;W(@36%N86=E<B(@/$%$4TTM3$!632Y-05))4U0N1415X
M/@T*4V5N9&5R.B B041333H@1&ES="!3=&]R($UA;F%G97(B(#Q!1%--+4Q X
M5DTN34%225-4+D5$53X-"D9R;VTZ(%5D;R!786YD97)S(#Q51$\N5T%.1$52X
M4RY55T!"05E%4BU!1RY$13X-"E-U8FIE8W0Z(" @(" @5'=O($%$4TTO-C PX
J,"P@;VYE($E"33,T.30-"E1O.B!!1%--+4Q 5DTN34%225-4+D5$50T*    X
                                                             X
end
@eof
set `wc -lwc <02l6593`
if test $1$2$3 != 322291932
then
        echo ERROR: wc results of 02l6593 are $* should be 32 229 1932
fi

chmod 660 02l6593

rm -f /tmp/unpack$$
exit 0
<Prev in Thread] Current Thread [Next in Thread>