isCOBOL Evolve : Appendices : Library Routines : CBL_NOT
CBL_NOT
The CBL_NOT library routine examines each bit of the operand. If the bit is 1, the corresponding result bit is set to 0. Otherwise, the corresponding result bit is set to 1.
Before
After
0
1
1
0
Syntax:
 CALL "CBL_NOT" USING destination 
                     [length]
               GIVING returnCode
Parameters:
destination
PIC X(n)
Specifies the operand and receives the result of the operation.
length
any numeric data item or numeric literal
Specifies the number of bytes to be considered when executing the routine. When this parameter is omitted, all bytes in destination are used.
Return code:
returnCode can be any numeric data item and provides additional information:
0
Operation successful.
1
Operation failed.
Examples:
Example - Get the bit level NOT result of a character
move "3" to char1 *> internal bit representation 00110011
            char-result
call "cbl_not" using char-result
if return-code = 0
   display message "NOT " char1 " = " char-result
*> char-result will have internal bit representation 11001100
end-if