VMS Help  —  COBOL  DATA_DIVISION, clauses  VALUE_IS, 2format THROUGH
  The VALUE IS clause defines the values associated with
  condition-names, the initial value of Working-Storage Section data
  items, the value of Report Section printable items, the compile-time
  initialization of variables to the address of data, and to external
  constants.

  Format 2 -

   { VALUE IS   } { { EXTERNAL external-name }
   { VALUES ARE } { { REFERENCE data-name    }
                  { { low-val                }

                       [ { THRU    } { EXTERNAL external-name } ] }
                       [ { THROUGH } { REFERENCE data-name    } ] } ...
                                     { high-val               } ] }

1  –  low-val

  is a numeric or nonnumeric literal.  It is the lowest value in a
  range of values associated with a condition-name in a level 88 data
  description entry.

2  –  high-val

  is a numeric or nonnumeric literal.  It is the highest value in a
  range of values associated with a condition-name in a level 88 data
  description entry.

3  –  data-name

  names a data item in the File or Working-Storage Section.
  Data-name may be qualified.

4  –  external-name

  names a COBOL link-time bound constant.  It must define a word or
  longword integer value.
Close Help