Rocket® Enterprise Developer (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.
X"F5"
Unpacks the bits in a byte into eight bytes.
Syntax:
call x"F5" using byte
array
Parameters:
| Using call prototype (see Key) | Picture | |
|---|---|---|
| byte | cblt-x1-compx | pic x comp-x. |
| array | cblt-x1-compx occurs 8 | pic x comp-x occurs 8 |
On Entry:
| byte | The byte to be unpacked |
On Exit:
| array | The unpacked bits |
Comments:
The routine takes the eight bits of byte and moves them to the corresponding occurrence within array
10110011 |||||||| +-----------------------+||||||+-------------------------------+ | +---------------+||||+-----------------------+ | | | +-------+||+---------------+ | | | | | |+-------+ | | | v v v v v v v v 00000001 00000000 00000001 00000001 00000000 00000000 00000001 00000001