This procedure can be used to set bits in the comarea.
It can also be used to decode the error bit map returned by VGETFORMINFO. The BITMAPCNV procedure decodes a bit map to a byte array if
the function parameter contains a value of one. Each byte in the
byte array represents the corresponding bit in the bit map. If a
bit in the bit map is on (value of one), the corresponding byte
will contain the character of one (1). If the bit is off, the byte will contain the
character of zero (0).
If the function parameter passed contains a value of two, the conversion
will be from byte to bit. A bit map will be produced to reflect
the 1's and 0's in a byte array.
When converting bytes to bits, anything in a byte other than
the character zero (0) causes the corresponding bit in the bit map to
be set to one (1).
In COBOL, BITMAPCNV can be called as shown in the example below.