Weblogs sobre SAP

Continuando con los programas sin mucho sentido…Que les parece un Decimal a Binario en ABAP…Dudo mucho que alguna vez lo necesiten, pero bueno, un pequeño código nunca está de más -;)

REPORT ZDECIMAL_A_BINARIO.

DATA: SUMA TYPE I,
EXPONENTE TYPE I,
DIGITO TYPE I,
SUMA_TEXT(50) TYPE C.

SELECTION-SCREEN BEGIN OF BLOCK DEC_TO_BIN WITH FRAME.
PARAMETERS:
P_NUMERO TYPE I.
SELECTION-SCREEN END OF BLOCK DEC_TO_BIN.

START-OF-SELECTION.

SUMA = 0.
EXPONENTE = 1.

CATCH SYSTEM-EXCEPTIONS ARITHMETIC_ERRORS = 5.
WHILE P_NUMERO GT 0.
DIGITO = P_NUMERO MOD 2.
P_NUMERO = P_NUMERO DIV 2.
SUMA = SUMA + DIGITO * EXPONENTE.
EXPONENTE = EXPONENTE * 10.
ENDWHILE.
ENDCATCH.

IF SY-SUBRC = 5.
WRITE / ‘Número demasiado grande!’.
ELSE.
SUMA_TEXT = SUMA.
REPLACE ‘.’ WITH SPACE INTO SUMA_TEXT.
REPLACE ‘,’ WITH SPACE INTO SUMA_TEXT.
CONDENSE SUMA_TEXT NO-GAPS.

WRITE: ‘El numero binario es: ‘, SUMA_TEXT.
ENDIF.