1 /* ====== BEGIN INCLUDE SEGMENT         apl_value_bead.incl.pl1 =================================== */
 2 
 3 declare
 4           number_of_dimensions fixed bin,
 5 
 6           1 value_bead                  aligned based,
 7           2 header                      aligned like general_bead,
 8           2 total_data_elements         fixed binary (21),  /* length of ,[value] in APL            */
 9           2 rhorho                      fixed binary,       /* number of dimensions of value        */
10           2 data_pointer                pointer unaligned,  /* packed pointer to the data in value  */
11           2 rho                         fixed binary (21) dimension (number_of_dimensions refer (value_bead.rhorho));
12                                                             /* dimensions of value (zero-origin)    */
13 
14 
15 declare 1 character_data_structure      aligned based,      /* alignment trick for PL/I compiler    */
16           2 character_datum             character (1) unaligned dimension (0:data_elements - 1);
17                                                             /* actual elements of character array   */
18 
19 declare   character_string_overlay      character (data_elements) aligned based;
20                                                             /* to overlay on above structure         */
21 
22 
23 declare   numeric_datum                 float aligned dimension (0:data_elements - 1) based;
24                                                             /* actual elements of numeric array     */
25 
26 declare   complex_datum                 complex float aligned dimension (0:data_elements -1) based;
27 
28 declare   MAX_VALUE_BEAD_SIZE           fixed bin (19) init (261120) int static options (constant);
29 
30 /* ------ END INCLUDE SEGMENT           apl_value_bead.incl.pl1 ----------------------------------- */