RosettaCodeData/Task/String-case/HicEst/string-case.hicest

5 lines
126 B
Plaintext

CHARACTER str = "alphaBETA"
EDIT(Text=str, UpperCase=LEN(str))
EDIT(Text=str, LowerCase=LEN(str))
EDIT(Text=str, UpperCase=1)