1 
 2 /* STATIC DATA */
 3 
 4 
 5 
 6 dcl 1 ioerror static,
 7      2 cobol_code fixed bin,
 8      2 retry_tag fixed bin,
 9      2 is_tag fixed bin,
10      2 ns_tag fixed bin,
11      2 type1_ptr ptr,
12      2 mode fixed bin;
13 
14 dcl epp2 (4) bit(18) static init(
15           "110000000000000000"b, "011101010001000000"b,     /* epp2   pr6|stoff for tvstat_ptr */
16           "110000000001001100"b, "010101010001000000"b);    /* spri2  pr6|76    */
17 
18 dcl mcode_off fixed bin static init(0);
19 
20 
21 /* EXTERNAL ENTRY NAMES */
22 
23 dcl cobol_ioop_util$set_lock entry;
24 dcl cobol_emit entry(ptr,ptr,fixed bin);
25 dcl cobol_ioop_util$set_stz entry;
26 dcl cobol_call_op entry(fixed bin, fixed bin);
27 dcl cobol_reg_manager$after_op entry(fixed bin);
28 dcl cobol_set_fsbptr entry(ptr);
29 dcl cobol_gen_ioerror entry(ptr, ptr);
30 dcl cobol_gen_ioerror$finish_up entry(ptr, ptr);
31 dcl cobol_alloc$stack entry(fixed bin,fixed bin,fixed bin);
32 dcl cobol_read_ft entry(fixed bin,ptr);
33 dcl cobol_define_tag entry(fixed bin);
34 
35 /* sub-generators */
36 dcl cobol_file_util$open entry(ptr);
37 dcl cobol_open_util$set_fsb entry(ptr,fixed bin);
38 dcl cobol_io_util$file_desc entry(fixed bin(24));
39 
40 /* BUILTIN FUNCTIONS */
41 
42           /*****    Declaration for builtin function        *****/
43 
44 dcl       (substr,mod,binary,fixed,addr,addrel,rel,length,
45           string,unspec,null,index)               builtin;
46 
47 
48 %include cobol_file_table;
49 %include cobol_type19;
50 %include cobol_type12;
51 %include cobol_type1;
52 %include cobol_;