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

Performs a logical shift to the right.

**I**- must be of type integer.
**SHIFT**- must be of type integer. It must be non-negative and less than or equal to BIT_SIZE(I).

**Class**

Elemental function

**Result Type and Attributes**

Same as I.

**Result Value**

- The result has the value obtained by shifting the bits of I by SHIFT positions to the right.
- Vacated bits are filled with the sign bit.
- The bits are numbered 0 to BIT_SIZE(I)-1, from right to left.

**Examples**

RSHIFT (3, 1) has the result 1.

RSHIFT (3, 2) has the result 0.

Specific Name | Argument Type | Result Type | Pass As Arg? |
---|---|---|---|

RSHIFT | any integer | same as argument | yes |

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