cobmig:cobol:stmt:perform [TeamWiSE Referenzdokumentation]

PERFORM

Folgende Syntax wird für das PERFORM-Statement erkannt:

>>-PERFORM------------------------------------------------------>

>--+-procedure-name-1--+-------------------------------+-+-----><
   |                   '-+-THROUGH-+--procedure-name-2-' |   
   |                     '-THRU----'                     |   
   '-+------------------------+--END-PERFORM-------------'   
     '-imperative-statement-1-'

>>-PERFORM------------------------------------------------------>

>--+-procedure-name-1--+-------------------------------+--+-identifier-1-+--TIMES-+-><
   |                   '-+-THROUGH-+--procedure-name-2-'  '-integer-1----'        |   
   |                     '-THRU----'                                              |   
   '-+-identifier-1-+--TIMES--+------------------------+--END-PERFORM-------------'   
     '-integer-1----'         '-imperative-statement-1-'

>>-PERFORM------------------------------------------------------>

>--+-procedure-name-1--+-------------------------------+--| phrase 1 |-+-><
   |                   '-+-THROUGH-+--procedure-name-2-'               |   
   |                     '-THRU----'                                   |   
   '-| phrase 1 |--+------------------------+--END-PERFORM-------------'   
                   '-imperative-statement-1-'                              

phrase 1

|--+----------------------------+--UNTIL--condition-1-----------|
   '-+------+--TEST--+-BEFORE-+-'                       
     '-WITH-'        '-AFTER--'

>>-PERFORM------------------------------------------------------>

>--+-procedure-name-1--+-------------------------------+--| phrase 1 |--| phrase 2 |-+-><
   |                   '-+-THROUGH-+--procedure-name-2-'                             |   
   |                     '-THRU----'                                                 |   
   '-| phrase 1 |--+------------------------+--END-PERFORM---------------------------'   
                   '-imperative-statement-1-'                                            

phrase 1

|--+----------------------------+--VARYING--+-identifier-2-+---->
   '-+------+--TEST--+-BEFORE-+-'           '-index-name-1-'   
     '-WITH-'        '-AFTER--'                                

>--FROM--+-identifier-3-+--BY--+-identifier-4-+--UNTIL---------->
         +-index-name-2-+      '-literal-2----'          
         '-literal-1----'                                

>--condition-1--------------------------------------------------|

phrase 2

   .---------------------------------------------------------------.   
   V                                                               |   
|----AFTER--+-identifier-5-+--FROM--+-identifier-6-+--| phrase 3 |-+--|
            '-index-name-3-'        +-index-name-4-+                   
                                    '-literal-3----'                   

phrase 3

|--BY--+-identifier-7-+--UNTIL--condition-2---------------------|
       '-literal-4----'