1 2 /* BEGIN INCLUDE FILE ... cobol_variable_area.incl.pl1 */ 3 /* Last modified June 25, 1974 by GM */ 4 5 dcl 1 variable_area aligned based(p2), 6 2 decl_vers fixed bin initial(1), 7 2 identifier char(8) aligned, 8 2 flags fixed bin, 9 2 greatest_severity fixed bin, 10 2 root bit(18) unaligned, 11 2 profile bit(18) unaligned, 12 2 map_first bit(18) unaligned, 13 2 map_last bit(18) unaligned, 14 2 segname_relp bit(18) unaligned, 15 2 segname_length bit(18) unaligned; 16 17 /* END INCLUDE FILE ... cobol_variable_area.incl.pl1 */ 18