1 dcl       1 picture_constant aligned,
 2 
 3           2 type              fixed bin(8) unal,            /* 24-charpic,25-realfixpic,26-complexfixpic
 4                                                                       27-realflopic,28-complexflopic */
 5           2 prec              fixed bin(8) unal,            /* precision or length of associated value */
 6           2 scale             fixed bin(8) unal,            /* for both fixed and float pictures,
 7                                                                       =ndigits after "v" - scale_factor */
 8           2 piclength         fixed bin(8) unal,            /* length of picture_constant.chars, <64
 9                                                                       =length of normalized-picture-string */
10           2 varlength         fixed bin(8) unal,            /* length of pictured variable in chars, <64
11                                                                       =length of normalized_picture_string - "k" and "v" */
12           2 scalefactor       fixed bin(8) unal,            /* value of pict-sc-f, -256<=x<256  */
13           2 explength         fixed bin(8) unal,            /* length of exp field for float */
14           2 drift_character   char(1) unal,
15           2 chars             char(64) aligned;