CALL

Folgende Syntax wird für das CALL Statement erkannt:

>>-CALL--+-identifier-1--------+-------------------------------->
         +-literal-1-----------+   
         +-procedure-pointer-1-+   
         '-function-pointer-1--'   

>--+--------------------------------------------------------------------------------------------+-->
   |        .---------------------------------------------------------------------------------. |   
   |        |                          .---------------------------------------------------.  | |   
   |        V                          V                                                   |  | |   
   '-USING----+-+-------------------+----+-+------------+--identifier-2-+-+--------------+-+--+-+-'   
              | '-+----+--REFERENCE-'    | '-ADDRESS OF-'                 |-fixed-phrase-|    |       
              |   '-BY-'                 +-file-name-1------------------+                     |       
              |                          '-OMITTED----------------------'                     |       
              |                  .---------------------------------------------------.        |       
              |                  V                                                   |        |       
              +-+----+--CONTENT----+-+------------+--identifier-3-+-+--------------+-+--------+       
              | '-BY-'             | +-ADDRESS OF-+               | |-fixed-phrase-|          |       
              |                    | '-LENGTH OF--'               |                           |       
              |                    +-literal-2--------------------+                           |       
              |                    '-OMITTED----------------------'                           |       
              |                .----------------------------------.                           |       
              |                V                                  |                           |       
              '-+----+--VALUE----+-+------------+--identifier-4-+-+---------------------------'       
                '-BY-'           | +-ADDRESS OF-+               |                   
                                 | '-LENGTH OF--'               |                   
                                 '-literal-3--------------------'                   

>--+-------------------------+--+-----------------------+---+----------+----><
   '-RETURNING--identifier-5-'  '-| exception-phrases |-'   '-END-CALL-'

fixed-phrase
>-'AS FIXED LENGTH'--integer-4--><

exception-phrases

|--+-----------------------------------------------------------------------------+--|
   +-+-------------------------------------------+--+--------------------------+-+   
   | '-+----+--EXCEPTION--imperative-statement-1-'  '-| not-exception-phrase |-' |   
   |   '-ON-'                                                                    |   
   '-+----+--OVERFLOW--imperative-statement-3------------------------------------'   
     '-ON-'                                                                          

not-exception-phrase

|--+------------------------------------------------+-----------|
   '-NOT--+----+--EXCEPTION--imperative-statement-2-'   
          '-ON-'                                        
cobmig:cobol:stmt:call · Zuletzt geändert: 09.08.2024 13:24

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