Here is a little snipet .. I think it works.
/* THIS EXEC BUILDS A FILE OF USERS MDISKS */
ARG SELBLD
/* LINK TO DIRMAINTS FLAT DIRECTORY BACKUP FILE AND GET THE FILE */
PIPE CP LINK DIRMAINT 1DB 1DB RR
PIPE CMS ACC 1DB Q
'PIPE < USER BACKUP Q | NFIND * | STEM TEMP.'
/* ASSOCIATE USER NAME WITH MDISK STATEMENTS */
Y = 1
DO X = 1 BY 1 FOR TEMP.0
PARSE VAR TEMP.X FLD1 FLD2 FLD3 FLD4 FLD5 .
IF FLD1 = 'USER' THEN SUSER = FLD2
IF FLD1 = 'MDISK' THEN DO
IF FLD5 < 200 THEN ITERATE X
DIRMUSERS.Y = LEFT(SUSER,8) RIGHT(FLD2,4,0) FLD5
DIRMUSERS.0 = Y
Y = Y + 1
END
END
'PIPE STEM DIRMUSERS. | CONSOLE'
EXIT
-----Original Message-----
From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU]On
Behalf Of william JANULIN
Sent: Thursday, June 22, 2006 1:25 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: VM users with more than 200 cylinders
To list:
Does anyone have, or know where there is one, a REXX
routine or something similar that will read the VM
directory and list those users that have say 200
cylinders or more of MDISK space.
Thks,
Bill J.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
__________________________________________________________________
<< ella for Spam Control >> has removed VSE-List messages and set aside VM-List for me
You can use it too - and it's FREE! http://www.ellaforspam.com