1 &version 2
 2 &-  ***********************************************************
 3 &-  *                                                         *
 4 &-  * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 5 &-  *                                                         *
 6 &-  * Copyright (c) 1972 by Massachusetts Institute of        *
 7 &-  * Technology and Honeywell Information Systems, Inc.      *
 8 &-  *                                                         *
 9 &-  ***********************************************************
10 &-
11 &-  Modification history:
12 &-  Modified 1984-12-11 BIM: new value segments.
13 &-
14 &trace &command off
15 &goto &1
16 &-
17 &label crank_abort
18 &print --> A PREVIOUS CRANK ABORTED. MAKE SURE EVERYTHING IS OK.
19 sm [value_get -pn sys_admin admin_online] "CRANK ABORTED"
20 &goto common
21 &-
22 &label not_user
23 &print --> ERROR User &2 is not registered
24 &goto common
25 &-
26 &label fatal
27 &print --> ERROR Serious error. Get help
28 &goto common
29 &-
30 &label no_pmf
31 &print --> ERROR Project &2 master file not found (may be delegated or misspelled)
32 &goto common
33 &-
34 &label try_again
35 &print --> ERROR Try again
36 &goto common
37 &-
38 &label noarg
39 &print --> ERROR Not enough arguments
40 &goto common
41 &-
42 &label noarg_nolock
43 &print --> ERROR Not enough arguments
44 &goto common1
45 &-
46 &label nofile
47 &print --> ERROR File missing: &2
48 &goto common
49 &-
50 &label many_arg
51 &print --> ERROR Too many Arguments
52 &goto common
53 &-
54 &label quote_arg
55 &print --> ERROR Argument must be enclosed in quotes
56 &goto common
57 &-
58 &label badcom
59 &print --> ERROR Invalid command: &2
60 &goto common
61 &-
62 &label already_delegated
63 &print --> ERROR Proj &2 already delegated
64 &goto common
65 &-
66 &label noproj
67 &print --> ERROR Project &2 does not exist
68 &goto common
69 &-
70 &label already_proj
71 &print --> ERROR Project &2 already exists
72 &goto common
73 &-
74 &label crank_absout_missing
75 &print --> ERROR crank.absout not found.
76 &print 'day' may have been done already or crank may have failed to run.
77 &goto common
78 &-
79 &label common
80 admin_util unlock
81 &label common1
82 signal master_ec_error_ -info_string "An error occured in the master.ec"
83 &- program_interrupt would be a noop in the normal Multics environment
84 &goto common1 &- we mean this.
85 &quit
86 &-
87 &label &1
88 &print --> ERROR &1 &2 &3 &4 &5
89 &goto common