C$LogicalShiftLeft
C$LogicalShiftLeft is used to perform a logical shift left operation on a nonnumeric or
numeric operand.
Calling Sequence
Código COBOL:
CALL "C$LogicalShiftLeft"
[GIVING Result]
USING Operand [ShiftCount]
Result, if specified, must be an identifier that references a numeric data item.
Operand may reference a nonnumeric or numeric data item.
ShiftCount, if specified, must be an identifier that references a numeric data item. If
ShiftCount is not specified, a shift count of 1 is assumed.
If Operand refers to a nonnumeric data item, the value of the data item is shifted left by the
number of bit positions specified by ShiftCount. Any bits shifted off the left end are lost and
zero-valued bits are shifted into the right end. The value of Result is set to a nonzero value if
any character of Operand is nonzero after the operation completes and zero otherwise.
If Operand refers to a numeric data item, the operand is converted, if necessary, to a 32-bit
binary integer. The 32-bit binary value is logically shifted left by the number of bit positions
specified by ShiftCount. If the GIVING phrase is specified, the result of this operation is
stored in Result and the value of Operand is not modified. If the GIVING phrase is not
specified, the result of this operation is stored in Operand.