【RPGLE编程】使SEU编写的source带颜色

想要source中带颜色，需要写一洗exit program，然后添加。也可以通过改变session的设置来实现。

在source编辑状态按F11,按pagedown，找到exit pgm，填写你的exit pgm。如图

把下面的source上传到AS/400上然后编译。

 color.zip   

使用时，在source编辑状态下按F7.选择你要的颜色。如图

然后按F20。就可以看到了。

另外一种方法：

AS400COLOR.KMP:
[Profile]
id=KMP
Description=

[KEYBOARD]
S-KEY18='W'
C-KEY18=apl 22
S-KEY20='R'
C-KEY20=apl 28
S-KEY21='T'
C-KEY21=apl 30
S-KEY22='Y'
C-KEY22=apl 32
S-KEY26='P'
C-KEY26=apl 38
S-KEY35='G'
C-KEY35=apl 20
S-KEY43=[newline]
C-KEY43=[dead]
S-KEY50='B'
C-KEY50=apl 3a
A-KEY50=apl 3b
KEY64=[enter]
S-KEY64=[enter]
KEY110=[help]


1、将上面代码存至你的硬盘并更名为as400color.kmp。

2、PCOMM下编辑菜单→设定→键盘，把AS400.KMP→AS400COLOR.KMP。

可使用W（白），R（红），Y（黄），P（紫），G（绿），B（蓝）字母+CTRL（正常）或ALT（反白）键组合，例如SEU中设定为插入（Insert）模式，使用CTRL+“W”，其后面的字会变成白色，其余R，Y，P，G，B也是一样。