d $	!		C H R O N O S
È $	!						Version V3.0
,$
$ 	verify = 'F$Verify(0)'
ô$	Set NoOn
X$	Set Process /Priority=5				   ! <<<<<<<<<<
¼$	On Control_Y	THEN GOTO cleanup
 $
„$ !	This command file looks up the file CHRONICLE.DAT
è$ !	and starts all commands for the current day. It
L$ !	leaves a record of what it has done in CHRON.LOG
°$ !	Try     @CHRONOS HELP   for help
$ !	or read CHRONOS:chronos.doc
x$
Ü$ !	The lines that you may wnat to change are marked   ! <<<<<<<<<<
@$
¤$ !						CHRONOS.COM
$ !		Change the name of this file at your peril !
l$
Ð$
4$
ü$ !	Copyright (c)1982 ,	INMOS Corp.,
.	$ !
`	$ !	  Date		Programmer	 Description
Ä	$ !
(
$ !	 1 Oct 82	B. Lee Jones	Version 3.0
¸$ !
$
€$
ä$	! Define chronos' default directory
H$
¬$	Assign disk$system:[chronos]  CHRONOS_DIR:	! <<<<<<<<<<
$	chron_queue := "CONTROL"			! <<<<<<<<<<
t$
Ø$
<$	! The following four assignments are used to check
 $	! that the person running  this file is also the 
$	! nominated owner of the CHRONOS system.
h$
Ì$	! (In this case the owner is PRODUCTION who has a UIC of [4,0]
0$
”$	! The UIC of [10,40] is the 'user' that runs SYSTARTUP at
ø$	! boot time.
\$
À$	! All this is done not only for security, but to reduce the
$$	! problems of file ownership to a minimum.
ˆ$
ì$
P$	sysexe := [10,40]
´$	owner := [4,0]					! <<<<<<<<<<
$	ownername := PRODUCTION				! <<<<<<<<<<
|$
à$	user := 'F$User()'
D$
¨$				! SYSTARTUP thinks it's a batch job
$
p$	interactive = "''F$Mode()'" .EQS. "INTERACTIVE" .OR. 	-
Ô			user .EQS. sysexe
8$	batch = .NOT. interactive
œ$
 $	here := 'F$Logical("SYS$DISK")''F$Directory()'
d$ 
È$	IF user .EQS. sysexe	THEN Set UIC 'user'
,$
$
ô$	Set Default CHRONOS_DIR:
X$
¼$	lenp1 = 'F$Length(P1)'
 $
„$	IF P1 .EQS. "S"		THEN GOTO  notuniq
è$
L$	IF P1  .EQS.  "''F$Extract(0,lenp1,"SHOW")'"	THEN  GOTO  show
°$	IF P1  .EQS.  "''F$Extract(0,lenp1,"ALL")'"	THEN  GOTO  startall
$	IF P1  .EQS.  "''F$Extract(0,lenp1,"CHRONOS")'"	THEN  GOTO  startchronos
x$	IF P1  .EQS.  "''F$Extract(0,lenp1,"START")'"	THEN  GOTO  startlater
Ü$	IF P1  .EQS.  "''F$Extract(0,lenp1,"HELP")'"	THEN  GOTO  help
@$	IF P1  .EQS.  "''F$Extract(0,lenp1,"LIST")'"	THEN  GOTO  list
¤$
 $	Write SYS$OUTPUT "%%CHRONOS-F-INVPAR, parameter error"
l $	Write SYS$OUTPUT "  \''P1'\"
Ð $ GOTO end
4!$
˜!$ notuniq:
ü!$	Write SYS$OUTPUT "%%CHRONOS-F-AMBIGKEYW, parameter not unique"
`"$	Write SYS$OUTPUT "  \''P1'\"
Ä"$ GOTO end
(#$
Œ#$
ð#$ help:
T$$	@CHRONOS_DIR:chronos.hlp  'P2'
¸$$ GOTO end
%$
€%$
ä%$ list:			! Can be improved and formatted as required
H&$	Print /Header  CHRONOS_DIR:chronicle.dat
¬&$ GOTO end
'$
t'$
Ø'$ show:
<($	action := "show"
 ($ GOTO main
)$
h)$ startchronos:
Ì)$	! IF user .NES. owner 	THEN  GOTO end
0*$
”*$	Submit /Priority=5 /After=23:59 /Queue='chron_queue' /Parameter=all  CHRONOS_DIR:chronos
ø*$
\+$	Write SYS$OUTPUT "%%CHRONOS-I-CRES, will run again tonight"
À+$ GOTO end
$,$
ˆ,$
ì,$ startall:
P-$	IF user .NES. owner	THEN GOTO end
´-$
.$	IF batch 	THEN wait 0:1:10	! usually run at
|.$						! midnight but the
à.$						! closest we can get is
D/$						! 23:59 so wait a bit
¨/$	action := "startall"
0$ GOTO startgen
p0$
Ô0$
81$ startlater:
œ1$	IF user .NES. owner 	.AND. user .NES. sysexe  -
 2	THEN  GOTO end
