REPORT zchange_case .
PARAMETERS: P_STR TYPE CHAR100 .
DATA: STRING TYPE CHAR100 .
INITIALIZATION .
P_STR = 'THIS IS THE TEST' .
START-OF-SELECTION .
CALL FUNCTION 'STRING_UPPER_LOWER_CASE'
EXPORTING
delimiter = ' '
string1 = P_STR
IMPORTING
STRING = STRING
EXCEPTIONS
NOT_VALID = 1
TOO_LONG = 2
TOO_SMALL = 3
OTHERS = 4
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
WRITE:/ STRING .
No comments:
Post a Comment