Hello,
We have a home grown version created back in the 80’s and
it is still in use today.
Ray
pr sleeps.source
FILE sleeps.source, Recsize = -132 Eof = 4696
!JOB SLEEPy2k,MANAGER.SYS;OUTCLASS=LP,1,1
!PURGE SLEEPy2k.UTIL.SYS
!purge sleepu.source
!SPL SLEEPs.source.SYS,SLEEPU.source
!spl suprdate.source,sleepu.source
!spl datecvts.sl,sleepu.source
!PREP SLEEPU.source,SLEEPy2k.UTIL;MAXDATA=32000;CAP=IA,BA,PH;PMAP;&
!fpmap
!SAVE SLEEPy2k.UTIL.SYS
!TELL MANAGER.SYS; SLEEPy2k.util IS READY.
!EOJ
$CONTROL USLINIT,MAP,MAIN=SLEEP,SEGMENT=SLEEP,ERRORS=5
BEGIN
<<
PROGRAM: SLEEP
PURPOSE: TO STREAM JOBS OR XEQ COMMANDS AT
SPECIFIED DAYS AND TIMES
PREP: $OLDPASS,SLEEP;CAP=IA,BA,PH
INPUT: *SLEEP
OUTPUT: $STDLIST
INFO: NO
PARM: NO
CONTROL Y YES
PROGRAMMER: RDL
HISTORY:
VERSION INITIALS DATE REASON
------- -------- ------- ------
10.8 rdl 2 May 2000 last bug changes date to 2041
10.9 rdl 11 May 2000 Fix console display when entry is bad
11.0 rdl 11 May 2000 Changed Dojob stream to look for STREAM jcw
11.1 rdl 21 Mar 2001 Fix schedule prompt
11.2 rdl 15 Oct 2001 HPLASTJOB to get job number
11.3 rdl 29 Jan 2002 remove open of command.pub.sys
11.4 rdl 28 Feb 2002 fix Too'Late'To'Run problem
>>
ENTRY VERSION, HELP, TESTBATCH, BATCH, BUILD , RESET,
START, STOP, WAIT,convert ;
DEFINE <<USED TO ABBREVIATE DATA TYPES>>
IA = INTEGER ARRAY#,
LA = LOGICAL ARRAY#,
DA = DOUBLE ARRAY#,
BA = BYTE ARRAY#;
DEFINE << MISC JUNK >>
CR = %15#,
ESC = %33#,
END'PROC = END#,
BLANK'LINE = PRINT(LOUTBUFF,0,0)#,
P = BEGIN MOVE OUTBUFF:=#,
OUTPUT'CR = ,2;PRINTOUT(*,0); END#,
OUTPUT'NOCR = ,2;PRINTOUT(*,%320); END#;
LA LVERSION(0:24):="B.C.S. Sleeper Communications Program 11.4 Y2K ";
BA SLEEPCOM(0:40):="sleep.database.sys ;";
SITE149.SYS: pr sleep.sleep BATCH JOB
FILE sleep.sleep, Recsize = -80 Eof = 57
!JOB SLEEP,SLEEP.SYS,SCOPE;OUTCLASS=,5;HIPRI;PRI=CS
!showvar hp@
!setvar http jobcnt("SLEEP,SLEEP.SYS")
!if !http > 1
! exit
! exit
! eoj
!endif
!comment
!comment Subsys: sys
!comment
!comment Jobname: sleep.sleep.sys
!comment
!comment Purpose: Sleep sits in the background and
!comment launches jobs scheduled by users.
!comment
!comment
!comment
!comment
!comment Created: 07/22/88 0.0 kcs prepared
!comment
!comment Modified: mm/dd/yr 0.1 initials reason
!comment mm/dd/yr 0.2 initials reason
!comment
!comment
!comment Stream by: Operator startup/backup procedures
!comment
!comment Frequency: Constant
!comment
!comment Dependencies: file = sleep.database.sys
!comment group = sleep.sys
!comment user = sleep.sys
!comment
!comment Recovery: run sleep.util,reset; run sleep,start
!comment
!comment If problem: Contact Hp system manager
!comment
!comment Notes: Job should be aborted for backups and
!comment system shutdown.
!comment to reset sleeprun.database file purge or run sleep,reset
!comment run sleep.util,stop
!comment run sleep.util,start
!comment ****************************************************
!CONTINUE
!RUN EVENTLOG.UTIL.SYS;INFO='sleep.util,10,BEGIN OF JOB'
!continue
!FILE SLEEPHOL;DEV=LP,3,1
!SETJCW BOMFAXDELAYSECONDS = 120
!setjcw streamtrace = 0
!SETJCW BOUNCER 0
!SETJCW DOJOBSTREAMX 1
!run sleep.util.sys,batch
!EOD
!eoj
SITE149,LEGAULT.SYS: run sleep.util,help
B.C.S. Sleeper Communications Program 11.4 Y2K
Enter List Device (Return = $Stdlist)?
Exit, Add, Delete, Modify, List, Slist, Help, Printer, Term? A
E - Exit the program
A - Adds a new entry
M - Modify an Existing entry (by name, partial name or #)
D - Deletes an Entry (one time entries delete automatically)
P - Opens up 'SLEEPLST' on Output Device
T - Opens up Terminal as Output Device
L - Long List to List device ( L@ @= All Entries, L HP@ )
S - Short list to List device ( S@ @= All Entries, S hp@ )
H - This is it
HOL - HOLIDAY TABLE MAINTENANCE SM ONLY
Adding Entry # 18
Enter the File Name as [File.Group.Acct]?TEST/XXX.JOB
ACCOUNT= SYS GROUP= JOB
FILENAME CODE ------------LOGICAL RECORD-----------
SIZE TYP EOF LIMIT R/B
TEST 80B FA 16 16 3
Enter the Initial Date to Execute (MM/DD/YYYY)?12/12/1999
Initiate This Job on the 12 Day of Every Month (y/n)?
Type in 'y' if you wish this job to run on the
12 th Day of every Month.
Initiate This job on the First/Last Day of Each Month(F/L/n)?
Type in 'F' or 'L' if you want this job to run on the
First or Last Day of the Month.
Will then ask for the Day of the Week 'ex: MON'(DOW) ? WED
The Date will be re-calculated to the First/Last
Day of the Month Typed in.
Enter the Initial Time to Execute (HH:MM)? 12:00
Enter the Repeat Time Interval (DDD:HH:MM or None)? 001:00:00
DDD = Repeat Days
HH = Repeat Hours
MM = Repeat Minutes
Execute on Certain Days Only (Y/N)? Y
Will only ask this question if Repeat Time = 001: (every day)
Execute on SUNDAY (Y/N)? Y
Execute on MONDAY (Y/N)?
Execute on TUESDAY (Y/N)?
Execute on WEDNESDAY (Y/N)?
Execute on THURSDAY (Y/N)?
Execute on FRIDAY (Y/N)?
Execute on SATURDAY (Y/N)?
EXECUTE this job on a HOLIDAY (Y/[N]):
If you enter N, the job will be incremented to the next
stream date but not streamed!
EXECUTE this job with 15 minutes of scheduled time (N/[Y]:
This is for system jobs that run along time and the system
goes down. When it comes up, this job will just be scheduled
for its next normal date to be streamed, if the time is >
15 minutes.
*** Entry has been Added ***
------------------------------------------------------------------
Entry # 18
Stream TEST/???.JOB.SYS
on 12 Dec99 at 12:00
Entry Added by MANAGER .SYS
And Repeat Every 001 Days, 00 Hours, and 00 Minutes
On SUNDAY
Exit, Add, Delete, List, Slist, Help?
END OF PROGRAM
To start in Batch: RUN SLEEP.UTIL.SYS,START
To stop job: RUN SLEEP.UTIL.SYS,STOP
To Build the file: RUN SLEEP.UTIL.SYS,BUILD
To Reset batch file: RUN SLEEP.UTIL.SYS,RESET
To Wait until stopped: RUN SLEEP.UTIL.SYS,WAIT
To Convert file format RUN SLEEP.UTIL.SYS,CONVERT in Session only
Use this entry point when your version was before 7.3
Sleep will be renamed to sleepold and converted.
Run Sleep.group.account[,entry];info='Sleepcfg.Group.Account'
Where Sleepcfg.Group.Account is a configuration file
that contains the location of the Sleep files needed to Run
The format is as follows starting in column 1:
SLEEP.DATABASE.SYS=sleep/lockword.year2k.sys
SLEEPEXC.DATABASE.SYS=sleepexc/lockword.year2k.sys
SLEEPRUN.DATABASE.SYS=sleeprun.year2k.sys
EVENTLOG.UTIL.SYS=Eventlog.util.sys
SLEEP.SLEEP.SYS=SLEEP.SLEEP.SYS
DOJOBXL=DOJOBXL.LIBXL.TECH
STREAMX*Main.PUB.VESOFT
A Listf sleep,-3 will display the existing lockword.
If Dojobxl= is present with a program name, streamx is ignored
SLEEP.SLEEP.SYS= is the location of the job stream
SLEEP.DATABASE.SYS= is the location of the data file with labels
SLEEPEXC.DATABASE.SYS= is the location of the Exclusive file
SLEEPRUN.DATABASE.SYS= is the location of the Run Flag File
EVENTLOG.UTIL.SYS= is the location of this logging program. al
DOJOBXL.LIBXL.TECH= is the location of the stream program
STREAMX.PUB.VESOFT= is the location of the STREAMX program
If this file or an entry is omitted, the defaults are used.
The defaults is the names to the left of the equal sign
To use MPEX, Streamx set the jcw SETJCW DOJOBSTREAMX 1 and
the dojob program will then call Streamx.
Or set the STREAMX entry above instead of dojob
Setjcw NOTSFI 1 to enable the holiday and user prompts
This code finds any bad entries in Sleep. File can't be Run
file s=sleep/sleep.database,old;lock;shr
fcopy from=*s;to=xsleepx;new;subset='Y',120
END OF PROGRAM
------------------------------------------------------
SITE149,LEGAULT.SYS: sleep
B.C.S. Sleeper Communications Program 11.4 Y2K
Enter List Device (Return = $Stdlist)?
Exit, Add, Del, Mod, List, Slist, HOLiday, Help, Printer, Term?
END OF PROGRAM ***************************************
Ray
*
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|