DATA: STRING_1(20) TYPE C, STRING_1_TYPE(4) TYPE C,
STRING_2(20) TYPE C, STRING_2_TYPE(4) TYPE C,
STRING_3(20) TYPE C, STRING_3_TYPE(4) TYPE C.
STRING_1 = '12345678901234567890'.
STRING_2 = 'abcdefg우리나라만세z'.
STRING_3 = 'abcdAAA34557azzidfll'.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
STRING_IN = STRING_1
IMPORTING
HTYPE = STRING_1_TYPE.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
STRING_IN = STRING_2
IMPORTING
HTYPE = STRING_2_TYPE.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
STRING_IN = STRING_3
IMPORTING
HTYPE = STRING_3_TYPE.
WRITE: / STRING_1, ':', STRING_1_TYPE.
WRITE: / STRING_2, ':', STRING_2_TYPE.
WRITE: / STRING_3, ':', STRING_3_TYPE.
* 썬님에 의해서 게시물 이동되었습니다 (2010-03-30 13:09)
STRING_2(20) TYPE C, STRING_2_TYPE(4) TYPE C,
STRING_3(20) TYPE C, STRING_3_TYPE(4) TYPE C.
STRING_1 = '12345678901234567890'.
STRING_2 = 'abcdefg우리나라만세z'.
STRING_3 = 'abcdAAA34557azzidfll'.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
STRING_IN = STRING_1
IMPORTING
HTYPE = STRING_1_TYPE.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
STRING_IN = STRING_2
IMPORTING
HTYPE = STRING_2_TYPE.
CALL FUNCTION 'NUMERIC_CHECK'
EXPORTING
STRING_IN = STRING_3
IMPORTING
HTYPE = STRING_3_TYPE.
WRITE: / STRING_1, ':', STRING_1_TYPE.
WRITE: / STRING_2, ':', STRING_2_TYPE.
WRITE: / STRING_3, ':', STRING_3_TYPE.
* 썬님에 의해서 게시물 이동되었습니다 (2010-03-30 13:09)
댓글 8
-
김재진
2007.07.30 10:19
앗 이런 방법이 -
GG
2007.08.29 21:07
이거근데 소수점 이하 숫자로 된거는 CHECK 안됩니다..
정수만 CHECK 가능
-
체인지
2007.11.20 11:22
우와 정말 감사합니다
-
달식이
2008.02.26 17:13
대박입니다. -
천군
2008.07.11 14:16
감사합니다...
-
indianhead
2009.12.23 13:00
감사합니다~
-
강태공
2010.11.29 18:22
<P>감사합니다.</P> -
zambia21
2011.06.15 15:42
감사합니다