ADSM-L

Re: HELP! How to read another ADSM 3590 tapes from somewhe

1997-05-01 11:38:21
Subject: Re: HELP! How to read another ADSM 3590 tapes from somewhe
From: "Dwight E. Cook" <decook AT AMOCO DOT COM>
Date: Thu, 1 May 1997 10:38:21 -0500
Item Subject: 1.txt "internet headers"
Could not convert BINARY FILE item to text.
Will attempt to 'shar' item as file '02cfk9j' at end of msg.

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

Item Subject: HELP! How to read another ADSM 3590 tapes from somewhere else
     Are they exported nodes ?   You would import them then...

     If they are just storage pool volumes I would guess that you would
     check them into the library as private and then run an audit volume
     against them.  The results will probably be odd since the nodes are
     not on your current system... I'm not sure what measures exist inside
     adsm to cover such cases (this is why there is import/export node...)

     Good luck,
     later
         Dwight



______________________________ Reply Separator _________________________________
Subject: HELP! How to read another ADSM 3590 tapes from somewhere e
Author:  ADSM-L (ADSM-L AT VM.MARIST DOT EDU) at unix,sh
Date:    5/1/97 10:57 AM


Hi all,
        We have some ADSM 3590 tapes from others and would like to
read them. Provide that we know the names of the files on the tapes,
how do we read these files that are not registered in our ADSM database
yet. HELP.
Thanks. PC.


