QRG4187

The unused positions (09-20, 27-42 or 59-74) of a Data-Structure-Subfield specification with a named constant initialization value must be blank. Defaults to blanks.

Specify blanks in positions 9-20, 27-42, and 59-74. Compile again