1 /* BEGIN INCLUDE FILE ...alm_data.incl.pl1
 2 written 7/14/81 by EBush  */
 3 
 4 dcl       alm_data1$structure  external static;
 5 
 6 dcl       data1_ptr ptr;
 7 
 8 dcl       1 data1   based(data1_ptr),
 9               2 extent        fixed bin,
10               2 decor(1 refer(data1.extent)),
11                   3 name      char(24) varying,
12                   3 number    fixed bin(35);
13 
14 dcl       alm_data2$structure  external static;
15 
16 dcl       data2_ptr ptr;
17 
18 dcl       1 data2   based(data2_ptr),
19              2 num_of_classes_less_1    fixed bin,
20              2 num_of_decors            fixed bin,
21              2 compatible(0:1 refer(data2.num_of_classes_less_1),1 refer(data2.num_of_decors)) bit(1);
22 
23 data1_ptr = addr(alm_data1$structure);
24 data2_ptr = addr(alm_data2$structure);
25 
26 /* END OF INCLUDE FILE ...alm_data.incl.pl1  */