1 
  2 /* BEGIN INCLUDE FILE ... cobol_ext_lex.incl.pl1 */
  3 /* Last modified on 06/18/76 by ORN */
  4 
  5 /*   * * *   LEX EXTERNAL DATA   * * *   */
  6 
  7 /* Pointers */
  8 
  9 dcl     cobol_ext_lex$cobol_current ptr ext;
 10 dcl     cobol_current ptr defined (  cobol_ext_lex$cobol_current);
 11 dcl     cobol_ext_lex$cobol_top ptr ext;
 12 dcl     cobol_top ptr defined (  cobol_ext_lex$cobol_top);
 13 dcl     cobol_ext_lex$cobol_frst ptr ext;
 14 dcl     cobol_frst ptr defined (  cobol_ext_lex$cobol_frst);
 15 dcl     cobol_ext_lex$cobol_mfp ptr ext;
 16 dcl     cobol_mfp ptr defined (  cobol_ext_lex$cobol_mfp);
 17 dcl     cobol_ext_lex$cobol_rt_ptr ptr ext;
 18 dcl     cobol_rt_ptr ptr defined (  cobol_ext_lex$cobol_rt_ptr);
 19 dcl     cobol_ext_lex$cobol_cfp ptr ext;
 20 dcl     cobol_cfp ptr defined (  cobol_ext_lex$cobol_cfp);
 21 dcl     cobol_ext_lex$cobol_ta_ptr ptr ext;
 22 dcl     cobol_ta_ptr ptr defined (  cobol_ext_lex$cobol_ta_ptr);
 23 dcl     cobol_ext_lex$cobol_elt_buf_ptr ptr ext;
 24 dcl     cobol_elt_buf_ptr ptr defined (  cobol_ext_lex$cobol_elt_buf_ptr);
 25 dcl     cobol_ext_lex$cobol_lex_exit /*[*/ label /*]*/ /*[[[ entry static ]]]*/ ext;
 26 dcl     cobol_lex_exit /*[*/ label /*]*/ /*[[[ entry static ]]]*/ defined(  cobol_ext_lex$cobol_lex_exit); /* -6- */
 27 
 28 /* Character */
 29 
 30 dcl     cobol_ext_lex$cobol_tarea char (300) ext;
 31 dcl     cobol_tarea char (300) defined (  cobol_ext_lex$cobol_tarea);    /* -75- */
 32 dcl     cobol_ext_lex$cobol_comma_character char (1) ext;
 33 dcl     cobol_comma_character char (1) defined (  cobol_ext_lex$cobol_comma_character);
 34 dcl     cobol_ext_lex$cobol_decimal_point_character char (1) ext;
 35 dcl     cobol_decimal_point_character char (1) defined (  cobol_ext_lex$cobol_decimal_point_character);
 36 dcl     cobol_ext_lex$cobol_new_line_character char (1) ext;
 37 dcl     cobol_new_line_character char (1) defined (  cobol_ext_lex$cobol_new_line_character);
 38 dcl     cobol_ext_lex$cobol_si_key char (5) ext;
 39 dcl     cobol_si_key char (5) defined (  cobol_ext_lex$cobol_si_key);     /* -2- */
 40 dcl     cobol_ext_lex$cobol_so_key char (5) ext;
 41 dcl     cobol_so_key char (5) defined (  cobol_ext_lex$cobol_so_key);     /* -2- */
 42 
 43 /* Fixed bin */
 44 
 45 dcl    cobol_ext_lex$ph_num fixed bin ext;
 46 dcl     ph_num fixed bin defined(cobol_ext_lex$ph_num );
 47 dcl     cobol_ext_lex$cobol_c_l_n fixed bin ext;
 48 dcl     cobol_c_l_n fixed bin defined (  cobol_ext_lex$cobol_c_l_n);
 49 dcl     cobol_ext_lex$cobol_save_cln fixed bin ext;
 50 dcl     cobol_save_cln fixed bin defined (  cobol_ext_lex$cobol_save_cln);
 51 dcl     cobol_ext_lex$cobol_save_col fixed bin ext;
 52 dcl     cobol_save_col fixed bin defined (  cobol_ext_lex$cobol_save_col);
 53 dcl     cobol_ext_lex$cobol_name_number fixed bin ext;
 54 dcl     cobol_name_number fixed bin defined (  cobol_ext_lex$cobol_name_number);
 55 dcl     cobol_ext_lex$cobol_section_number fixed bin ext;
 56 dcl     cobol_section_number fixed bin defined (  cobol_ext_lex$cobol_section_number);
 57 dcl     cobol_ext_lex$cobol_sr fixed bin ext;
 58 dcl     cobol_sr fixed bin defined (  cobol_ext_lex$cobol_sr);
 59 dcl     cobol_ext_lex$cobol_elt_idx fixed bin ext;
 60 dcl     cobol_elt_idx fixed bin defined (  cobol_ext_lex$cobol_elt_idx);
 61 
 62 /* Structures */
 63 
 64 dcl 1     cobol_ext_lex$cobol_cards ext like   cobol_cards;
 65 dcl 1     cobol_cards defined (  cobol_ext_lex$cobol_cards),     /* -67- */
 66     2 column fixed bin,
 67     2 tblanks fixed bin,
 68     2 nr_char fixed bin,
 69     2 name char (256);
 70 
 71 /* Bits */
 72 
 73 dcl cobol_ext_lex$processing_report bit(1) ext;
 74 dcl processing_report bit (1) defined (cobol_ext_lex$processing_report);
 75 dcl cobol_ext_lex$real_end_report bit (1) ext;
 76 dcl real_end_report bit (1) defined (cobol_ext_lex$real_end_report);
 77 dcl     cobol_ext_lex$cobol_continuation bit (1) ext;
 78 dcl     cobol_continuation bit (1) defined (  cobol_ext_lex$cobol_continuation);
 79 dcl     cobol_ext_lex$cobol_pic_switch bit (1) ext;
 80 dcl     cobol_pic_switch bit (1) defined (  cobol_ext_lex$cobol_pic_switch);
 81 dcl     cobol_ext_lex$cobol_allo_init_sw bit (1) ext;
 82 dcl     cobol_allo_init_sw bit (1) defined (  cobol_ext_lex$cobol_allo_init_sw);
 83 dcl     cobol_ext_lex$cobol_lu_sw bit (1) ext;
 84 dcl     cobol_lu_sw bit (1) defined (  cobol_ext_lex$cobol_lu_sw);
 85 dcl     cobol_ext_lex$cobol_scanoff_sw bit (1) ext;
 86 dcl     cobol_scanoff_sw bit (1) defined (  cobol_ext_lex$cobol_scanoff_sw);
 87 dcl     cobol_ext_lex$cobol_output_sw bit (1) ext;
 88 dcl     cobol_output_sw bit (1) defined (  cobol_ext_lex$cobol_output_sw);
 89 dcl     cobol_ext_lex$cobol_stack_sw bit (1) ext;
 90 dcl     cobol_stack_sw bit (1) defined (  cobol_ext_lex$cobol_stack_sw);
 91 dcl     cobol_ext_lex$cobol_copy_found bit (1) ext;
 92 dcl     cobol_copy_found bit (1) defined (  cobol_ext_lex$cobol_copy_found);
 93 dcl     cobol_ext_lex$cobol_head_words (5) bit (1) ext;
 94 dcl     cobol_head_words (5) bit (1) defined (  cobol_ext_lex$cobol_head_words);
 95 dcl     cobol_ext_lex$cobol_elnp_sw bit (1) ext;
 96 dcl     cobol_elnp_sw bit (1) defined (  cobol_ext_lex$cobol_elnp_sw);
 97 dcl     cobol_ext_lex$cobol_dp_sw bit (1) ext;
 98 dcl     cobol_dp_sw bit (1) defined (  cobol_ext_lex$cobol_dp_sw);
 99 dcl     cobol_ext_lex$cobol_endprog_sw bit (1) ext;
