CBL_EQ performs a binary, bitwise "equals" operation on a series of bytes.
Usage
CALL "CBL_EQ" USING SOURCE, DEST, LENGTH GIVING STATUS
Parameters
SOURCE PIC X(n)
Data area containing the source bytes for the operation
DEST PIC X(n)
Data area containing the destination bytes for the operation
LENGTH Numeric parameter (optional)
Describes the number of bytes to combine. If omitted, then CBL_EQ uses the minimum of the size of SOURCE and the size of DEST.
STATUS Any numeric data item
Contains the return status of the operation. Returns zero if successful, 1 if not. This routine always succeeds, so STATUS always contains a zero.
Description
For LENGTH bytes, each byte of SOURCE is combined with the corresponding byte of DEST. The result is stored back into DEST. The runtime combines the bytes by performing an "equals" operation between each bit of the bytes. The "equals" operation uses the following table to determine the result:
| Eq
| 0
| 1
|
| 0
| 1
| 0
|
| 1
| 0
| 1 |