1 /* BEGIN INCLUDE FILE ... encoded_precision.incl.pl1
 2 
 3    This is the format used by assign_ to encode the precision and scale of
 4    arithmetic data into one word.  This structure should be assigned (use unspec)
 5    to a fixed bin (35).
 6 */
 7 
 8 dcl 1 encoded_precision based aligned,
 9       2 scale fixed bin (17) unal,
10       2 prec fixed bin (18) unsigned unal;
11 
12 /* END INCLUDE FILE ... encoded_precision.incl.pl1 */