VMS Help
COBOL, DATA_DIVISION, clauses, VALUE_IS

 *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, and the constant values of literal screen items.

  1 - 1format_lit

  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, and the constant values of literal screen items.

  Format 1 -

   VALUE IS lit

 1.1 - lit

  is a numeric or nonumeric literal.  In a screen description entry,
  it is a nonnumeric literal.

  2 - 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               } ] }

 2.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.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.

 2.3 - data-name

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

 2.4 - external-name

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

  3 - 3format REFERENCE

  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 3 -

   VALUE IS { REFERENCE data-name }
            { numeric-integer-lit }

 3.1 - data-name

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

 3.2 - numeric-integer-lit

  is a positive numeric integer literal.

  4 - 4format EXTERNAL

  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 4 -

   VALUE IS EXTERNAL external-name

 4.1 - external-name

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