VMS Help
COBOL, DATA_DIVISION, clauses, VALUE_IS, 2format THROUGH

 *Conan The Librarian

  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