在RPG/400中实现大小写的转换

1. %XLATE的语法

%XLATE根据from、to和startpos参数将string转换为所需要的显示格式。
参数简介：
from : 转换字符串；
to : 置换字符；
将字符串按照from转换为to的格式。

string : 将被转换的字符串；
startpos: 数值性数据或一个常量，表示从第几个字符开始转换；

2.举例说明：
SEU==>
FMT D DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++
*************** Beginning of data ***************************
0001.00 D UP C 'ABCDEFGHIGKLMNOPQRSTUVWXYZ'
0002.00 D LO C 'abcedfghijklmnopqrstuvwxyz'
0003.00 D STRING S 10A INZ('RPG dept')
0004.00 /FREE
0005.00 STRING = %XLATE(LO:UP:'rpg dept');
0006.00
0007.00
0008.00 STRING = %XLATE(UP:LO:'RPG DEPT');
0009.00
0009.01
0009.02 STRING = %XLATE(UP:LO:'RPG DEPT':6);
0009.03
0010.00
0011.00 *INLR = *ON;
0012.00 /END-FREE
****************** End of data ****************************
说明：
STRING = %XLATE(LO:UP:'rpg dept');
将‘rpg dept'从小写转换为大写；

STRING = %XLATE(UP:LO:'RPG DEPT');
将‘RPG DEPT'从大写转换未小写；

STRING = %XLATE(UP:LO:'RPG DEPT':6);
将‘RPG DEPT'从第六个字符‘E'开始转换为小写‘RPG Dept';