In the following example, the field NEW is initially  set  to  blanks
  when it is accessed by the VAX COBOL compiler.

  ZIP_CODE STRUCTURE.
      NEW        DATATYPE IS UNSIGNED NUMERIC
                 SIZE IS 4 DIGITS
                 BLANK WHEN ZERO.
      OLD        DATATYPE IS UNSIGNED NUMERIC
                 SIZE IS FIVE DIGITS.
  END ZIP_CODE STRUCTURE.