HP3000-L Archives

February 1996, Week 4

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:
"(Rick Clark)" <[log in to unmask]>
Reply To:
Date:
Thu, 22 Feb 1996 15:47:55 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (53 lines)
>To help alleviate the aformentioned problem, one of the VESOFT technicians
>created a command file/script that essentially parsed the output of the
>SHOWJOB command into a set of "ABORTJOB #S123" commands.  The resulting
>commands would then be executed as a command file and thus log everyone off.
>[note: the actual origin of this command file is somewhat fuzzy -- there
>may have been two or three other "sources" of similar command files,
>including one from HP's tech support, but all of these command files had the
>same eventual effect]
 
Here is a portion of our automated backup job that redirects a SHOWJOB and
aborts sessions.
------- autobac1.pub.sys --------
!  IF HPCIDEPTH = 1 THEN
!     SETVAR JCW 0
!     PAUSE 10
!     PURGE JUNK,TEMP
!     FILE JUNK;REC=-80,,F,ASCII;NOCCTL
!     SHOWJOB ;*JUNK
!     CONTINUE
!     PRINT *JUNK
!     RUN ?$LOCKWORD=GOD.PUB.VESOFT$?
!     RUN CI.PUB.SYS;INFO="AUTOBAC2";STDIN=JUNK;PARM=3
!     PAUSE 10
!  ENDIF
 
----- autobac2.pub.sys--------
SETVAR MYJOB "#J" + "!HPJOBNUM"
    WHILE COUNT > 0 DO
        INPUT SJLINE
        COMMENT - Skips scheduled jobs
        IF NOT STR(SJLINE,9,5)="SCHED" THEN
           COMMENT ---  Looks for each record that begins with  #
           IF STR(SJLINE,1,1) = "#" THEN
           COMMENT ---  Does not abort the console
              IF NOT STR(SJLINE,20,3)=" 20" THEN
                  SETVAR SJJOB STR(SJLINE,1,6)
                  IF STR(SJJOB,1,LEN(MYJOB)) = MYJOB THEN
                     TELLOP  !MYJOB   NOT ABORTED..  THAT'S ME
                  ELSE
                     SETVAR C STR(SJLINE,1,6)
                     SETVAR B "ABORTJOB "
                     SETVAR B B + C
                     TELLOP  !B
                     COMMENT --- Aborts jobs/sessions
                     CONTINUE
                     !B
                  ENDIF
 
 
Rick Clark
Systems Manager
Nook Industries

ATOM RSS1 RSS2