Utilize os seguintes códigos:
Parameter: P_source type p decimals 2.
data: w_int type i,
w_char type c,
w_result(16) type c.
WHILE P_SOURC GE 1.
W_INT = P_SOURC MOD 2.
P_SOURC = P_SOURC DIV 2.
W_CHAR = W_INT .
CONCATENATE W_CHAR W_RESULT INTO W_RESULT .
ENDWHILE. "WHILE P_SOURC GE 1 .
WRITE ? 'BINARY EQUIVALENT:',W_RESULT.
Saudações,
Gurpreet