*&---------------------------------------------------------------------*
*& Form CONVERT_BINARY
*&---------------------------------------------------------------------*
form CONVERT_BINARY USING P_VAL P_OUT.
DATA: L_VALUE TYPE STRING,
L_DIV TYPE P DECIMALS 1,
L_MOD(1) TYPE N,
L_OUT(6) TYPE N.
DATA: L_VAL TYPE I.
L_VAL = P_VAL.
DO.
IF L_VAL >= 2.
L_MOD = L_VAL MOD 2.
L_DIV = L_VAL / 2.
L_VAL = TRUNC( L_DIV ).
CONCATENATE L_MOD L_VALUE INTO L_VALUE.
ELSE.
CONCATENATE '1' L_VALUE INTO L_VALUE.
EXIT.
ENDIF.
ENDDO.
L_OUT = L_VALUE.
P_OUT = L_OUT.
endform. " CONVERT_BINARY
*& Form CONVERT_BINARY
*&---------------------------------------------------------------------*
form CONVERT_BINARY USING P_VAL P_OUT.
DATA: L_VALUE TYPE STRING,
L_DIV TYPE P DECIMALS 1,
L_MOD(1) TYPE N,
L_OUT(6) TYPE N.
DATA: L_VAL TYPE I.
L_VAL = P_VAL.
DO.
IF L_VAL >= 2.
L_MOD = L_VAL MOD 2.
L_DIV = L_VAL / 2.
L_VAL = TRUNC( L_DIV ).
CONCATENATE L_MOD L_VALUE INTO L_VALUE.
ELSE.
CONCATENATE '1' L_VALUE INTO L_VALUE.
EXIT.
ENDIF.
ENDDO.
L_OUT = L_VALUE.
P_OUT = L_OUT.
endform. " CONVERT_BINARY