DATA hex(3) TYPE x.
SET BIT: 09 OF hex TO 1,
         10 OF hex TO 0,
         11 OF hex TO 1,
         12 OF hex TO 1,
         13 OF hex TO 0,
         14 OF hex TO 1,
         15 OF hex TO 0,
         16 OF hex TO 1.
WRITE hex.
ULINE.
DATA: hex1(1) TYPE x VALUE 'B5',
      b(1) TYPE n.
DO 8 TIMES.
  GET BIT sy-index OF hex1 INTO b.
  WRITE b NO-GAP.
ENDDO.