1 /*        BEGIN INCLUDE FILE:           apl_group_bead.incl.pl1                           */
 2 
 3 /*                  Initial Version:    1973.06.18
 4                     Typed in by:        Richard S. Lamson                                           */
 5 
 6 
 7 declare 1 group_bead                    aligned based,      /* Group:  bead_type.group = "1"b       */
 8 
 9           2 header                      aligned like general_bead,
10 
11           2 number_of_members           fixed binary,
12 
13           2 member                      pointer unaligned dimension (0 refer (group_bead.number_of_members));
14                                                             /* Pointer to the symbol bead for each
15                                                                 member of the group                 */
16 
17 /*        END INCLUDE FILE              apl_group_bead.incl.pl1                                     */