SET

Folgende Syntax wird für das SET Statement erkannt:

Format 1: SET statement for basic table handling

        .------------------.                         
        V                  |                         
>>-SET----+-index-name-1-+-+--TO--+-index-name-2-+-------------><
          '-identifier-1-'        +-identifier-2-+   
                                  '-integer-1----'   

<html><hr/></html>

Format 2: SET statement for adjusting indexes

        .--------------.                                  
        V              |                                  
>>-SET----index-name-3-+--+-UP BY---+--+-identifier-3-+--------><
                          '-DOWN BY-'  '-integer-2----'   

<html><hr/></html>

Format 3: SET statement for external switches

        .----------------------------------.   
        | .-----------------.              |   
        V V                 |              |   
>>-SET------mnemonic-name-1-+--TO--+-ON--+-+-------------------><
                                   '-OFF-'     

<html><hr/></html>

Format 4: SET statement for condition-names

        .------------------.            
        V                  |            
>>-SET----condition-name-1-+--TO TRUE--------------------------><

<html><hr/></html>

Format 5: SET statement for data-pointers

        .------------------------------.   
        V                              |   
>>-SET----+-identifier-4-------------+-+------------------------>
          '-ADDRESS OF--identifier-5-'     

>--TO--+-identifier-6-------------+----------------------------><
       +-ADDRESS OF--identifier-7-+   
       +-NULL---------------------+   
       '-NULLS--------------------'   

<html><hr/></html>

Format 6: SET statement for procedure-pointers and function-pointers

        .-----------------------------------.   
        V                                   |   
>>-SET----+-procedure-pointer-data-item-1-+-+------------------->
          '-function-pointer-data-item-1--'     

>--TO--+-procedure-pointer-data-item-2-+-----------------------><
       +-function-pointer-data-item-2--+   
       +-ENTRY--+-identifier-8-+-------+   
       |        '-literal-1----'       |   
       +-NULL--------------------------+   
       +-NULLS-------------------------+   
       '-pointer-data-item-3-----------'   

<html><hr/></html>

Format 7: SET statement for object references

>>-SET--object-reference-id-1--TO--+-object-reference-id-2-+---><
                                   +-NULL------------------+   
                                   '-SELF------------------'   

Format 8: SET for length of dynamic-length elementary items

>>-SET--LENGTH OF--identifier-1--TO--+--identifier-2--+--><
                                     |--integer-1-----|
cobmig:cobol:stmt:set · Zuletzt geändert: 09.02.2023 14:31

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