Below is a little job that I cooked up once.  It uses VESoft's MPEX/3000
(but I don't think it requires SECURITY/3000.)  It uses the MPEX %REPEAT
... %FORJOBS construct.  It is suitable for those shops that want to
stream only one job per account.

Preconditions are:

The jobfence should be set at SEVEN.

The INPRI of all jobs to be affected should be SEVEN or lower.

---

!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("@,@.prodacct-permnent,job.prodacct&EXEC&BATCH")=0
            :ALTJOB ![RJOB.FMTJOB];INPRI=8
            :TELLOP  &dA ALTERING ![RJOB.FMTJOB] ![RJOB.FMTLOGON]
            :ECHO   ALTERING ![RJOB.FMTJOB] ![RJOB.FMTLOGON]
            PAUSE 5
      ENDIF
   CONTINUE
   FORJOBS
@,@.prodacct&WAIT
   PAUSE 90
ENDWHILE
EXIT
!EOJ

--

The job as shown works for one ACCOUNT.  For this to affect more than
one ACCOUNT add another %REPEAT ... %FORJOBS construct.  Also note the
exception on the IF JSCOUNT line.  This particular account ALWAYS had to
have a certain job running all the time besides any others.

This job works in a similar fashion to the Chant below:

---

Pie Iesu domine, dona eis requiem.
     [bonk]
Pie Iesu domine,...
     [bonk]
 ...dona eis requiem.
     [bonk]
Pie Iesu domine,...
     [bonk]
...dona eis requiem.

---

Tracy Johnson
ANSWERS, Manhattan Beach, CA
Minister of Propaganda, Justin Thyme Productions
[log in to unmask]
"Semper Pollus"
 ADC-2239-5531