dbutil
show <dbname> capacity
I wrote a script some time ago that took the output from above and compared
it to a string passed at execution time, displaying if it were equal to or
greater.
parm dbchname="HELP" dbchper="60" dbchline="T"
setvar dbchname "!dbchname"
setvar dbchper !dbchper
setvar dbchline ups("!dbchline")
if dbchline="T"
setvar d1 ")B"
setvar d0 ")B"
setvar d2 ":"
setvar d3 "a"
setvar d4 "s"
setvar d5 ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
setvar d6 "Q"
setvar d7 "W"
setvar d8 ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
setvar d9 "r"
setvar d10 "t"
setvar d11 "."
setvar d12 "G"
setvar d13 "f"
endif
setvar cfv "A.02.02"
setvar cfa "Reid E. Baxter"
setvar cfn "Dbcheker"
setvar cfd "DB Capacity Checker"
setvar cfl "!hpfile"
setvar d26 " No. of %Max "
setvar d27 "Data Set Name Type Entries Cap Maximum Current"
setvar d28 "----------------------------------------------------"
if dbchline="T"
setvar d14 '!d1!d11!d0 !cfn Found'
setvar d15 '!d1!d11!d0'
setvar d16 '!d1!d11!d0 !cfn Found 0 Data-Sets Over (!dbchper%) Capacity To
List'
setvar d17 " "
setvar d18 "&dB"
setvar d19 "&d@"
setvar d20 '!d1!d9!d8!d8!d10!d0'
setvar d21 '!d1!d11!d0 Database Does Not Exist - '
setvar d22 '!d1!d13!d8!d8!d12!d0'
setvar d23 '- !dbchname!d17!d17!d17!d17!d17!d1!d11!d0'
echo !d1!d6!d5!d5!d7
echo !d1!d2!d0 Version: !cfv -!cfn- &
Written By: !cfa !d1!d2!d0
echo !d1!d3!d5!d5!d4
else
setvar d14 ' !cfn Found'
setvar d15 ''
setvar d16 ' !cfn Found 0 Data-Sets Over (!dbchper%) Capacity To List'
setvar d17 " "
setvar d18 ""
setvar d19 ""
setvar d20 ''
setvar d21 ' Database Does Not Exist - '
setvar d22 ''
setvar d23 '- !dbchname'
echo
echo Version: !cfv -!cfn- &
Written By: !cfa
echo
endif
echo Date: !hpdatef Time: !hptimef
echo
if ups("!dbchname")="HELP" then
echo
echo This command file will list data-sets that equal or exceed the
echo percentage supplied on the command line with the database name.
echo (i.e. :dbcheker mlad0.mladb.able,20). Note: Datasets with a
echo maximum capacity of 1 entry are ignored.
echo
deletevar d#,d##,dbch@,i#,cf? >$null
return
endif
purge dbch#.!hpgroup.!hpaccount;noconfirm >$null
purge dbch#.!hpgroup.!hpaccount,temp;noconfirm >$null
setvar jdbchcnt 0
setvar dbchexit "exit"
setvar dbchprg0 "dbutil.pub.sys"
setvar dbchcmd "show"
setvar dbchscmd "capacity"
setvar hpcierr 0
setvar hpresult 0
file dbch0;rec=-80,,f,ascii;msg
file dbch1;rec=-80,,f,ascii
continue
if not finfo("!dbchname","exists") then
setvar i0 0
setvar i1 0
while i0+i1 <92 do
setvar d21 ('!d21!d17')
setvar i1 len('!d23')
setvar i0 len('!d21')
endwhile
setvar d25 ('!d21!d23')
echo !d20
echo !d25
echo !d22
deletevar d#,d##,dbch@,i#,cf? >$null
return
endif
build dbch0;rec=-80,,f,ascii;msg;temp
echo !dbchcmd !dbchname !dbchscmd >*dbch1
echo !dbchexit >>*dbch1
continue
run !dbchprg0;stdin=dbch1;stdlist=dbch0 >$null
print dbch0;start=1;end=8 >$null
echo !d26
echo !d27
echo !d28
while finfo('dbch0',19) > 1 do
input dbchrec <dbch0
if numeric(rtrim(str('!dbchrec',31,3))) then
setvar dbchnum rtrim(str('!dbchrec',31,3))
setvar dbchmax rtrim(str('!dbchrec',35,3))
if !dbchnum >= !dbchper and !dbchmax > 1 then
setvar dbchrec str("!dbchrec",1,79)
echo !dbchrec
setvar jdbchcnt (!jdbchcnt + 1)
endif
endif
endwhile
if jdbchcnt > 0 then
setvar d24 '(!jdbchcnt) Sets!d17 with Supplied Parm (!dbchname,!dbchper)
!d15'
setvar i0 0
setvar i1 0
while (i0+i1 <92 and dbchline="T") do
setvar d14 ('!d14!d17')
setvar i1 len('!d14')
setvar i0 len('!d24')
endwhile
setvar d14 ('!d14!d24')
echo !d20
echo !d14
echo !d22
else
setvar i0 0
setvar i1 0
while (i0+i1 <92 and dbchline="T") do
setvar d16 ('!d16!d17')
setvar i1 len('!d16')
setvar i0 len('!d15')
endwhile
setvar d16 ('!d16!d15')
echo !d20
echo !d16
echo !d22
endif
reset dbch0 >$null
reset dbch1 >$null
deletevar d#,d##,dbch@,i#,cf? >$null
purge dbch#.!hpgroup.!hpaccount,temp;noconfirm >$null
----- Original Message -----
From: "Reggie Monroe" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Monday, February 23, 2009 5:00 PM
Subject: [HP3000-L] Vesoft listf for Jumbo database
Currently we use the below command to check for dataset capacities.
Unfortunately this command will not work if the dataset is a jumbo
dataset. Does anyone happen to know of a another way to check for
capacity on a jumbo database.
LISTF @.FILES.@MIG (DBSETFULLNESS>=.80 & DBSETTYPE= "D"),2
This email and/or any files or attachments transmitted with it are
confidential and intended solely for the use of the individual or entity to
whom they are addressed, and may contain information that is privileged,
confidential and exempt from disclosure under applicable law. If you are not
the intended recipient, or the employee or agent responsible for delivering
the message to the intended recipient, you are hereby notified that any
dissemination, distribution or copying of this e-mail and/or any files or
attachments transmitted with it is strictly forbidden. If you have received
this email in error, please delete the e-mail and/or any files or
attachments, and also notify the system manager
([log in to unmask]) of the error. Please note that any views
or opinions presented in this email are solely those of the author and do
not necessarily represent those of the company. Finally, the recipient
should check this email and any attachments for the presence of viruses. The
company accepts no liability for any damage caused by any virus transmitted
by this email and/or any files or attachments transmitted with it.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|