1
2
3
4
5 dcl 1 tedcommon_$id ext static,
6 2 ted_vers char(12)var;
7
8 dcl 1 tedcommon_$no_data like buf_des ext static;
9 dcl 1 tedcommon_$no_seg like seg_des ext static;
10
11 dcl 1 tedcommon_$etc ext static,
12 2 com_blank bit(1)aligned,
13 2 com1_blank bit(1)aligned,
14 2 caps bit(1)aligned,
15 2 reset_read bit(1)aligned,
16 2 sws,
17 3 (db_ted, lg_ted) bit(1)aligned,
18 3 (db_addr, lg_addr) bit(1)aligned,
19 3 (db_eval, lg_eval) bit(1)aligned,
20 3 (db_sort, lg_sort) bit(1)aligned,
21 3 (db_gv, lg_gv) bit(1)aligned,
22 3 (db_util, lg_util) bit(1)aligned,
23 3 (db_srch, lg_srch) bit(1)aligned,
24 3 (db_glob, lg_glob) bit(1)aligned,
25 3 (db_trac, lg_sp4) bit(1)aligned,
26 3 (db_Ed, lg_sp3) bit(1)aligned,
27 3 (db_sp2, lg_sp2) bit(1)aligned,
28 3 (db_sp1, lg_sp1) bit(1)aligned,
29 3 (db_catch, lg_catch)bit(1)aligned,
30 2 db_output ptr;
31
32