Rocket® Net Express™ (formerly a product of Micro Focus or formerly a product of Open Text) documentation, created before Rocket Software acquired certain products from OpenText, may include outdated references to "Micro Focus" or "OpenText", both of which are trademarks of OpenText or its affiliates. Rocket Software is not affiliated with Micro Focus or OpenText and has since rebranded these products as Rocket® products. You may also encounter outdated links in this documentation. If you do, please contact Rocket Support (support@rocketsoftware.com) for assistance.
CBL_AND
Does a logical AND between the bits of two data items.
Syntax:
call "CBL_AND" using source target by value length
Parameters:
| Using call prototype (see Key) | Picture (32-bit systems) | |
|---|---|---|
| source | cblt-x1-compx | Any data item. |
| target | cblt-x1-compx | Any data item. |
| length | cblt-os-size | Numeric literal or pic x(4) comp-5. |
On Entry:
| source | One of the data items to AND. |
| target | The other data item to AND. |
| length | The number of bytes of source and target to AND. Positions in target beyond this are unchanged. |
On Exit:
| target | The result. |
Comments:
The routine starts at the left-hand end of source and target and ANDs the bits together, storing the result in target. The truth table for this is:
| source | target | result |
|---|---|---|
| 0 | 0 | 0 |
| 0 | 1 | 0 |
| 1 | 0 | 0 |
| 1 | 1 | 1 |
Related Topics