1 inquire_lock_data_:
 2           proc;
 3 
 4           dcl 1 inquire_lock_text aligned,
 5                 2 lock_seg_dir          char (168) initial (">libraries>inquire>Database"),
 6                 2 lock_seg_entry        char (32) initial ("inquire.lock"),
 7                 2 read_lock_count       fixed bin (21) initial (10);
 8 
 9           %include cds_args;
10 
11           dcl 1 cdsa                    aligned like cds_args;
12           dcl create_data_segment_      entry (ptr, fixed bin(35));
13           dcl code                      fixed bin (35);
14           dcl com_err_                  entry() options(variable);
15 
16           cdsa.sections (1).p = addr (inquire_lock_text);
17           cdsa.sections (1).len = currentsize (inquire_lock_text);
18           cdsa.sections (1).struct_name = "inquire_lock_text";
19 
20           cdsa.seg_name = "inquire_lock_data_";
21 
22           cdsa.num_exclude_names = 0;
23           cdsa.exclude_array_ptr = null ();
24 
25           string (cdsa.switches) = ""b;
26           cdsa.switches.separate_static = "1"b;
27           cdsa.switches.have_text = "1"b;
28           cdsa.switches.have_static = "0"b;
29 
30           call create_data_segment_ (addr (cdsa), code);
31           if code ^= 0 then call com_err_ (code, "inquire_lock_data_");
32 
33           return;
34      end;
35