1 " ******************************************************
2 " * *
3 " * *
4 " * Copyright c 1972 by Massachusetts Institute of *
5 " * Technology and Honeywell Information Systems, Inc. *
6 " * *
7 " * *
8 " ******************************************************
9
10
11
12 " ********************************************************************
13 " * *
14 " * WRITTEN BY: P Haber March 21,1974 *
15 " * MODIFIED BY: R.H. Morrison May 22, 1974 *
16 " * Nov. 12, 1974 *
17 " * *
18 " ********************************************************************
19
20
21 name gcos_daemon_stat_
22 use linkc
23 join /link/linkc
24
25 segdef anonymous_user "name of default anonymous user
26 anonymous_user: aci "Anonymous.GCOS.g"
27
28 segdef anonymous_user_len
29 anonymous_user_len: dec 16
30
31 segdef snumb "current snumb
32 snumb: aci " "
33
34 segdef default_home_dir "default absentee job home dir
35 default_home_dir: aci ">ddd>GCOS>Anonymous",168
36
37 segdef default_home_dir_len
38 default_home_dir_len: dec 19
39
40 segdef home_root_dir "root portion of non-default absentee home dir
41 home_root_dir: aci ">gdd",168
42
43 segdef home_root_dir_len
44 home_root_dir_len: dec 4
45
46 segdef input_dir "pathname of daemon's input directory
47 input_dir: aci ">daemon_dir_dir>GCOS>input_dir",168
48
49 segdef input_dir_len
50 input_dir_len: dec 30
51
52 segdef pool_dir "pathname of daemon's pool directory
53 pool_dir: aci ">daemon_dir_dir>GCOS>pool_dir",168
54
55 segdef pool_dir_len
56 pool_dir_len: dec 29
57
58 segdef root_dir "pathname of daemon's root directory
59 root_dir: aci ">daemon_dir_dir>GCOS",168
60
61 segdef root_dir_len
62 root_dir_len: dec 20
63
64 segdef sysdir "absentee message directory
65 sysdir: aci ">system_control_1",168
66
67 segdef sysdir_len
68 sysdir_len: dec 17
69
70 segdef tape_dim "for testing
71 tape_dim: aci "nstd_ " "must be 8 characters
72
73 segdef card_dim "for testing
74 card_dim: aci "crz " "must be 8 characters
75
76 segdef max_cpu_time "maximum time for gcos absentee job
77 max_cpu_time: dec 1200
78
79 segdef high_priority "highest legal numerical priority
80 high_priority: dec 3
81
82 segdef low_priority "lowest legal numerical priority
83 low_priority: dec 1
84
85 segdef delete_interval "days after which to delete a segment
86 delete_interval: dec 3
87
88 even
89 segdef max_priority "maximum queue priority
90 max_priority: bss ,1
91
92
93
94 use textc
95 join /text/textc
96
97 even
98 segdef overflow_channel "daemon's overflow event channel
99 overflow_channel: bss ,2
100
101 segdef process_id "daemon's process id
102 process_id: bss ,1
103
104 end