100 dcl     cobol_endprog_sw bit (1) defined (  cobol_ext_lex$cobol_endprog_sw);
101 dcl     cobol_ext_lex$cobol_debug_mode bit (1) ext;
102 dcl     cobol_debug_mode bit (1) defined (  cobol_ext_lex$cobol_debug_mode);
103 dcl     cobol_ext_lex$cobol_rwt_init_sw bit (1) ext;
104 dcl     cobol_rwt_init_sw bit (1) defined (  cobol_ext_lex$cobol_rwt_init_sw);
105 dcl     cobol_ext_lex$cobol_init_ta_sw bit (1) ext;
106 dcl     cobol_init_ta_sw bit (1) defined (  cobol_ext_lex$cobol_init_ta_sw);
107 dcl     cobol_ext_lex$cobol_rep_sw bit (1) ext;
108 dcl     cobol_rep_sw bit (1) defined (  cobol_ext_lex$cobol_rep_sw);
109 dcl     cobol_ext_lex$cobol_copy_active bit (1) ext;
110 dcl     cobol_copy_active bit (1) defined (  cobol_ext_lex$cobol_copy_active);
111 dcl     cobol_ext_lex$cobol_ln_sw (2) bit (1) ext;
112 dcl     cobol_ln_sw (2) bit (1) defined (  cobol_ext_lex$cobol_ln_sw);
113 dcl     cobol_ext_lex$cobol_prime_sw bit (1) ext;
114 dcl     cobol_prime_sw bit (1) defined (  cobol_ext_lex$cobol_prime_sw);
115 dcl     cobol_ext_lex$cobol_rec1_sw (2) bit (1) ext;
116 dcl     cobol_rec1_sw (2) bit (1) defined (  cobol_ext_lex$cobol_rec1_sw);
117 dcl     cobol_ext_lex$cobol_progid_sw bit(1) ext;
118 dcl     cobol_progid_sw bit(1) defined (  cobol_ext_lex$cobol_progid_sw);
119 
120 
121 /*   * * *   END LEX EXTERNAL DATA   * * *   */
122 /* END INCLUDE FILE ... cobol_ext_lex.incl.pl1 */
123