1 
 2 
 3 /* STATIC DECLARATIONS */
 4 
 5                     dcl       1 fsb_init          aligned static,
 6                                2 n_words                    fixed bin ,
 7                                2 code             fixed bin init(3),
 8                                2 iocb_ptr         ptr init(null()),
 9                                2 open_mode        fixed bin init(0),
10                                2 max_cra_size     fixed bin init(0),
11                                2 relkeylen        fixed bin init(0),
12                                2 relkey           fixed bin init(0),
13                                2 keylen_sw        fixed bin init(0),
14                                2 key              char(256) init(""),
15                      2 open_close_name  char(65) init((65)" "),
16                                2 linage_counter   char(8) aligned init((8)"0"),
17                                2 bit              fixed bin init(0),
18                                2 filler char(1024)  init("");
19 
20                     declare (alloc_space , first_call) fixed bin static;
21 
22 /* EXTERNAL ENTRY NAMES */
23 
24 dcl       cobol_make_link$type_5        entry(fixed bin,char(*),ptr,fixed bin);
25 
26 /* BUILTIN FUNCTIONS */
27 
28 dcl       (substr,mod,binary,fixed,addr,addrel,rel,length,
29           string,unspec,null,index,size)                    builtin;
30 
31 
32 
33 %include cobol_fsb_type_1;
34 %include cobol_fsbskel;
35 %include cobol_file_table;
36 %include cobol_;