Folgende Syntax wird für das SEARCH Statement erkannt:

Format 1: SEARCH statement for 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----------'     

>--+------------+----------------------------------------------><
   '-END-SEARCH-'   

Format 2: SEARCH statement for binary search

>>-SEARCH ALL--identifier-1------------------------------------->

>--+-------------------------------------+---------------------->
   '-+----+--END--imperative-statement-1-'   
     '-AT-'                                  

>--WHEN--+-data-name-1--+----+--+-EQUAL--+----+-+--+-identifier-3------------+-+-->
         |              '-IS-'  |        '-TO-' |  +-literal-1---------------+ |   
         |                      '- = -----------'  '-arithmetic-expression-1-' |   
         '-condition-name-1----------------------------------------------------'   

   .----------------------------------------------------------------------------------.   
   V                                                                                  |   
>----+------------------------------------------------------------------------------+-+-->
     '-AND--+-data-name-2--+----+--+-EQUAL--+----+-+--+-identifier-4------------+-+-'     
            |              '-IS-'  |        '-TO-' |  +-literal-2---------------+ |       
            |                      '- = -----------'  '-arithmetic-expression-2-' |       
            '-condition-name-2----------------------------------------------------'       

>--+-imperative-statement-2-+--+------------+------------------><
   '-NEXT SENTENCE----------'  '-END-SEARCH-'   
cobmig:cobol:stmt:search · Zuletzt geändert: 09.02.2023 14:28

Copyright © 1992-2024 TeamWiSE Gesellschaft für Softwaretechnik mbH         Adressen |  Kontakt |  AGB |  Datenschutzerklärung |  Impressum