1 &version 2
2 &- ***********************************************************
3 &- * *
4 &- * Copyright, C Honeywell Information Systems Inc., 1983 *
5 &- * *
6 &- ***********************************************************
7 &- Author: Ron Barstad 1982
8 &- Modified: Ron Barstad 1982 Added mode parameter
9 &- Modified: Ron Barstad 83-04-18 Changed max size to 20 times current
10 &trace &command off
11 &trace &input off
12 &if exists argument &1 &then &goto cont
13 string USAGE: ec &ec_name GCOS_FILE_NAME mode
14 &quit
15
16 &label cont
17 &if exists branch &1 &then &goto cont2
18 string &ec_name.ec: Segment &1 unknown. Quiting.
19 &quit
20
21 &label cont2
22 &goto &ec_name
23
24 &label query_init
25 &label attr
26 add_name &1 &1.mode.response "mode: r or s?"
27 add_name &1 &1.maxl.response "maxl: #llinks?"
28 add_name &1 &1.curl.response "curl: #llinks?"
29 add_name &1 &1.attr.response "attr: 12octal?"
30 add_name &1 &1.busy.response "busy: yes or no?"
31 add_name &1 &1.null.response "null: yes or no?"
32 add_name &1 &1.noal.response "noal: #allocations?"
33 add_name &1 &1.crdt.response "crdt: MMDDYY?"
34 &quit
35
36 &label init
37 &label gcos_file_attributes
38 &label gtss_file_attributes
39 &label gfa
40 &default &undefined s
41 &if &equal &search &2 rs 1 &then &goto add_n
42 string &ec_name.ec: Mode "&r2" unknown, must be r or s. Quiting.
43 &quit
44
45 &label add_n
46 &set llinks ceil quotient times status &1 -cl 1024 320
47 add_name &1 &1.mode.substr &2 1 1
48 add_name &1 &1.maxl.times &llinks 20
49 add_name &1 &1.curl.&llinks
50 add_name &1 &1.attr.0
51 add_name &1 &1.busy.no
52 add_name &1 &1.null.no
53 add_name &1 &1.noal.0
54 add_name &1 &1.crdt.substr date 1 2substr date 4 2substr date 7 2
55 &quit