"小寫(xiě)全部轉(zhuǎn)換成大寫(xiě)
REPORT ZABAP1903_11_BASIC05.
*data: var(15) type c .
var = 'abhaFDNJKS23'.TRANSLATE var to upper case.
*write:/ var.
*"大寫(xiě)全部轉(zhuǎn)換成大寫(xiě)
*data: var1(15) type c .
var1 = 'abhaFDNJKS23'.TRANSLATE var1 to lower case.
*write:/ var1.
*"空格加首位和中間都算字符啡莉，末尾不占字符節(jié)
*data: len type i.
** len1 type i,
** var2(10) type c.
** var2 = 'dhja23'.
len = strlen('shduia').
** len1 = strlen(var2) .
write:/ len.
*"合并字符串
- data: c1(5) value '核對(duì)',
c2(5) value '接送',c3(2) value 'o',c4(10),c5(10),sep(1) value '-'.concatenate c1 c2 c3 into c4.concatenate c1 c2 c3 into c5 separated by sep.
*write:/ c4 ,c5.
*"分割字符串
*data: str(100) type c,
p1(20) type c,p2(20) type c,p3(20) type c,p4(20) type c,del(2) value '&&'.
*str = 'part1 && part2 && part3 && part4 && part5'.
*split str at del into p1 p2 p3 p4.
*write:/ p1,p2,p3,p4.
*登錄屏幕
parameters:user(20) type c,
password(20) type c.
data: user1(20) type c,
password1(15) type c,
t(20) type c.
user1 = 'ABAP'.
password1 = '123'.
if user = user1 and password = password1.
t = '登陸成功'.
else.
t = '用戶名或密碼錯(cuò)誤'.
endif.
write:/ t.
