1 /*        BEGIN INDCLUDE FILE comp_varattrs.incl.pl1        */
 2 
 3 /* Written - 4/82 - EJW
 4 
 5    Defines constants for all variable attribute flag bits in compose */
 6 
 7 /* Modified - 5/83 - EJW - Changed binary_attr to unscaled_attr */
 8 
 9      dcl     (numeric_attr          init ("100000000"b),    /* binary numeric */
10              counter_attr           init ("010000000"b),    /* counter */
11              string_attr            init ("001000000"b),    /* string */
12              flag_attr              init ("00010000"b),     /* flag */
13              unscaled_attr          init ("000010000"b),    /* unscaled numeric */
14              function_attr          init ("000001000"b),    /* function value */
15              hspace_attr            init ("000000100"b),    /* horizontal millipoint value */
16              vspace_attr            init ("000000010"b),    /* vertical millipoint value */
17              push_attr              init ("000000001"b)) /* pushable variable */
18                                     bit (9) unal static options (constant);
19 
20 /*        END INCLUDE FILE comp_varattrs.incl.pl1           */