VMS Help
COBOL, PROCEDURE_DIVISION, SEARCH, 2format_binary

 *Conan The Librarian

  The SEARCH statement searches for a table element that satisfies a
  condition.  It sets the value of the associated index to point to the
  table element.

  Format 2 -

   SEARCH ALL src-table [ AT END stment ]

       WHEN { elemnt    { IS EQUAL TO } arg }
            {           { IS =        }     }
            { cond-name                     }

      [ AND { elemnt    { IS EQUAL TO } arg } ] ...
      [     {           { IS =        }     } ]
      [     { cond-name                     } ]

        { stment [ END-SEARCH ] }
        { NEXT SENTENCE         }

  1 - src-table

  is a table identifier.

  2 - stment

  is an imperative statement.

  3 - elemnt

  is an indexed data-name.  It refers to the table element against
  which the argument is compared.

  4 - arg

  is the argument tested against each element (elemnt) in the search.
  It is an identifier, a literal, or an arithmetic expression.

  5 - cond-name

  is a condition-name.
  Close     Help