앞선글에 이어쓸려고 하였으나 오류가 발생하여 불가피 하게 글을 나누었습니다.(죄송합니다.)
앞선글에서 사용할
2진수를 10진수로
10진수를 2진수로 변환하는
Macro를 만들어 보았습니다.
define MDEC2BIN.
* Decimal To Binary.
* &1 AS integer : 2진수로 돌려줄 길이를 알려준다.
* &2 AS integer : 10진수 값을지정한다. [Source]
* &3 AS String : 10진수 2진수로 변환한 값을 알려준다. [Result]
DATA : mlv_i1 type i,
mlv_i2 type i,
mlv_i3 type i,
mlv_i4 type i,
mlv_i5 type i,
mlv_p1 type p DECIMALS 1,
mlv_c1 type c,
mlv_i6 type i.
&3 = ''.
mlv_i1 = &2.
while 1 = 1.
mlv_i2 = mlv_i1 mod 2.
mlv_c1 = mlv_i2.
CONDENSE mlv_c1.
mlv_p1 = mlv_i1 / 2 .
mlv_i3 = floor( mlv_p1 ).
CONCATENATE mlv_c1 &3 into &3.
if mlv_p1 < 1 .
exit.
else.
mlv_i1 = mlv_i3.
endif.
ENDwhile.
mlv_i1 = strlen( &3 ).
mlv_i1 = &1 - mlv_i1.
do mlv_i1 times.
CONCATENATE '0' &3 into &3.
enddo.
end-OF-DEFINITION.
DEFINE MBIN2DEC.
DATA : nlv_i1 type i,
nlv_i2 type i,
nlv_i3 type i,
nlv_i4 type i,
nlv_i5 type i,
nlv_c1 type c.
CONDENSE &1.
nlv_i1 = strlen( &1 ).
nlv_i2 = nlv_i1.
&2 = 0.
do nlv_i1 times.
nlv_i3 = nlv_i2 - sy-index.
nlv_c1 = &1+nlv_i3(1).
nlv_i4 = nlv_c1.
nlv_i5 = sy-index - 1.
nlv_i5 = nlv_i4 * ( 2 ** nlv_i5 ).
&2 = &2 + nlv_i5.
ENDdo.
END-OF-DEFINITION.
댓글 6
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
164 | FAQ ABOUT SQL [1] | sapjoy | 2007.03.30 | 3233 |
163 | ABAP TIP 모음 [4] | sapjoy | 2007.03.30 | 4673 |
162 | 함수를 이용한 ALV 따라하기 [11] | sapjoy | 2007.03.30 | 3304 |
161 | ABAP data type에 관한 자료입니다. [10] | SARA | 2007.03.29 | 7349 |
160 | 코딩 스탠다드-변수 네이밍 룰등.. [3] | SARA | 2007.03.29 | 5224 |
159 | SAP UNICODE란? [7] | SARA | 2007.03.29 | 6173 |
158 | Report Painter 설명 [10] | 나침반친구 | 2007.03.29 | 7573 |
157 | CTS OVERVIEW [1] | sapjoy | 2007.03.29 | 4760 |
156 | BSP 참고 자료 [4] | 안진명 | 2007.03.28 | 3378 |
155 | BADI for CMOD [4] | 마달수 | 2007.03.28 | 5528 |
154 | sap search help [14] | 쿠도스 | 2007.03.28 | 5209 |
153 | ALV 영문 자료 입니다. 다른 것과 비슷한 내용이네요. [1] | SARA | 2007.03.28 | 3569 |
152 | ABAP 소개 [1] | SARA | 2007.03.28 | 5213 |
151 | 인터널 테이블 자료 입니다. [8] | SARA | 2007.03.28 | 5135 |
150 | 14장 Enhancement-Exits [9] | sapjoy | 2007.03.28 | 6053 |
149 | The basics for SALV [17] | 펠릭스 | 2007.03.27 | 3986 |
148 | event handling for SALV [14] | 펠릭스 | 2007.03.27 | 4437 |
147 | SAP 오라클비교_검토자료 | SARA | 2007.03.27 | 6391 |
146 | Customer Order Creation Using BAPI [1] | 펠릭스 | 2007.03.27 | 3840 |
145 | 중요한 시스템 변수 [8] | 김성수 | 2007.03.27 | 4175 |
자료 감사합니다.