1 /* ====== BEGIN INCLUDE SEGMENT         apl_list_bead.incl.pl1 ==================================== */
 2 
 3 declare   n_members fixed bin,
 4 
 5           1 list_bead                   aligned based,
 6             2 header                    aligned like general_bead,
 7             2 number_of_members         fixed bin,
 8             2 members                   dimension (n_members refer (list_bead.number_of_members)) aligned,
 9               3 member_ptr              unaligned pointer,
10               3 bits                    unaligned like operator_bead.bits_for_parse;
11 
12 /* ------ END INCLUDE SEGMENT           apl_list_bead.incl.pl1 ------------------------------------ */