Library /sys$common/syshlp/CDDLHELP.HLB  —  BLANK_WHEN_ZERO, Example
  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.
Close Help