免费注册	查看新帖 \|


平台论坛博客文库

› 论坛 › 操作系统 › AS400 › 請問如何在RPG中加入白色底色

最近访问板块

发新帖

查看: 3014 | 回复: 8

上一主题

下一主题

請問如何在RPG中加入白色底色 [复制链接]

论坛徽章:: 0

电梯直达

跳转到指定楼层

1楼 [收藏(0)] [报告]

发表于 2011-09-24 10:32 |只看该作者 |倒序浏览

在RPG的註釋中，有時會看到在縁色的字有白色的底色，請問這种效果是怎麼做出來的。謝謝！

文库|博客

论坛徽章:: 1

操作系统版块每日发帖之星
日期:2015-11-05 06:20:00

2楼 [报告]

发表于 2011-09-24 11:20 |只看该作者

注释中？
我还真没见过
等待楼下的人来回答

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

3楼 [报告]

发表于 2011-09-25 22:36 |只看该作者

这个以前有人发过的，就是在第5位加一个16进制的控制符，现在可以在CA里设定快捷键。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

4楼 [报告]

发表于 2011-09-26 10:02 |只看该作者

請問要如何在設置呢

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

5楼 [报告]

发表于 2011-09-26 10:40 |只看该作者

1. 第一种情况是用程序更新SOURCE，在SRCDTA的任意位置设定颜色控制码，如X'22'是白色；

2. 第二种更简单，在CLIENT ACCESS的对话窗口点键盘设置，如apl 22是白色。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

6楼 [报告]

发表于 2011-09-26 11:25 |只看该作者

apl 23  = White Bkgd
apl 22  = White Font
apl 29  = Red Bkgd
apl 28  = Red Font
apl 31  = Turquoise Bkgd
apl 30  = Turquoise Font
apl 33  = Yellow Bkgd
apl 32  = Yellow Font
apl 39  = Pink Bkgd
apl 38  = Pink Font
apl 21  = Green Bkgd
apl 20  = Green Font
apl 3b  = Blue Bkgd
apl 3a  = Blue Font
apl 20  = Green Font

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

7楼 [报告]

发表于 2011-09-27 10:10 |只看该作者

回复 5# roden

謝謝你的迴答，我在代碼中寫X‘22’ 沒有反應出现的效果是把X‘22’直接写在代码里面了
能否截个图，说明是如何操作的。谢谢

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

8楼 [报告]

发表于 2011-09-28 10:22 |只看该作者

程序中Shift F1 加程序 PFSEUEXIT 库 CBSATXPOBJ 完了在注释行按F7，F8可以改颜色

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

9楼 [报告]

发表于 2011-09-28 14:27 |只看该作者

本帖最后由 rolexliu 于 2011-09-28 14:39 编辑

回复 7# wuxing164

Example:

OVRDBF FILE(QRPGSRC) TOFILE(YourLib/QRPGSRC) MBR(SourceMbr)

UPDATE QRPGSRC set SRCDTA = substr(SRCDTA,1,4) ||
X'22' || substr(SRCDTA, 6)
where substr(SRCDTA, 7,1) = '*'

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

发新帖

Chinaunix › 论坛 › 操作系统 › AS400 › 請問如何在RPG中加入白色底色

北京盛拓优讯信息技术有限公司. 版权所有京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP