ADSM-L

Re: ADSM - Extending DataBase Volume space????

1997-11-18 09:16:14
Subject: Re: ADSM - Extending DataBase Volume space????
From: "Dwight E. Cook" <decook AT AMOCO DOT COM>
Date: Tue, 18 Nov 1997 08:16:14 -0600
Item Subject: 1.txt "internet headers"
Could not convert BINARY FILE item to text.
Will attempt to 'shar' item as file '03ghs13' at end of msg.

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

Item Subject: ADSM - Extending DataBase Volume space????
     OK, do you want to replace the current volumes or add these as
     additional space ?
     IS this MVS ?
     anyway, run the dsm format program to create the data base files.
     (sample code should be in the smp/e distributed stuff under mvs)
     then :
     (I would use them to mirror the existing db files and use :
        define dbcopy adsm.db1 adsm.db3
        define dbcopy adsm.db2 adsm.db4
     )
     OTHERWISE, to get them known to ADSM use :
        define dbvol adsm.db3
        define dbvol adsm.db4
     NOW the space is there but not used by adsm YET !
     if this is a REPLACEMENT you would now just issue deletes against the
     existing files...
        delete dbvol adsm.db1
        delete dbvol adsm.db2
     if this is a ADDITION to the existing db files do a "query db" to see
     what your maximum extension value is and use it in the :
        extend db ####
     the extend db command is how you get adsm to go ahead and use the new
     space...
     later
         Dwight


______________________________ Reply Separator _________________________________
Subject: ADSM - Extending DataBase Volume space????
Author:  ADSM-L (ADSM-L AT VM.MARIST DOT EDU) at unix,sh
Date:    11/17/97 9:51 AM


Hello Fellow ADSM'ers

I have a question about adding space to my database volumes.

My System Programmer has allocated 2 new volumes of 800mg each on 3390 RAMAC/2
drives just like my current volumes ADSM.DB1 & ADSM.DB2.

How do I go about adding more space to my DBVOL??

********************************************************************************
Do I define a new and larger volume (2.4GB) and then copy the DBVOL's to the new
voulmes. Or do I extend my existing volumes to the new volumes..??
********************************************************************************

Here are some current query's from my system.
adsm> q db

Available Assigned   Maximum   Maximum    Page     Total      Used %Util  Max.
    Space Capacity Extension Reduction    Size    Usable     Pages       %Util
     (MB)     (MB)      (MB)      (MB) (bytes)     Pages
--------- -------- --------- --------- ------- --------- --------- ----- -----
    1,600    1,600         0       404   4,096   409,600   305,786  74.7  74.7
    1,600    1,600         0       404   4,096   409,600   305,786  74.7  74.7

adsm> q dbvol

Volume Name       Copy    Volume Name       Copy    Volume Name       Copy
(Copy 1)          Status  (Copy 2)          Status  (Copy 3)          Status
----------------  ------  ----------------  ------  ----------------  ------
ADSM.DB2          Sync'd                    Undef-                    Undef-
ADSM.DB2          Sync'd                    Undef-                    Undef-
                                             ined                      ined
ADSM.DB1          Sync'd                    Undef-                    Undef-
                                             ined                      ined


Any help would be great..

Thank You

Lee Fosbrink
Pittsburgh Mercy Health System
lfosbrink AT mercy.pmhs DOT org


# 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 Tue Nov 18 08:16:35 1997
#
# This archive contains:
#       03ghs13
#
# 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 - 03ghs13 '[non-ascii]'
$unpacker <<'@eof'
begin 660 03ghs13
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$R,S,W-S(T,#D[($UO;BP@,3<@3F]V(#$Y.3<@,3 Z,# Z,#D@X
M+3 V,# -"E)E8V5I=F5D.B!F<F]M('9I<FQM># R(&)Y(&-O<G!M># R("A3X
M34DM."XV+U--22TT+C I#0H):60@2D%!,C,V,C4[($UO;BP@,3<@3F]V(#$YX
M.3<@,#DZ-#8Z-#D@+3 V,# -"E)E8V5I=F5D.B!F<F]M(&EN=&5R;&]C:RYAX
M;6]C;RYC;VT@8GD@=FER;&UX,#(@*%--22TX+C8O4TU)+5-64C0I#0H):60@X
M2D%!,C$W-C8[($UO;BP@,3<@3F]V(#$Y.3<@,#DZ-30Z,C4@+3 V,# -"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$P,3@R-0T*(" H26YT97),;V-K(%--5% @1V%TX
M97=A>2 S+C @9F]R(#QD96-O;VM 04U/0T\N0T]-/BD[#0H@($UO;BP@,3<@X
M3F]V(#$Y.3<@,#DZ-3<Z-30@+3 V,# -"E)E8V5I=F5D.B!F<F]M(%9-+DU!X
M4DE35"Y%1%4@8GD@5DTN34%225-4+D5$52 H24)-(%9-(%--5% @5C)2,RD-X
M"B @('=I=&@@0E--5% @:60@-S<T,CL@36]N+" Q-R!.;[email protected]<@,3 Z-3(ZX
M,3$@15-4#0I296-E:79E9#H@9G)O;2!632Y-05))4U0N1415("A.2D4@;W)IX
M9VEN($Q)4U1315)60$U!4DE35"D@8GD@5DTN34%225-4+D5$52 H3$UA:6P@X
M5C$N,F(O,2XX8BD@=VET:"!"4TU44"!I9" T,3(U.R!-;VXL(#$W($YO=B QX
M.3DW(#$P.C4R.C W("TP-3 P#0I296-E:79E9#H@9G)O;2!632Y-05))4U0NX
M1415(&)Y(%9-+DU!4DE35"Y%1%4@*$Q)4U1315)6(')E;&5A<V4@,2XX8RD@X
M=VET:"!.2D4-"B @(" @(" @("!I9" R-3(T(&9O<B!!1%--+4Q 5DTN34%2X
M25-4+D5$53L@36]N+" Q-R!.;W8@,3DY-R Q,#HU,CHP,R M,#4P, T*4F5CX
M96EV960Z(&9R;VT@34%225-4("A.2D4@;W)I9VEN(%--5%! 34%225-4*2!BX
M>2!632Y-05))4U0N1415("A,36%I; T*(" @(" @(" @(%8Q+C)B+S$N.&(IX
M('=I=&@@0E--5% @:60@-#$Q,SL@36]N+" Q-R!.;W8@,3DY-R Q,#HU,CHPX
M,R M,#4P, T*4F5C96EV960Z(&9R;VT@;65R8WDR+G!M:',N;W)G(&)Y(%9-X
M+DU!4DE35"Y%1%4@*$E"32!632!33510(%8R4C,I('=I=&@@5$-0.PT*(" @X
M(" @(" @($UO;BP@,3<@3F]V(#DW(#$P.C4Q.C4S($535 T*4F5C96EV960ZX
M(&9R;VT@;65R8WDN<&UH<RYO<F<@8GD@;65R8WDR+G!M:',N;W)G("A334DMX
M."XV+U--22U35E(T*2!I9 T*(" @(" @(" @($M!03$U.#4X.R!-;VXL(#$WX
M($YO=B Q.3DW(#$P.C4P.C$U("TP-3 P#0I296-E:79E9#H@9G)O;2!C8TUAX
M:6P@8GD@;65R8WDN<&UH<RYO<F<@*%--5%!,24Y+(%8R+C$Q+C Q*2!I9"!!X
[email protected]<Y,[email protected]"B @(" @(" @("!-;VXL(#$W($YO=B Y-R Q,#HU,3HSX
M,"!%4U0-"DUE<W-A9V4M260Z(" \.3<Q,#$W.#<[email protected]<Y,[email protected]!MX
M97)C>2YP;6AS+F]R9SX-"D1A=&4Z(" @(" @(" @36]N+" Q-R!.;W8@,3DYX
M-R Q,#HU,3HS,"!%4U0-"E)E<&QY+51O.B B041333H@1&ES="!3=&]R($UAX
M;F%G97(B(#Q!1%--+4Q 5DTN34%225-4+D5$53X-"E-E;F1E<CH@(D%$4TTZX
M($1I<W0@4W1O<B!-86YA9V5R(B \041332U,0%9-+DU!4DE35"Y%1%4^#0I&X
M<F]M.B!,144@1D]30E))3DL@/&QF;W-B<FEN:T!-15)#62Y034A3+D]21SX-X
M"E-U8FIE8W0Z(" @(" @041332 M($5X=&5N9&EN9R!$871A0F%S92!6;VQUX
H;64@<W!A8V4_/S\_#0I4;SH@041332U,0%9-+DU!4DE35"Y%1%4-"B!6    X
                                                             X
end
@eof
set `wc -lwc <03ghs13`
if test $1$2$3 != 292251795
then
        echo ERROR: wc results of 03ghs13 are $* should be 29 225 1795
fi

chmod 660 03ghs13

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