Try this
USER DEFINED COMMAND FILE: DFV.CMDFILE.SYS
parm format=Z;ldev="";volset="mpexl_system_volume_set"
COMMENT &1 Discfree shortcut
if ups('!format')='Z'
discfree.pub.sys c >df1
/bin/awk "-f /SYS/CMDFILE/DFVA" <df1
purge df1,temp
else
xeq discfree.pub.sys "!format,!ldev,!volset"
endif
USER DEFINED COMMAND FILE: DFVA.CMDFILE.SYS
BEGIN {FS = "[(),: |\n]+";
print "Dev Volume Name size utilization\n";}
# Ldev: 1 -- (MPEXL_SYSTEM_VOLUME_SET:MEMBER1)
# Device | 71132944 | 17000304 ( 24%) | 54132640 ( 76%)
# ldev 8 is a cd-rom on our system, not relevant for discfree
# ldev 32-35 are mirrored
/^LDEV/ {d=$2; if(d!=32 && d!=33 && d!=34 && d!=35 && d!=36)
printf("%3s %24s",$2,$4 );
# for (i = 1 ; i < NF; ++i) printf ("(%3d) %s\n",i,$i);
}
/^Device/ && !t && d!=8 && d!=32 && d!=33 && d!=34 && d!=35 && d!=36{
# { for (i = NF; i > 0; --i) print (i) $i "\n";}
#for (i = NF; i > 0; --i) printf (" %d\n",$i);
printf("%5.1fG ",$2/4/1024/1024);
for(i=0;i<$3/$2*20;i++) printf("*");
for(i=0;i<($2-$3)/$2*20;i++) printf(".");
printf(" %3d%%\n",$3/$2*100);
tc+=$2;
tu+=$3;
# printf ("debug %d %d %d %d\n",$1,$2,$3,$4);
}
/^TOTALS/ {
t=1;
for(i=0;i<24;i++) printf("-");
printf("all %5.1fG ",tc/4/1024/1024);
tc+=1;
tu+=1;
for(i=0;i<tu/tc*20;i++) printf("*");
for(i=0;i<(tc-tu)/tc*20;i++) printf(".");
printf(" %3d%%\n\n",tu/tc*100);
}
Ray
-----Original Message-----
From: Gilles Schipper [mailto:[log in to unmask]]
Sent: Tuesday, March 02, 2010 1:31 PM
Subject: DF5 utility
I was wondering if anybody has a more current version of the DF5
utility - which worked fine on MPE/iX 7.0, but has stopped working
since upgrading to MPE/iX 7.5 PowerPatch 5.
Here are the details:
:hello manager.sys
HP3000 Release: C.75.00 User Version: C.75.05 TUE, MAR 2, 2010, 4:28 PM
MPE/iX HP31900 C.45.05 Copyright Hewlett-Packard 1987. All rights reserved.
:version df5.util.system
VERSION C.75.05 Copyright (C) Hewlett-Packard 1987. All Rights Reserved.
DF5.UTIL.SYSTEM
SOM #1
@(#) HP30315 A.05.10 95/02/08 NRT0 Startup routine
MAX STACK SIZE: 393216
MAX HEAP SIZE: 81920000
CAPABILITIES: BA,IA,PH
UNSAT PROC NAME:
ENTRY NAME:
LIBRARY SEARCH LIST:
:dstat all
LDEV-TYPE STATUS VOLUME VOLUME SET - GEN
---------- ------- ----------------------------------
1-ST34371W MASTER MEMBER1 MPEXL_SYSTEM_VOLUME_SET-0
50-ST39173WC MASTER MEMBER1 PVSET01-0
51-ST39236LC MASTER MEMBER1 PVSET02-0
52-ST39173WC SCRATCH
53-ST39173WC UNKNOWN
54-ST39236LC UNKNOWN
:df5.util.system
DF5.A.00.02 -- Enhanced DISCFREE 5 for System & User Volumes --
TUE, MAR 2, 2010, 4:29 PM
All measurements are in sectors.
All percentages are relative to the DEVICE size.
| Configured | In Use | Available |
-----------+-------------------+-------------------+-------------------+
PEXL_SYSTEM_VOLUME_SET
No SIZE ERROR phrase (COBERR 747)
Program file: DF5.UTIL.SYSTEM
Trap type = 00000002 (30,00), at pc = 00000341.00007BF7
integer divide by 0
DEBUG/iX C.45.05
HPDEBUG Intrinsic at: da.0026c304 cob_trap.print_message+$5ec
$$$$ Trap occurred at: df5+$eac, at Stmt #300
PC=341.000057c0 DivideByZeroTrap+$8
0) SP=4184c370 RP=341.00007bfc df5+$eb4
* 1) SP=4184c370 RP=341.00000000
(end of NM stack)
============================================================
**** COB_QUIT 747 ****
ABORT: DF5.UTIL.SYSTEM
NM SYS a.00fdbf70 dbg_abort_trace+$28
NM USER da.0026b398 COB_QUIT+$b8
NM SYS a.00387a58 px_getsig_lowpri+$188
--- Interrupt Marker
NM SYS a.013c4348 ?pi_call_2_handler+$8
--- Interrupt Marker
NM PROG 341.000057c0 DivideByZeroTrap+$8
Program terminated in an error state. (CIERR 976)
:
-------------------------------------------------------------------------------------------------
Gilles Schipper
GSA Inc.
HP System Administration Specialists
300 John Street, Box 87651 Thornhill, ON Canada L3T 7R4
Tel: 416.702.7900
email: [log in to unmask] web: http://www.gsainc.com
-------------------------------------------------------------------------------------------------
* 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 *
|