1 dcl       first_time          fixed bin static,
 2           op_bit    bit(200) static;
 3 
 4 /*
 5 Procedures Called             */
 6 
 7 dcl
 8           cobol_emit entry (ptr, ptr, fixed bin),
 9           cobol_reg_manager$before_op   entry(fixed bin),
10           cobol_reg_manager$after_op    entry(fixed bin),
11           cobol_make_tagref entry (fixed bin, fixed bin, ptr);
12 
13 
14           /*****    Declaration for builtin function        *****/
15 
16 dcl       (substr,mod,binary,fixed,addr,addrel,rel,length,
17           string,unspec,null,index)               builtin;
18 
19           /*****    End of declaration for builtin function *****/
20 
21 %include cobol_;