1 /* BEGIN INCLUDE FILE ... computational_data.incl.pl1 2 3 12 July 79 JRDavis */ 4 5 /* this is the format of the structure given to assign_$computational_ 6 that describes the data to be assigned */ 7 8 dcl 1 computational_data aligned based, 9 2 address ptr aligned, /* to data */ 10 2 data_type fixed bin (17), /* standard descriptor type */ 11 2 flags aligned, 12 3 packed bit (1) unal, 13 3 pad bit (35) unal, 14 2 prec_or_length fixed bin (24), /* string length or arith prec */ 15 2 scale fixed bin (35), /* must be zero even if has no scale */ 16 2 picture_image_ptr ptr aligned; /* to picture image block */ 17 18 /* END INCLUDE FILE ... computational_data.incl.pl1 */