ILE COBOL Language Reference

+-------------------------------IBM Extension--------------------------------+

Format 7 - Adjusting Pointers

When Format 7 of the SET statement is executed, the address contained in pointer-data-item is increased (UP BY) or decreased (DOWN BY) by a value that corresponds to the value in the sending field.

SET Statement - Format 7
 
        .-------------------.
        V                   |
>>-SET----pointer-data-item-+--+-UP BY---+---------------------->
                               '-DOWN BY-'
 
>--+-identifier-8------------+---------------------------------><
   +-integer-3---------------+
   '-LENGTH OF--identifier-9-'
 
 
pointer-data-item
The receiving field must be an elementary data item with USAGE IS POINTER.
identifier-8
This sending field must be an elementary integer data-item.

Identifier-8 cannot be a floating-point data item.

integer-3
This sending field must be an integer.
identifier-9
For more information on the rules for identifier-9, see LENGTH OF Special Register.

+----------------------------End of IBM Extension----------------------------+


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