d2$
È2$	action := "startlater"
,3$ GOTO startgen
3$
ô3$
X4$
¼4$ startgen:		! general start procedure
 5$
„5$
è5$	!	First check if CHRONOS is still in a queue
L6$
°6$	Open  /Write /Error=bq_error bq showq.tmp
7$	Assign /User  bq  SYS$OUTPUT
x7$	Show Queue /All /Batch
Ü7$	Close bq
@8$
¤8$	Open /Error=bq_error /Read bq  showq.tmp
9$
l9$			! Check for a non-current job owned by 'owner'
Ð9$			! with a name of CHRONOS in the batch queues
4:$	ccloop:
˜:$		Read /end=ccend  bq  rec
ü:$
`;$		IF 'F$Locate("CHRONOS",rec)' .EQ. 'F$Length(rec)'  -
Ä;		.OR. 'F$Locate(ownername,rec)' .EQ. 'F$Length(rec)'  -
(<		.OR. 'F$Locate("CURR",rec)' .NE. 'F$Length(rec)'  -
Œ<		THEN GOTO ccloop
ð<$
T=$			Close bq
¸=$			Delete /NoLog showq.tmp.*
>$			Write SYS$OUTPUT "%%CHRONOS-I-CSIQ, chronos still in queue"
€>$
ä>$		GOTO end
H?$
¬?$	ccend:
@$
t@$	Close bq
Ø@$	Delete /NoLog showq.tmp.*
<A$
 A$		!	Now set the log file
B$
hB$	Open /Write  /Error=log_error log  CHRONOS_DIR:chronday.log
ÌB$	Assign  log  sys$output
0C$
”C$	Write  log  "CHRONOS V3: run at ''F$Time()'   User = ''user'"
øC$
\D$ GOTO main
ÀD$
$E$
ˆE$
ìE$
PF$
´F$ main:			!  Where it all happens
G$
|G$	!	First get todays date and set up the variables
àG$
DH$	date := "''F$Time()'"
¨H$
I$	dom  = 'F$Extract(0, 2, date)'
pI$	mth := "''F$Extract(3, 3, date)'"
ÔI$	year = 'F$Extract(7, 4, date)'
8J$	cent = 'F$Extract(7, 2, date)'
œJ$	yr   = 'F$Extract(9, 2, date)'
 K$	hr   = 'F$Extract(12, 2, date)'
dK$	min  = 'F$Extract(15, 2, date)'
ÈK$
,L$	!	Set the numeric value of mth
L$
ôL$	!	First set up the month values
XM$
¼M$
 N$	mthnjan =  1
„N$	mthnfeb =  2
èN$	mthnmar =  3
LO$	mthnapr =  4
°O$	mthnmay =  5
P$	mthnjun =  6
xP$	mthnjul =  7
ÜP$	mthnaug =  8
@Q$	mthnsep =  9
¤Q$	mthnoct = 10
R$	mthnnov = 11
lR$	mthndec = 12
ÐR$
4S$	mthn = mthn'mth'
˜S$
üS$	!	Show parameters can change this so....
`T$
ÄT$	IF action .NES. "show" 	THEN GOTO notshow
(U$
ŒU$		IF P2 .NES. "" 	THEN dom = 'P2'
ðU$		IF P3 .NES. "" 	THEN mthn = 'P3'
TV$	notshow:
¸V$
W$	!	Calculate the last day of the month
€W$
äW$
HX$	days_in_1  = 31
¬X$	days_in_2  = 28
Y$	days_in_3  = 31
tY$	days_in_4  = 30
ØY$	days_in_5  = 31
<Z$	days_in_6  = 30
 Z$	days_in_7  = 31
[$	days_in_8  = 31
h[$	days_in_9  = 30
Ì[$	days_in_10 = 31
0\$	days_in_11 = 30
”\$	days_in_12 = 31
ø\$
\]$	days_in_mth = days_in_'mthn'
À]$
$^$	IF "''mth'" .NES. "FEB"	THEN GOTO not_feb
ˆ^$		leap_year = ( (year / 4)*4) .EQ. year
ì^$		IF leap_year	THEN days_in_mth = 29
P_$	not_feb:
´_$
`$	!	Calculate day-of-week
|`$
à`$	!	The formula used is :-
Da$	!    dow = ( [2.6M - 0.2]  + D + Y + [Y/4] + [C/4] - 2C) mod 7
¨a$
b$	!	Where :-	D = day of month
pb$	!			M = month taking March = 1 and Jan & Feb
Ôb$	!			    11 & 12 of the previous year
8c$	!			C = century (first 2 digits of year)
œc$	!			Y = year (The second 2)
 d$
dd$	!	and [ brackets ] meaning truncation of fraction
Èd$
,e$
e$
ôe$
Xf$	dcent = cent
¼f$	dyr = yr
 g$
„g$	dmthn = mthn - 2
èg$
Lh$	IF dmthn .GT. 0 	THEN GOTO dmthnok
°h$
i$		!	Jan & Feb = 11 & 12 of last year 
xi$
Üi$		dmthn = dmthn + 12
@j$		dyr = dyr - 1
¤j$
k$		IF dyr .GT. 0 	THEN GOTO dyrok
lk$			dcent = dcent - 1
Ðk$			dyr = dyr + 100
4l$		dyrok:
˜l$
ül$	dmthnok:
`m$
Äm$
(n$	t1 = ( 26 * dmthn - 2 ) / 10
Œn$	t2 =  dyr / 4
ðn$	t3 = dcent / 4
To$	t4 = t1 + t2 + t3 + dom + dyr - ( 2 * dcent )
¸o$
p$	IF t4 .LT. 0	THEN t4 = t4 + 196	! The rules say so
€p$
äp$	t5 = t4 / 7
Hq$
¬q$	down = t4 - ( t5 * 7 )
r$
tr$	dow0 := SUN
Ør$	dow1 := MON
<s$	dow2 := TUE
 s$	dow3 := WED
t$	dow4 := THU
ht$	dow5 := FRI
Ìt$	dow6 := SAT
0u$
”u$	dowvar := "'dow''down'"
øu$	dow := 'dowvar'
\v$
Àv$
$w$	IF action .EQS. "show"	-
ˆw	THEN Write SYS$OUTPUT "Chronicled for ''dow' ''dom'/''mthn'/''yr'"
ìw$
Px$	!	Now set up the things for fields to match
´x$
y$	match1  =  'down'
|y$	match2  =  'dom'
ày$	match3  =  'mthn'
Dz$
¨z$
{$	!	Now open the chronicle and see whats to do
p{$
Ô{$	max_field = 8
8|$
œ|$	Open /Read /Error=chrontaberror chrontab  CHRONOS_DIR:chronicle.dat
 }$	Read  chrontab  ignoreheading
d}$
È}$	chrecloop:
,~$		Read /End_of_File=chrecend  chrontab  chrec
~$
ô~$	!	Extract the fields and put them in field1 .. field'max_field'
X$
¼$		N = 0
 €$		reclen = 'F$Length(chrec)'
„€$		IF reclen .EQ. 0	THEN GOTO chrecloop
è€$
L$		extractloop:
°$			N = N + 1
‚$			IF N .GE. 'max_field'	THEN GOTO extractend
x‚$
Ü‚$			field'N' := ""
@ƒ$
¤ƒ$			IF chrec .EQS. ""	THEN GOTO extractloop
„$
l„$			!	Skip leading spaces ( and tabs )
Ð„$
4…$			skiploop:
˜…$				ch := 'F$Extract(0,1,chrec)'
ü…$
`†$				IF ch .NES. " "   .AND.	-
Ä†				   ch .NES. "	" 	-
(‡				THEN  GOTO  skipend
Œ‡$
ð‡$				reclen = reclen - 1
Tˆ$				chrec := 'F$Extract(1,reclen,chrec)'
¸ˆ$			GOTO skiploop
‰$			skipend:
€‰$
ä‰$			sp = 'F$Locate(" ",chrec)'
HŠ$			tab = 'F$Locate("	",chrec)'
¬Š$
‹$			IF tab .LT. sp	THEN  sp = tab
t‹$
Ø‹$			field'N' := 'F$Extract(0,sp,chrec)'
<Œ$
 Œ$			reclen = reclen - sp + 1
$			sp = sp + 1
h$			chrec := 'F$Extract(sp,reclen,chrec)'
Ì$		GOTO extractloop
0Ž$		extractend:
”Ž$
øŽ$		field'max_field' := 'chrec'		! the rest of the line
\$
À$	!	Now we have the fields, see what matches
$$
ˆ$		
ì$		IF field7 .EQS. ""	THEN GOTO chrecloop		!	No command file?
P‘$
´‘$ !	<field> ::= * | <field-list> | <value>:<value> | <value>
’$
|’$ !	See CHRONOS_DIR:chronos.doc
à’$
D“$		N = 0
¨“$
”$		fieldloop:		! <field> ::= 
p”$			N = N + 1
Ô”$			IF N .GT. 3	THEN GOTO fieldend
8•$
œ•$			f := "'field''N'"
 –$			m := "'match''N'"
d–$
È–$			field := 'f'
,—$			match := 'm'
—$
ô—$			flen = 'F$Length(field)'
X˜$
¼˜$						!    * |
 ™$
„™$			IF 'F$Locate("*",field)' .NE. flen	-
è™			THEN GOTO fieldloop
Lš$
°š$			listloop:
›$
x›$				IF field .EQS. "" 	-	! No match
Ü›				THEN GOTO  chrecloop
@œ$
¤œ$						! <field-list> |
$
l$				itemend = 'F$Locate(",",field)'
Ð$				item := 'F$Extract(0,itemend,field)'
4ž$				flen  = flen - itemend - 1
˜ž$				eoffset = itemend + 1
üž$
`Ÿ$				field := 'F$Extract(eoffset,flen,field)'
ÄŸ$
( $					!  <value>:<value> |
Œ $
ð $				startval := 'item'
T¡$
¸¡$				endval   := 'item'
¢$				colon = 'F$Locate(":",item)'
€¢$
ä¢$				IF colon .EQ. itemend	-
H£				THEN GOTO nocolon
¬£$
¤$				startval = 'F$Extract(0,colon,item)'
t¤$
Ø¤$				eve = itemend - colon - 1
<¥$				eoffset = colon + 1
 ¥$
¦$				endval = 'F$Extract(eoffset,eve,item)'
h¦$
Ì¦$			nocolon:
0§$						! <value>
”§$				!	Check for negative values (for mth)
ø§$
\¨$				IF startval .LE. 0 .AND N .EQ. 2	-
À¨				THEN startval = days_in_mth + startval + 1
$©$
ˆ©$				IF endval .LE. 0 .AND N .EQ. 2	-
ì©				THEN endval = days_in_mth + endval + 1
Pª$
´ª				IF (match .GE. startval)  .AND.	-
«				   (match .LE. endval  )	-
|«				THEN GOTO fieldloop
à«$
D¬$			GOTO listloop
¨¬$			listend:
­$
p­$		GOTO fieldloop
Ô­$		fieldend:
8®$
œ®$
 ¯$		IF action .EQS. "show"	THEN GOTO display
d¯$		IF action .EQS. "startall"	THEN GOTO submit
È¯$		IF ACTION .EQS. "startlater"	THEN GOTO checksubmit
,°$
°$		Write SYS$OUTPUT "%%CHRONOS-F-CHRONIC, error in main"
ô°$		Exit
X±$
¼±$	display:
 ²$		Write SYS$OUTPUT "For user ''field6' 	:  Submit /After=''field4':''field5' 	''field7' 	''field8'"
„²$	GOTO chrecloop
è²$
L³$
°³$	checksubmit:
´$		IF field4 .GT. hr  .OR.	-
x´		   field4 .EQ. hr .AND.field5 .GT. min	-
Ü´		THEN GOTO submit
@µ$
¤µ$	GOTO chrecloop
¶$
l¶$	submit:
Ð¶$		Write log "For user ''field6' 	:  Submit /After=''field4':''field5' 	''field7' 	''field8'"
4·$	Goto 'Field6'_Name
˜·$	Goto Clean_Up			! Error in name - must create new image
ü·$Sysacct_Name:
`¸$	Run Ssexe:Sysacct
Ä¸$	Goto After_Name
(¹$Operations_Name:
Œ¹$	Run Ssexe:Operation
ð¹$	Goto After_Name
Tº$Production_Name:
¸º$	Run Ssexe:Product
»$	Goto After_Name
€»$Sysprog_Name:
ä»$	Run Ssexe:Sysprog
H¼$	Goto After_Name
¬¼$Matl_Name:
½$	Run Ssexe:Matl
t½$	Goto After_Name
Ø½$Manu_Name:
<¾$	Run Ssexe:Manu
 ¾$	Goto After_Name
¿$Mrkt_Name:
h¿$	Run Ssexe:Mrkt
Ì¿$	Goto After_Name
0À$Post_Name:
”À$	Run Ssexe:Post
øÀ$	Goto After_Name
\Á$Admin_Name:
ÀÁ$	Run Ssexe:Admin
$Â$	Goto After_Name
ˆÂ$	!
ìÂ$After_Name:
PÃ$	!
´Ã$		Submit /Priority=5 /After='field4':'field5'   'field7'   'field8'
Ä$		Run Ssexe:Admin		! Reset ADMIN Username
|Ä$
àÄ$	GOTO chrecloop
DÅ$
¨Å$ chrecend:
Æ$	IF action .EQS. "show"	THEN GOTO showend
pÆ$	IF action .EQS. "startall" .OR.	-
ÔÆ	   action .EQS. "startlater"	-
8Ç	THEN GOTO startend
œÇ$
 È$	Write SYS$OUTPUT "%%CHRONOS-F-CHRONIC, error in chrecend"
dÈ$ 	Exit
ÈÈ$
,É$ showend:
É$	Write SYS$OUTPUT ""
ôÉ$	Close chrontab
XÊ$ GOTO end
¼Ê$
 Ë$
„Ë$ startend:
èË$	Write log "CHRONOS: end at ''F$Time()'"
LÌ$	Write log ""
°Ì$	Close log
Í$	Close chrontab
xÍ$	Deassign SYS$OUTPUT
ÜÍ$
@Î$	IF batch 	THEN Type CHRONOS_DIR:chronday.log
¤Î$
Ï$	IF dom .NE. 1	THEN GOTO oldlog
lÏ$
ÐÏ$		Copy CHRONOS_DIR:chronday.log CHRONOS_DIR:chron.log
4Ð$	!	Purge /Keep:12 CHRONOS_DIR:chronlog
˜Ð$
üÐ$ GOTO end
`Ñ$
ÄÑ$
(Ò$ oldlog:
ŒÒ$	Append /New  CHRONOS_DIR:chronday.log  CHRONOS_DIR:chron.log
ðÒ$	Delete /NoLog CHRONOS_DIR:chronday.log.*
TÓ$
¸Ó$ GOTO end
Ô$
€Ô$
äÔ$ end:
HÕ$	!	Normal exit point
¬Õ$	IF interactive	THEN GOTO interact
Ö$
tÖ$	!	Don't print the log file - but keep a copy
ØÖ$	!			       ( - just in case )
<×$
 ×$
Ø$	Rename SYS$LOGIN:chronos.log  CHRONOS_DIR:
hØ$	Assign NLA0: SYS$PRINT		! NLA0: is a null device
ÌØ$	Purge /Keep:2 CHRONOS_DIR:chronos.log
0Ù$
”Ù$
øÙ$ interact:
\Ú$	Deassign CHRONOS_DIR:
ÀÚ$	Set UIC 'user'
$Û$	Set Default 'here'
ˆÛ$	Set Process /Priority=4
ìÛ$	IF verify	THEN Set Verify
PÜ$ Exit
´Ü$
Ý$
|Ý$ chrontaberror:
àÝ$	Write SYS$OUTPUT "''F$Message($STATUS)'"
DÞ$	Write SYS$OUTPUT "%%CHRONOS-F-CHRONIC, error with chronicle"
¨Þ$
ß$ Exit
pß$
Ôß$ bq_error:
8à$	Write SYS$OUTPUT "%%CHRONOS-F-BATQER, error opening batch queue file"
œà$ Exit
 á$
dá$ log_error:
Èá$	Write SYS$OUTPUT "%%CHRONOS-F-LOGERR, error opening log file"
,â$ Exit
â$
ôâ$ cleanup:
Xã$	Write SYS$OUTPUT "%%CHRONOS-I-ABORT, aborted by control_Y"
¼ã$	Set NoOn
 ä$	Close bq
„ä$	Close log
èä$	Close chrontab
Lå$	Deassign CHRONOS_DIR
°å$	Set UIC 'user'
æ$	Set Default 'here'
xæ$	Set Process /Priority=4
Üæ$	IF verify	THEN Set Verify
@ç$ Exit
¤ç$
è$
lè$
Ðè$	!	END OF THE CHRONOS COMMAND FILE
4é$