Announcement:
wanna exchange links? contact me at sapchatroom@gmail.com.
Posted by
Admin at
Reply from battas on Aug 30 at 2:09 AM Hi Nayak,
Even you can do like below:
1. For Finding Special char ina srting
CALL FUNCTION 'HR_GB_XML_PATTERN_CHECK' "Check string for special
characters
EXPORTING
i_string = " string Input value
* i_valid = " string Valid characters
* i_alphabet_upper = 'X' " char01 Include A-Z
* i_alphabet_lower = 'X' " char01 Include a-z
* i_digits = 'X' " char01 Include 0-9
* i_space_invalid = 'X' " char01 Do not include space
IMPORTING
e_invalid = " string Invalid characters
e_errtxt = " string Error message
. " HR_GB_XML_PATTERN_CHECK
2. For checking Space in a string:
DATA:input_str(10) TYPE c VALUE '123456 789',
lv_count TYPE i.
lv_count = STRLEN( input_str ).
IF input_str CA space.
IF sy-fdpos LT lv_count.
write:/10 'there is a space in input'.
else.
write:/10 'there is no space in input'.
endif.
ENDIF.
| | | ---------------Original Message---------------
From: Jitendra Nayak
Sent: Thursday, August 30, 2012 12:34 AM
Subject: Finding Special Character and Space from a String Field
ENHANCEMENT 1 ZTRANS_ID_CHECK. "active version
DATA : CHK_STR(30) TYPE C VALUE '*-+''!$?#%()=???}><[]{??\"_@&#',
CHK_STR1 TYPE C VALUE ' ',
b(1) type c,
IDX TYPE I.
DATA: STR1(100) TYPE C,
LNTH TYPE I,
LNTH1 TYPE I.
STR1 = LIKP-TRAID.
LNTH = STRLEN( STR1 ).
LNTH1 = LNTH + 1.
DO LNTH TIMES.
IF LNTH1 EQ SY-INDEX.
EXIT.
ENDIF.
IDX = SY-INDEX - 1.
IF STR1+IDX(1) CA CHK_STR.
b = 'X'.
EXIT.
ELSEIF STR1+IDX(1) CA CHK_STR1.
B = 'X'.
EXIT.
ELSE.
ENDIF.
ENDDO.
IF B = 'X'.
CLEAR B.
MESSAGE 'Special Character and Spaces are Not Allowed' TYPE 'E'." DISPLAY LIKE 'E'.
ENDIF.
ENDENHANCEMENT. |
| Reply to this email to post your response. __.____._ |  | battas
SAP Technical Consultant | |   _.____.__ |
