1 /* BEGIN INCLUDE FILE ... pl1_descriptor.incl.pl1 */
 2 
 3 /* Declaration of PL/I arg descriptor seen as an array of structures of bits */
 4 
 5 dcl       1 descriptor(0:k)   based aligned,
 6           2 bit_type          unaligned,
 7             3 flag            bit(1) unaligned,
 8             3 type            bit(6) unaligned,
 9             3 packed          bit(1) unaligned,
10             3 number_dims     bit(4) unaligned,
11           2 size              bit(24) unaligned;
12 
13 /* END INCLUDE FILE ... pl1_descriptor.incl.pl1 */