1 /* BEGIN INCLUDE FILE ... declare_type.incl.pl1 */
 2 
 3 /* Modified: 25 Apr 1979 by PCK to implement 4-bit decimal */
 4 
 5 dcl  (    by_declare          initial("001"b),
 6           by_explicit_context initial("010"b),
 7           by_context          initial("011"b),
 8           by_implication      initial("100"b),
 9           by_compiler         initial("101"b)) int static bit(3) aligned options(constant);
10 
11 /* END INCLUDE FILE ... declare_type.incl.pl1 */