1 
 2 
 3 dcl 1     con_err static,
 4           2 name char (32) init ("cobol_arg_descriptor"),
 5           2 message_len fixed bin (35) init (60),
 6           2 message char (60) init ("object time instructions plus constants exceed 262,144 words");
 7 
 8 dcl       signal_ entry (char(*), ptr, ptr);
 9 dcl       cobol_pool          entry(char(*),fixed bin,fixed bin);
10 
11 
12 
13 
14 
15           /*****    Declaration for builtin function        *****/
16 
17 dcl       (substr,mod,binary,fixed,addr,addrel,rel,length,
18           string,unspec,null,index)               builtin;
19 
20           /*****    End of declaration for builtin function *****/
21 
22 
23 %include cobol_;
24 %include cobol_type9;
25 %include cobol_occurs_ext;
26 %include cobol_ext_;
27 %include cobol_fixed_common;