1 2 /* BEGIN INCLUDE FILE ... cobol_ext_ddsyn.incl.pl1 */ 3 /* Last modified on 06/18/76 by ORN */ 4 5 /**********>UDD>L2COBOL>INCLUDE>A_COBOL_EXT_DDSYN INCLUDE FILE**********/ 6 dcl cobol_ext_ddsyn$cobol_sv_ptr ptr ext; 7 dcl cobol_sv_ptr ptr defined ( cobol_ext_ddsyn$cobol_sv_ptr); /*to shared_variables*/ 8 dcl 1 cobol_ext_ddsyn$cobol_wkbuf1_tbl ext like cobol_wkbuf1_tbl; 9 dcl 1 cobol_wkbuf1_tbl defined ( cobol_ext_ddsyn$cobol_wkbuf1_tbl), /* -250- */ 10 2 wkbuf1 char(1000); 11 dcl 1 cobol_ext_ddsyn$cobol_wkbuf2_tbl ext like cobol_wkbuf2_tbl; 12 dcl 1 cobol_wkbuf2_tbl defined ( cobol_ext_ddsyn$cobol_wkbuf2_tbl), /* -125- */ 13 2 wkbuf2 char(500); 14 dcl 1 cobol_ext_ddsyn$cobol_htbl (49) ext like cobol_htbl; 15 dcl 1 cobol_htbl (49) defined ( cobol_ext_ddsyn$cobol_htbl), /* -343- */ /*hierarchy table*/ 16 2 level fixed bin, /*level*/ 17 2 item_length fixed bin, /*byte length*/ 18 2 occno fixed bin, /*number of occurrences per OCCURS clause*/ 19 2 nt_rec char(5), /*write ads in NT*/ 20 2 do_rec char(5), /*write ads in COM for object of length or occurs DEPENDING*/ 21 2 minivector bit(18), /*store vector bits not in type9token for inheritance*/ 22 2 nt_rec_valid bit(1), /*set if nt_rec has been set*/ 23 2 do_rec_valid bit(1), /*set if do_rec has been set*/ 24 2 occurs_clause bit(1), /*set for item has OCCURS*/ 25 2 odo_switch bit(1), /*set for item has occurs depending clause*/ 26 2 occurs_ext bit(1), /*set for item has occurs extension*/ 27 2 switch_88 bit(1), /*set for item has associated level 88 items*/ 28 2 exp_redefining bit(1); /*set for subject of REDEFINES*/ 29 /* 30 3 of_no_interest1 bit(4), 31 3 value_clause bit(1), 32 3 of_no_interest2 bit(4), 33 3 inherit_value bit(1), 34 3 code_set bit(1), 35 3 assoc_with_pic_s bit(1), 36 3 unused bit(6); 37 */ 38 /* END INCLUDE FILE ... cobol_ext_ddsyn.incl.pl1 */ 39