Subject: | |
From: | |
Reply To: | |
Date: | Mon, 17 Jan 2000 17:02:59 -0700 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Tracy wrote:
I have some groups that exist in Private Volumes
that no longer exist in the MPEXL_SYSTEM_VOLUME_SET.
It is apparent they were just incorrectly purged off
the System Volume but not the Private Volume.
Does anyone know of a method to clean up these anachronisms?
I think MPEX could be tasked to do the job, but I haven't
figured it out yet.
Tracy,
I wrote a command file that uses VEAUDIT to accomplish this task. The
command file loops through all groups and accounts while doing a report on
the current group with the ONVS option. It uses the HOMEVS value for the
volume set. If an error occurs on the report then the group information is
listed with the option to purge. I did not fully automate it because I did
not want to inadvertently purge a group that should not have been purged. I
use the disc space used field as a sanity check. I have used it a couple
times and it has yet to prompt for a group I did not want purged:
OPTION NOLIST
COMMENT *************************************************************
COMMENT Name : VOLMAINT.SAL3264.SYS
COMMENT
COMMENT Descr. : This command file purges groups on invalid volume sets.
COMMENT
COMMENT DB Update: None.
COMMENT
COMMENT DB Access: None.
COMMENT
COMMENT Frequency: On demand.
COMMENT
COMMENT Parms : None.
COMMENT
COMMENT Precond. : None.
COMMENT
COMMENT Restart : At any time.
COMMENT
COMMENT Distr. : None.
COMMENT
COMMENT -------------------------------------------------------------
COMMENT Date Name Ver Description
COMMENT ------ ---- --- ------------------------------------------
COMMENT 19991202 SAL 001 Created command file.
COMMENT *************************************************************
COMMENT *** ***
COMMENT *** BUILD FILES FOR OUTPUT ***
COMMENT *** ***
IF FINFO('NOVOL','EXISTS')
YESPURGE NOVOL
ENDIF
BUILD NOVOL;REC=-80,,F,ASCII;DISC=10000
IF FINFO('ERRRPT','EXISTS')
YESPURGE ERRRPT
ENDIF
BUILD ERRRPT;REC=-80,,F,ASCII;DISC=10000
FILE VOLRPT=NOVOL,OLD
FILE ERROR=ERRRPT,OLD
COMMENT *** ***
COMMENT *** FIRST REPEAT STRUCTURE LOOPS THROUGH ALL ACCOUNTS ***
COMMENT *** ***
REPEAT
COMMENT *** ***
COMMENT *** SECOND REPEAT STRUCTURE LOOPS THROUGH ALL GROUPS ***
COMMENT *** OF CURRENT ACCOUNT ***
COMMENT *** ***
REPEAT
ECHO ACCT = ![RACCT.ACCOUNT]
SETVAR CIERR 0
COMMENT *** ***
COMMENT *** REPORT ON CURRENT GROUP AND ACCOUNT. IF ERROR WRITE ***
COMMENT *** INFORMATION TO FILE ***
COMMENT *** ***
TRAPERROR
REPORT ![RGROUP.GROUP].![RACCT.ACCOUNT];&
ONVS=![RGROUP.HOMEVOLUMESET]>>*ERROR
IFERROR
COMMENT *** ***
COMMENT *** WHEN TRUSTED WILL PURGE GROUP AUTOMATICALLY ***
COMMENT *** ***
ECHO ****** ![RGROUP.GROUP].![RACCT.ACCOUNT] IS NOT VALID
****
ECHO ![RGROUP.GROUP].!ACCT
![RGROUP.HOMEVOLUMESET].![RACCT.ACCOUNT
]
LISTGROUP ![RGROUP.GROUP].![RACCT.ACCOUNT]
PURGEGROUP ![RGROUP.GROUP].![RACCT.ACCOUNT]
ENDIFERROR
VEAUDIT FORGROUPS @.![RACCT.ACCOUNT]
VEAUDIT FORACCTS @
Hope this helps,
Scott Lindholm
Sr. Systems Administrator
1 Environmental Way
Broomfield, Colorado 80021-3416
(303) 664-3264
[log in to unmask]
> -----Original Message-----
> From: Johnson, Tracy [SMTP:[log in to unmask]]
> Sent: Monday, January 17, 2000 4:12 PM
> To: [log in to unmask]
> Subject: Volume Set Anachronisms
>
> I have some groups that exist in Private Volumes
> that no longer exist in the MPEXL_SYSTEM_VOLUME_SET.
>
> It is apparent they were just incorrectly purged off
> the System Volume but not the Private Volume.
>
> Does anyone know of a method to clean up these anachronisms?
> I think MPEX could be tasked to do the job, but I haven't
> figured it out yet.
>
> Tracy M. Johnson
> TRW Automotive Electronics
|
|
|