HP3000-L Archives

November 1998, 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:
Tracy Johnson <[log in to unmask]>
Reply To:
Tracy Johnson <[log in to unmask]>
Date:
Wed, 25 Nov 1998 12:40:53 +0000
Content-Type:
TEXT/PLAIN
Parts/Attachments:
TEXT/PLAIN (35 lines)
VB?  Does this imply someone wants to use "Visual Basic" to do
HP3K operations?

This reminds me of an MPEX method I had sent to the list last year.  I
single threads jobs by account.  To add more accounts, add more loops.

----
!JOB JOBSCHED,OPERATOR.SYS;OUTCLASS=LP,4;HIPRI;PRI=DS
!RUN MAIN.PUB.VESOFT,MPEX;NOCB
SETVAR HPAUTOCONT TRUE
WHILE JSCOUNT("JOBSCHED,OPERATOR.SYS&EXEC") = 1 DO
  PAUSE 1
  REPEAT
    IF JSCOUNT("@,@.[account here]-[any,excep.tions]&EXEC&BATCH")=0
       :ALTJOB ![RJOB.FMTJOB];INPRI=8
       :TELLOP ALTERING ![RJOB.FMTJOB] ![RJOB.FMTLOGON]
       :ECHO   ALTERING ![RJOB.FMTJOB] ![RJOB.FMTLOGON]
       PAUSE 5
      ENDIF
   CONTINUE
   FORJOBS @,@.[account name]&WAIT
   REPEAT
     [do for another account name]
   FORJOBS @,@.[another account name]
   REPEAT..
   [ad infinitum]
   FORJOBS [ad infinitum]...
   PAUSE 90
ENDWHILE
EXIT
!EOJ

Tracy Johnson
[log in to unmask]

ATOM RSS1 RSS2