1 /* BEGIN INCLUDE FILE gtss_db_names.incl.pl1 */
 2 /*
 3   Created:  (Wardd Multics)  03/29/79 1909.1 mst Thu
 4 */
 5 
 6 /* To provide a new debugging switch:
 7 
 8    1) Locate the comment "Insert next entry above this comment".
 9 
10    2) Place a new declaration for a db_ variable just
11       above this comment, in the same manner as the
12       current declaration just above the comment, using
13       the next integer gtss_ext_$db index.
14 
15    3) Execute the gtss|db_names ted macro (this updates
16       the sorted name table).
17 
18    4) Example use:
19 
20       if db_drl_grow then do;
21       .
22       .
23       .
24       debug i/o statements using com_err_ or ioa_
25       .
26       .
27       .
28       end;
29 
30 */
31 
32 dcl (
33  db_                bit(1) defined(gtss_ext_$db(01))
34 ,db_CFP_input       bit(1) defined(gtss_ext_$db(02))
35 ,db_drl_addmem      bit(1) defined(gtss_ext_$db(03))
36 ,db_drl_defil       bit(1) defined(gtss_ext_$db(04))
37 ,db_drl_filact      bit(1) defined(gtss_ext_$db(05))
38 ,db_drl_filsp       bit(1) defined(gtss_ext_$db(06))
39 ,db_drl_grow        bit(1) defined(gtss_ext_$db(07))
40 ,db_drl_rew         bit(1) defined(gtss_ext_$db(08))
41 ,db_filact_funct02  bit(1) defined(gtss_ext_$db(09))
42 ,db_filact_funct03  bit(1) defined(gtss_ext_$db(10))
43 ,db_filact_funct04  bit(1) defined(gtss_ext_$db(11))
44 ,db_filact_funct05  bit(1) defined(gtss_ext_$db(12))
45 ,db_filact_funct10  bit(1) defined(gtss_ext_$db(13))
46 ,db_filact_funct11  bit(1) defined(gtss_ext_$db(14))
47 ,db_filact_funct14  bit(1) defined(gtss_ext_$db(15))
48 ,db_filact_funct18  bit(1) defined(gtss_ext_$db(16))
49 ,db_filact_funct19  bit(1) defined(gtss_ext_$db(17))
50 ,db_filact_funct21  bit(1) defined(gtss_ext_$db(18))
51 ,db_filact_funct22  bit(1) defined(gtss_ext_$db(19))
52 ,db_interp_prim     bit(1) defined(gtss_ext_$db(20))
53 ,db_ios             bit(1) defined(gtss_ext_$db(21))
54 ,db_run_subsystem   bit(1) defined(gtss_ext_$db(22))
55 ,db_drl_t_cfio      bit(1) defined(gtss_ext_$db(23))
56 ,db_drl_switch      bit(1) defined(gtss_ext_$db(24))
57 ,db_drl_dio         bit(1) defined(gtss_ext_$db(25))
58 ,db_drl_retfil      bit(1) defined(gtss_ext_$db(26))
59 ,db_drl_msub        bit(1) defined(gtss_ext_$db(27))
60 ,db_drl_callss      bit(1) defined(gtss_ext_$db(28))
61 ,db_drl_rstswh      bit(1) defined(gtss_ext_$db(29))
62 ,db_drl_setswh      bit(1) defined(gtss_ext_$db(30))
63 ,db_mcfc            bit(1) defined(gtss_ext_$db(31))
64 ,db_dq              bit(1) defined(gtss_ext_$db(32))
65 ,db_abs             bit(1) defined(gtss_ext_$db(33))
66 ,db_attributes_mgr  bit(1) defined(gtss_ext_$db(34))
67 ,db_expand_pathname bit(1) defined(gtss_ext_$db(35))
68 ,db_drl_part        bit(1) defined(gtss_ext_$db(36))
69 ,db_drl_morlnk      bit(1) defined(gtss_ext_$db(37))
70 ,db_drl_kin         bit(1) defined(gtss_ext_$db(38))
71 /* Insert next entry above this comment. */
72 );
73 
74 /* Table of sorted names. */
75 dcl 1 debug_bit_names (38) static int options(constant)
76 ,     2 name char(18)var init(
77          "" ,"CFP_input" ,"abs" ,"attributes_mgr" ,"dq" ,"drl_addmem"
78          ,"drl_callss" ,"drl_defil" ,"drl_dio" ,"drl_filact" ,"drl_filsp"
79          ,"drl_grow" ,"drl_kin" ,"drl_morlnk" ,"drl_msub" ,"drl_part"
80          ,"drl_retfil" ,"drl_rew" ,"drl_rstswh" ,"drl_setswh" ,"drl_switch"
81          ,"drl_t_cfio" ,"expand_pathname" ,"filact_funct02" ,"filact_funct03"
82          ,"filact_funct04" ,"filact_funct05" ,"filact_funct10" ,"filact_funct11"
83          ,"filact_funct14" ,"filact_funct18" ,"filact_funct19" ,"filact_funct21"
84          ,"filact_funct22" ,"interp_prim" ,"ios" ,"mcfc" ,"run_subsystem"
85                               )
86 ,     2 value fixed bin init(
87          01 ,02 ,33 ,34 ,32 ,03 ,28 ,04 ,25 ,05 ,06 ,07 ,38 ,37 ,27 ,36 ,26 ,08
88          ,29 ,30 ,24 ,23 ,35 ,09 ,10 ,11 ,12 ,13 ,14 ,15 ,16 ,17 ,18 ,19 ,20 ,21
89          ,31 ,22
90                               );
91 /* End of table. */
92 /*   END INCLUDE FILE gtss_db_names.incl.pl1 */