1 
  2 /* BEGIN INCLUDE FILE ...   cobol_shared_var.incl.pl1 */
  3           2 min_ptr ptr,
  4           2 ft_ptr ptr,
  5           2 skey_ptr ptr,
  6           2 linage_ptr ptr,
  7           2 fkey_ptr ptr,
  8           2 rnt_ptr ptr,
  9           2 modnt_ptr ptr,
 10           2 ptr1 ptr,
 11           2 save_ptr ptr,
 12           2 save_ptr1 ptr,    /*used only for cond value thru clause*/
 13           2 ptr3 ptr,
 14           2 ptr2 ptr,
 15           2 dn_ptr ptr,       /*to type9 token, usually in wkbuf1*/
 16           2 w2_ptr ptr,       /*to various tokens and records in wkbuf2*/
 17           2 cdtoken_ptr ptr,  /* ptr to cd token */
 18           2 save_w2 ptr,
 19           2 com2_ptr ptr,
 20           2 cm_ptr  ptr,
 21           2 ptr5 ptr,
 22           2 ptr4 ptr,
 23           2 ptr_to_char_tbl ptr,
 24           2 fd_clauses_ptr ptr,
 25           2 nt_fno fixed bin(24),
 26           2 temp_bin1 fixed bin(24),
 27           2 temp_bin2 fixed bin(24),
 28           2 offset_ct fixed bin(24),
 29           2 save_offsets(49) fixed bin(24),
 30           2 bnw fixed bin,    /*indicates wkbuf1 contains unwritten type9*/
 31           2 nl fixed bin,
 32           2 al fixed bin,
 33           2 nsa_index fixed bin,
 34           2 nsa_index_last_fd fixed bin,
 35           2 nsa_work_index fixed bin,
 36           2 name_string_index fixed bin,
 37           2 ul fixed bin,
 38           2 rnt_size fixed bin,
 39           2 min_size_r fixed bin,
 40           2 niv fixed bin,
 41           2 aiv fixed bin,
 42           2 odim fixed bin,
 43           2 index_ct fixed bin,
 44           2 sn fixed bin,
 45           2 h fixed bin,
 46           2 fh fixed bin,
 47           2 hh fixed bin,
 48           2 keycount fixed bin,
 49           2 save_h fixed bin,
 50           2 save_block_desc fixed bin,
 51           2 save_block_min fixed bin,
 52           2 save_block_max fixed bin,
 53           2 save_record_min fixed bin,
 54           2 save_record_max fixed bin,
 55           2 save_line fixed bin,
 56           2 save_line_for66 fixed bin,
 57           2 save_occno fixed bin,
 58           2 dnl fixed bin ,
 59           2 nt_size fixed bin,
 60           2 cm_size fixed bin,
 61           2 rdf_size  fixed bin ,
 62           2 counter1 fixed bin ,
 63           2 counter2 fixed bin ,
 64           2 file_number fixed bin ,
 65           2 cd_index fixed bin,
 66           2 cdno fixed bin,
 67           2 save_cdo fixed bin,
 68           2 rnm_obj12 fixed bin,
 69           2 ixix fixed bin,
 70           2 no_of_88s fixed bin,        /*consecutive type11 tokens beginning at save_wkey*/
 71           2 ix_ino (50) fixed bin,
 72           2 asc_des fixed bin,
 73           2 next_level fixed bin,
 74           2 save_level fixed bin,
 75           2 rdf_level fixed bin,
 76           2 save_column fixed bin,
 77           2 cd_size(12) fixed bin,
 78           2 nsa_name_index (256) fixed bin,
 79           2 nsa_name_length (256) fixed bin,
 80           2 name_string char(300),
 81           2  transltble(256) char(1),
 82           2 one_char_of_zero_bits char(1),
 83           2 cd_name(12) char(32),
 84           2 save_dname char(30),
 85 
 86           2 ch_str char(128) varying,
 87           2 rdf_tbl (49) char(30) varying,
 88           2 stopper char(1),
 89           2 cm_key char(5),
 90           2 rnt_key char(5),
 91           2 mod_key char(5),
 92           2 w_key char(5),
 93           2 rcm_key char(5),
 94           2 save_fd char(5),
 95           2 save_wkey char(5),
 96           2 save_77 char(5),
 97           2 save_01 char(5),
 98           2 save_11 char(5),
 99           2 rdf_01_sav char(5) ,
100           2 save_01_for66 char(5),
101           2 prior_odo_rec char(5),
102           2 prior_obj_rec char(5),
103           2 prior_report_rec char(5),
104           2 prior_qual_rec char(5),
105           2 prior_occ_key char(5),
106           2 prior_linage_name_rec char(5),
107           2 prior_skey_rec char(5),
108           2 prior_rename_rec char(5),
109           2 prior_fkey_rec char(5),
110           2 ix_key (50) char(5),
111           2 fd_clauses bit(36),         /*must be byte aligned*/
112           2 cd_clauses bit(12),
113           2 mask1x bit(32),   /*ba*/
114           2 mask2x bit(32),   /*ba*/
115           2 mask3x bit(32),   /*ba*/
116           2 inftble (32) bit(8),        /*ba*/
117           2 prectble  (32) bit(32),     /*ba*/
118           2 E_tbl bit(64),    /*ba*/
119           2 vector_part bit(128),       /*ba*/
120           2 nsa_lbl_rec (256) bit(1),   /*ba*/
121           2 nsa_cancelled (256) bit(1),
122           2 ll01 bit(1),
123           2 ll77 bit(1),
124           2 cd_initial bit(1),
125           2 min_eof bit(1),
126           2 csline bit(40),   /*ba*/
127           2 section_ind bit(8),         /*ba*/
128           2 sync_rdf bit(1),
129           2 sign_type_temp bit(3),
130           2 save_switch_88 bit(1),
131           2 pre_end_sw bit(1),
132           2 comp_end_sw bit(1),
133           2 qual_sw bit(1),
134           2 file_key_area(128) fixed bin(35),
135           2 prev_qual_key char(5),
136           2 common_key char(5),
137           2 com_status bit(32),
138           2 file_key_size fixed bin,
139           2 key_qual_size fixed bin,
140           2 label_field_num fixed bin,
141           2 tf fixed bin,
142           2 all_ind fixed bin,
143           2 file_ptr ptr,
144           2 work_ptr ptr,
145           2 qual_ptr ptr,
146           2 save_lev_line fixed bin,
147           2 save_lev_col fixed bin;
148 /* END INCLUDE FILE ...   cobol_shared_var.incl.pl1 */
149