CBL_EQ performs a binary, bitwise "equals" operation on a series of bytes.
CALL "CBL_EQ"
USING SOURCE, DEST, LENGTH
GIVING STATUS
| SOURCE PIC X(n) | The source bytes for the operation. |
| DEST PIC X(n) | The destination bytes for the operation. |
| LENGTH Numeric parameter (optional) | 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 | The return status of the operation. Returns "0" if successful, "1" if not. This routine always succeeds, so STATUS always contains a zero. |
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 |