Subject: | |
From: | |
Reply To: | |
Date: | Wed, 2 Apr 1997 14:50:26 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Well, Vladimir got wind of this thread, and gave me a call earlier
today. As suspected, he has already solved this particular problem,
in the form of a command called ABORTACC.CMD.VECSL. If you have MPEX,
you have this command. Here's what it looks like:
ANYPARM FILESET=HELP
# By Vladimir Volokh, VESOFT, 1996
IF UPS("!FILESET")="HELP"
ECHO
ECHO ABORTACC: Aborts all jobs/sessions that are currently
ECHO accessing any file in a given fileset.
ECHO Syntax: %ABORTACC mpexfileset
ECHO Example: %ABORTACC @.DATA.PROD or %ABORTACC MYFILE
RETURN
ENDIF
listf !fileset,access>$newpass
print $oldpass;search="#" and NOT "#!HPJOBTYPE!HPJOBNUM ";&
FORMAT="ABORTJOB "+R[POS("#",R)-1:7]>$newpass
IF MPEXPRINTLINESFOUND=0 THEN
ECHO No jobs or sessions are accessing !FSET, quitting.
RETURN
ENDIF
echo # Aborting Jobs/Sess accessing !FSET>vehold
echo setvar hpautocont true >>vehold
repeat
if not veftempinfo('vehold').fcontains(rec) then
echo !rec >>vehold
endif
forrecs rec=$oldpass
:PRINT vehold;&
FORMAT=R+" -- "+VEJOBINFO(R[POS("#",R)-1:7]).FMTLOGON;start=3
IF HPJOBTYPE="J" OR READSELECT&
("OK to abort above sessions (Y/N)? ","NY","UPSHIFT")="Y" THEN
XEQ vehold
ENDIF
-Bob
[log in to unmask]
[log in to unmask]
|
|
|