HP3000-L Archives

April 1997, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Bob Brown <[log in to unmask]>
Reply To:
Bob Brown <[log in to unmask]>
Date:
Wed, 2 Apr 1997 14:50:26 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (44 lines)
     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]

ATOM RSS1 RSS2