1 dcl       1 rand              based(p) aligned,
 2           2 node_type         fixed bin(15),      /* type of node = 24 */
 3           2 type              fixed bin(15),      /* transformed data type */
 4           2 next              ptr,                /* ptr to next rand node */
 5           2 pointer           ptr,                /* ptr to actual operand */
 6           2 address           ptr,                /* ptr to address block */
 7           2 var_size          ptr,                /* ptr to var holding adj size */
 8           2 var_word_offset   ptr,                /* ptr to var holding adj word offset */
 9           2 var_bit_offset    ptr,                /* ptr to var holding adj bit offset */
10           2 size              fixed bin(15),      /* constant size */
11           2 word_offset       fixed bin(15),      /* constant word offset */
12           2 bit_offset        fixed bin(15),      /* constant bit offset */
13           2 class             fixed bin(15),      /* storage class */
14           2 class_offset      fixed bin(15),      /* offset in storage */
15           2 level             fixed bin(15),      /* nesting level of block owning datum */
16           2 atom              bit(1),             /* true if operand not expression */
17           2 aligned           bit(1),             /* true if operand aligned */
18           2 padded            bit(1),             /* true if operand filled on right */
19           2 varying           bit(1),             /* true for access to varying string */
20           2 long              bit(1),             /* true if bit-offset or size variable or size > 72 */
21           2 store_ins         fixed bin(18),      /* text offset of store instruction  */
22           2 descriptor        ptr,                /* ptr to descriptor block of rand */
23           2 contiguous        bit(1),             /* true if string doesnt cross word boundary */
24           2 abnormal          bit(1);