1 dcl 1 error_info static aligned,
  2       2 name char(32) aligned init("cobol_gen_driver_"),
  3       2 message_len fixed bin aligned,
  4       2 message char(36) aligned;
  5 
  6 dcl reserved_wd fixed bin internal static init(1),
  7     numeric_lit_token fixed bin internal static init(2),
  8     type_9 fixed bin internal static init(9),
  9     index_name_token fixed bin internal static init(10),
 10     eos fixed bin internal static init(19),
 11     internal_tag fixed bin internal static init(30),
 12     tag_equivalence fixed bin internal static init(31),
 13     perform fixed bin internal static init(20),
 14     compute fixed bin internal static init(40);
 15 
 16 
 17 
 18 /*
 19 P^H__^Hr_^Ho_^Hc_^He_^Hd_^Hu_^Hr_^He_^Hs_C^H__^Ha_^Hl_^Hl_^He_^Hd:^H_
 20                                                               */
 21 
 22 dcl cobol_alter_perform entry (ptr, fixed bin),
 23     cobol_reset_r$in_line entry,
 24     signal_ entry (char(*), ptr, ptr),
 25     cobol_equate_tag entry (ptr),
 26     cobol_define_tag entry (fixed bin),
 27     cobol_define_tag_nc entry (fixed bin, fixed bin),
 28     cobol_accept_gen entry (ptr),
 29     cobol_add_gen entry (ptr, fixed bin),
 30     cobol_alter_gen entry (ptr),
 31     cobol_call_gen entry (ptr),
 32     cobol_cancel_gen entry (ptr),
 33     cobol_close_gen entry (ptr),
 34     cobol_divide_gen entry (ptr, fixed bin),
 35     cobol_multiply_gen entry (ptr, fixed bin),
 36     cobol_subtract_gen entry (ptr, fixed bin),
 37     cobol_exit_gen entry (ptr),
 38     cobol_compare_gen entry (ptr),
 39     cobol_go_gen entry (ptr),
 40     cobol_move_gen entry (ptr),
 41     cobol_open_gen entry (ptr),
 42     cobol_perform_gen entry (ptr),
 43     cobol_read_gen entry (ptr, fixed bin),
 44     cobol_gen_ioerror$finish_up_not entry(fixed bin),
 45     cobol_delete_gen entry (ptr, fixed bin),
 46     cobol_receive_gen entry (ptr, fixed bin),
 47     cobol_release_gen entry (ptr),
 48     cobol_return_gen entry (ptr, fixed bin),
 49     cobol_rewrite_gen entry (ptr, fixed bin),
 50     cobol_arithop_gen entry (ptr),
 51     cobol_send_gen entry (ptr),
 52     cobol_set_gen entry (ptr),
 53     cobol_stop_gen entry (ptr),
 54     cobol_write_gen entry (ptr, fixed bin),
 55     cobol_compute_gen entry (ptr, fixed bin),
 56     cobol_disable_gen entry (ptr),
 57     cobol_display_gen entry (ptr),
 58     cobol_enable_gen entry (ptr),
 59     cobol_sort_gen entry (ptr),
 60           cobol_merge_gen entry(ptr),
 61           cobol_profile entry,
 62     cobol_prologue_gen entry (ptr, fixed bin, fixed bin, fixed bin, fixed bin),
 63     cobol_decl_gen entry (fixed bin),
 64     cobol_section_gen entry (ptr),
 65     cobol_paragraph_gen entry (ptr),
 66     cobol_start_gen entry (ptr, fixed bin),
 67     cobol_pool entry(char(*),fixed bin,fixed bin),
 68     cobol_read_rand$fixed_bin entry(fixed bin,fixed bin,ptr),
 69     cobol_seginit_gen entry (fixed bin, fixed bin),
 70     cobol_search_gen entry (ptr, fixed bin),
 71     cobol_inspect_gen entry (ptr),
 72     cobol_string_gen entry (ptr, fixed bin),
 73     cobol_unstring_gen entry (ptr, fixed bin),
 74     cobol_purge_gen entry (ptr),
 75     cobol_end_gen entry (ptr, fixed bin, fixed bin, fixed bin, fixed bin);
 76 
 77 
 78 /*
 79 B^H__^Hu_^Hi_^Hl_^Ht-^H__^Hi_^Hn_F^H__^Hu_^Hn_^Hc_^Ht_^Hi_^Ho_^Hn_^Hs_U^H__^Hs_^He_^Hd:^H_
 80                                                               */
 81 
 82 dcl addr builtin,
 83     addrel builtin,
 84     baseno builtin,
 85     binary builtin,
 86     null builtin,
 87     rel builtin,
 88     substr builtin,
 89     unspec builtin;
 90 
 91 %include cobol_in_token;
 92 %include cobol_type1;
 93 %include cobol_type2;
 94 %include cobol_type9;
 95 %include cobol_type10;
 96 %include cobol_type19;
 97 %include cobol_type30;
 98 %include cobol_;
 99 %include cobol_fixed_common;
100 %include cobol_ext_;
101 %include cobol_op_con;
102 %include cobol_type40;