2016.5.5_十进制转二进制【ABAP】

PARAMETER:P_INPUT TYPE STRING DEFAULT 33.
DATA GV_INPUT TYPE STRING.
DATA GV_MOD TYPE I.
DATA GV_FLOOR TYPE I.

DATA:BEGIN OF GT_ANSWER OCCURS 0,
        DATA TYPE I, 
      END OF GT_ANSWER.

GV_INPUT = P_INPUT.
DO 100 TIMES.
GV_MOD = GV_INPUT MOD 2.
    IF GV_INPUT LT 2.
        GT_ANSWER-DATA = GV_MOD.
        INSERT GT_ANSWER INDEX 1.
        EXIT.
    ENDIF.
 GV_INPUT = FLOOR( GV_INPUT / 2 ).
 GT_ANSWER-DATA = GV_MOD.
 INSERT GT_ANSWER INDEX 1.
ENDDO.

LOOP AT GT_ANSWER.
WRITE:GT_ANSWER-DATA.
ENDLOOP.