1 /* BEGIN INCLUDE FILE ... picture_image.incl.pl1
 2 
 3    James R. Davis  12 Mar 79
 4 */
 5 
 6      dcl     1 picture_image        aligned based,
 7                2 type               fixed bin (8) unal,
 8                2 prec               fixed bin (8) unal,     /* precision or length of associated value */
 9                2 scale              fixed bin (8) unal,     /* for both fixed and float pictures,
10                                                                       =ndigits after "v" - scale_factor */
11                2 piclength          fixed bin (8) unal,     /* length of picture_constant.chars, <64
12                                                                       =length of normalized-picture-string */
13                2 varlength          fixed bin (8) unal,     /* length of pictured variable in chars, <64
14                                                                       =length of normalized_picture_string - "k" and "v" */
15                2 scalefactor        fixed bin (8) unal,     /* value of pict-sc-f, -256<=x<256  */
16                2 explength          fixed bin (8) unal,     /* length of exp field for float */
17                2 drift_character    char (1) unal,
18                2 chars              char (0 refer (picture_image.piclength)) aligned;
19 
20      dcl     (
21              picture_char_type      init (24),
22              picture_realfix_type   init (25),
23              picture_complexfix_type
24                                     init (26),
25              picture_realflo_type   init (27),
26              picture_complexflo_type
27                                     init (28)
28              )                      fixed bin (8) unal static internal options (constant);
29 
30 /* END INCLUDE FILE  ... picture_image.incl.pl1  */