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

Performs a logical shift to the left.

**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 left.
- Vacated bits are filled with zeros.
- The bits are numbered 0 to BIT_SIZE(I)-1, from right to left.

**Examples**

LSHIFT (3, 1) has the result 6.

LSHIFT (3, 2) has the result 12.

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

LSHIFT | any integer | same as argument | yes |

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