Code: Alles auswählen.
DATA lf_xs TYPE xstring.
DATA lf_xs2 TYPE xstring.
DATA lf_erg TYPE xstring.
DATA lf_test(4) TYPE c.
lf_test = '65'.
lf_xs2 = '63'.
NEW-PAGE.
MOVE lf_test TO lf_xs.
WRITE lf_xs.
WRITE /.
lf_erg = lf_xs BIT-AND lf_xs2.
WRITE lf_erg.
WRITE /.
Code: Alles auswählen.
REPORT demo_data_set_get_bit .
* set bit
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.
* get bit
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.
Code: Alles auswählen.
DATA lf_x TYPE x.
DATA lf_x2 TYPE x.
DATA lf_erg TYPE x.
DATA lf_test(4) TYPE c.
data lf_zahl type i.
lf_test = '65'.
move lf_test to lf_zahl.
move lf_zahl to lf_x.
lf_zahl = '63'.
move lf_zahl to lf_x2.
NEW-PAGE.
*move lf_test TO lf_x.
WRITE lf_x.
WRITE /.
lf_erg = lf_x BIT-AND lf_x2.
*lf_erg = bit-and lf_x2.
WRITE lf_erg.
WRITE /.