ABAP中计算整型数的二进制代码

FUNCTION Z_CONVERT_TO_BINARY.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(I_INT) TYPE  I
*"  EXPORTING
*"     REFERENCE(O_STR) TYPE  STRING
*"----------------------------------------------------------------------
DATA: v_mod TYPE i,
      v_int TYPE i,
      v_c_mod TYPE c.
CONSTANTS: c_binary TYPE i VALUE 2.
v_int = i_int.
DO.
  CLEAR: v_c_mod.
  v_mod = v_int MOD c_binary.
  v_c_mod = v_mod.
  CONCATENATE v_c_mod o_str INTO o_str.
  v_int = v_int DIV c_binary.
  IF v_int = 0.
    EXIT.
  ENDIF.
ENDDO.

 

ENDFUNCTION.