# 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 Thu May  1 10:38:29 1997
#
# This archive contains:
#       02cfk9j
#
# 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 - 02cfk9j '[non-ascii]'
$unpacker <<'@eof'
begin 660 02cfk9j
M4F5C96EV960Z(&9R;VT@8V]R<&UX,#(@*&-O<G!M># R+FAO=2YA;6]C;RYCX
M;VTI(&)Y('1U;&5O<VTQ('=I=&@@15--5% -"@DH,2XS-RXQ,#DN,C O,38NX
M,BD@:60@04$Q,#DS-C4T,3@[(%1H=2P@,2!-87D@,3DY-R P.3HP,SHS." MX
M,#4P, T*4F5C96EV960Z(&9R;VT@:&]S;3$R,F$@8GD@8V]R<&UX,#(@*%--X
M22TX+C8O4TU)+30N,"D-"@EI9"!)04$Q-S$X-#L@5&AU+" Q($UA>2 Q.3DWX
M(# X.C4T.C S("TP-3 P#0I296-E:79E9#H@9G)O;2!I;G1E<FQO8VLN86UOX
M8V\N8V]M(&)Y(&AO<VTQ,C)A("A334DM."XV+U--22U35E(T*0T*"6ED($I!X
M03 Q-3,U.R!4:'4L(#$@36%Y(#$Y.3<@,#DZ,#<Z,C4@+3 U,# -"E)E8V5IX
M=F5D.B!F<F]M('9M+FUA<FES="YE9'4@8GD@<&]R=&%L+F%M;V-O+F-O;2!WX
M:71H(%--5% @:60@04$R-38Q,0T*(" H26YT97),;V-K(%--5% @1V%T97=AX
M>2 S+C I.R!4:'4L(#$@36%Y(#$Y.3<@,#DZ,#,Z,3(@+3 U,# -"E)E8V5IX
M=F5D.B!F<F]M(%9-+DU!4DE35"Y%1%4@8GD@5DTN34%225-4+D5$52 H24)-X
M(%9-(%--5% @5C)2,RD-"B @('=I=&@@0E--5% @:60@-C P,#L@5&AU+" PX
M,[email protected]<@,#DZ-3<Z-3 @1414#0I296-E:79E9#H@9G)O;2!632Y-05))X
M4U0N1415("A.2D4@;W)I9VEN($Q)4U1315)60$U!4DE35"D@8GD@5DTN34%2X
M25-4+D5$52 H3$UA:6P@5C$N,F(O,2XX8BD@=VET:"!"4TU44"!I9" U-C8TX
M.R!4:'4L(#$@36%Y(#$Y.3<@,#DZ-3<Z-#D@+3 T,# -"E)E8V5I=F5D.B!FX
M<F]M(%9-+DU!4DE35"Y%1%4@8GD@5DTN34%225-4+D5$52 H3$E35%-%4E8@X
M<F5L96%S92 Q+CAC*2!W:71H($Y*10T*(" @(" @(" @(&ED(#4S,#8@9F]RX
M($%$4TTM3$!632Y-05))4U0N1415.R!4:'4L(#$@36%Y(#$Y.3<@,#DZ-3<ZX
M-#8@+3 T,# -"E)E8V5I=F5D.B!F<F]M($U!4DE35" H3DI%(&]R:6=I;B!3X
M35100$U!4DE35"D@8GD@5DTN34%225-4+D5$52 H3$UA:6P-"B @(" @(" @X
M("!6,2XR8B\Q+CAB*2!W:71H($)33510(&ED(#4V-30[(%1H=2P@,2!-87D@X
M,3DY-R P.3HU-SHT-B M,#0P, T*4F5C96EV960Z(&9R;VT@:G5P:71E<B!BX
M>2!632Y-05))4U0N1415("A)0DT@5DT@4TU44"!6,E(S*2!W:71H(%1#4#L@X
M5&AU+" P,0T*(" @(" @(" @($UA>2 Y-R P.3HU-SHT-2!%1%0-"E)E8V5IX
M=F5D.B!F<F]M('-U;B H<W5N+FAS=&XN9V5O8F%N:RYP9W,N8V]M(%LQ-3<NX
M,30W+C$Y+C$Q72D@8GD@:G5P:71E<E]E;C -"B @(" @(" @(" H."XW+C,OX
M."XW+C,I('=I=&@@4TU44"!I9"!)04$T.3(S-B!F;W(@/$%$4TTM3$!632Y-X
M05))4U0N1415/CL@5&AU+ T*(" @(" @(" @(#$@36%Y(#$Y.3<@,#@Z-#4ZX
M,#D@+3 U,# -"E)E8V5I=F5D.B!B>2!S=6X@=VET:"!-:6-R;W-O9G0@36%IX
M;"!I9" \,#%"0S4V,$0N035&1D-%-C! <W5N/CL@5&AU+" Q($UA>0T*(" @X
M(" @(" @(#$Y.3<@,#@Z-3<Z,#<@+3 W,# -"DUE<W-A9V4M260Z(" \,#%"X
M0S4V,$0N035&1D-%-C! <W5N/@T*1&%T93H@(" @(" @("!4:'4L(#$@36%YX
M(#$Y.3<@,#@Z-3<Z,#8@+3 W,# -"E)E<&QY+51O.B B041333H@1&ES="!3X
M=&]R($UA;F%G97(B(#Q!1%--+4Q 5DTN34%225-4+D5$53X-"E-E;F1E<CH@X
M(D%$4TTZ($1I<W0@4W1O<B!-86YA9V5R(B \041332U,0%9-+DU!4DE35"Y%X
M1%4^#0I&<F]M.B B2'5N9R H4&%U;"D@0V%O(B \<&%U;&- 2%-43BY'14]"X
M04Y++E!'4RY#3TT^#0I3=6)J96-T.B @(" @($A%3% A($AO=R!T;R!R96%DX
M(&%N;W1H97(@041332 S-3DP('1A<&5S(&9R;VT@<V]M97=H97)E(&5L<V4-X
;"E1O.B!!1%--+4Q 5DTN34%225-4+D5$50T*                        X
                                                             X
end
@eof
set `wc -lwc <02cfk9j`
if test $1$2$3 != 292341827
then
        echo ERROR: wc results of 02cfk9j are $* should be 29 234 1827
fi

chmod 660 02cfk9j

rm -f /tmp/unpack$$
exit 0
<Prev in Thread] Current Thread [Next in Thread>
  • Re: HELP! How to read another ADSM 3590 tapes from somewhe, Dwight E. Cook <=