1 
 2 /* STATIC DATA */
 3 
 4 dcl type_pr1_reloc  (4) bit(5) aligned static options(constant) init("00000"b,"00000"b,"00000"b,"00000"b);
 5 dcl type_pr4_reloc  (4) bit(5) aligned static options(constant) init("00000"b,"00000"b,"10101"b,"10101"b);
 6 dcl type_pr6_reloc  (4) bit(5) aligned static options(constant) init("00000"b,"10101"b,"10101"b,"10101"b);
 7 dcl expr_word_reloc (2) bit(5) aligned static options(constant) init("10101"b,"00000"b);
 8 dcl link_reloc      (4) bit(5) aligned static options(constant) init("11001"b,"00000"b,"10101"b,"00000"b);
 9 
10 dcl msg_5 char (40) static options(constant) init("will overflow the definition section;");
11 dcl msg_6 char (36) static options(constant) init("will overflow the linkage section;");
12 dcl msg_9 char (16) static options(constant) options(constant) init("improper entry");
13 dcl msg_10 char (56) static options(constant) init("""n_words"" does NOT match static init_info area requested");
14 
15 
16 /*  EXTERNAL ENTRY NAMES  */
17 
18 dcl       ioa_$rsnnl                    entry options(variable),
19           cobol_reloc                   entry(ptr,fixed bin,fixed bin),
20           signal_                       entry(char(*),ptr,ptr);
21  dcl      cv_oct_check_ entry (char(*),fixed bin) returns (fixed bin(35));
22  dcl      cv_dec_check_ entry (char(*),fixed bin) returns (fixed bin(35));
23 dcl       cu_$arg_count entry (fixed bin);
24 dcl       cu_$arg_ptr entry (fixed bin, ptr, fixed bin, fixed bin);
25 
26 /*  BUILTIN FUNCTIONS  */
27 
28 dcl       (substr, unspec, addr, addrel) builtin;
29 dcl       (fixed, length, rel, null) builtin;
30 
31 
32 %include cobol_;
33