COBOL/400 Language Help

Format 1 Serial Search

Description
The Format 1 (Serial Search) statement runs a serial search beginning at the current index setting.
Format 1 (Serial Search)
 
->->--SEARCH identifier-1-*--------------------------*------------>
                        *-VARYING-*-identifier-2-*-*
                                  *-index-name-1-*
 
->---*---------------------------------------*------------------->
    *---*----*---END imperative-statement-1-*
        *-AT-*
 
    *-----------------------------------------*
    V                                         +
->-*-WHEN condition-1-*-imperative-statement-2-*--------------*--><-
  +                  *-NEXT SENTENCE----------*              +
  +                                                          +
  + *-----------------------------------------*              +
  + V                                         +              +
  *-WHEN condition-1---imperative-statement-2-**------------**
                                               *-END-SEARCH-*


[ Top of Page | Previous Page | Next Page | Table of Contents ]