1 dcl (     root_block                    initial("000000001"b),
2           external_procedure            initial("000000010"b),
3           internal_procedure            initial("000000011"b),
4           begin_block                   initial("000000100"b),
5           on_unit                       initial("000000101"b))  internal static bit(9) aligned options(constant);