引言：
AS/400开发经验点滴（一）
AS/400系统开发工具及开发语言很多，有许多技术性的东西并不是我们能经常碰到的，但这些东西在一些实际应用中很有用处。
摘要：
操作文件的时候会比较耗费资源，效率会比较差。
但是，有没有哪位大侠比较测试过，到底差多少阿？
对于效率要求比较高的程序，有什么好的解决办法吗？
我们现在常常为了提高速度，不得不在一个表里放一大堆字段，争取一次能读出来
最多的可用数据。但是这样搞得数据库的设计常常会不规范。唉！
多情包子 回复于：2003-11-12 22:25:07
看看你的数据库的索引是否合理!我曾经做过一个程序,从几个数据库中收集有用的数据做统计,一开始......
摘要：
对于大多数sap的用户，比较习惯unix及windows命令，而对于os/400的命令缺少使用经验，这里结合sap系统经常用到的命令，比较os/400与unix功能相似的命令及其格式。
1.与文件系统有关的命令：
unix命令 对应的as/400的命令
--------------------------------------------
cd ------cd (后跟路径名用单引号括起来）
ls ------wrklnk
ls -l ---w......
AS/400开发经验点滴（一）
as/400开发经验点滴（一）
【相关文章:
win2000中的记事本 】 【扩展阅读:
Win２０００使用技巧三则 】
【扩展信息:
Win2K下网络命令的使用 】
as/400系统开发工具及开发语言很多，有许多技术性的东西并不是我们能经常碰到的，但这些东西在一些实际应用中很有用处。本人在几年as/400系统上的开发中，也有一些经验。有些东西如果不把其形成文字，过一段时间后，本人都会很快忘掉，比如我现在要写两年前的经验就很费劲。现把其中一些经验总结出来，与大家共享也行，自娱自乐也行。本文不是学术论文，仅仅是一些开发经验总结，有不严谨的地方必定在所难免。
一 如何在cl程序自动回复询问类消息(inquiry message)
在as/400系统开发中，经常要与各种各样的消息打交道。有一类叫“escape message”的消息，是当程序出现错误后，会强迫程序异常结束，并告诉错误类型与原因。但经常时候我们不希望因为这些错误而使程序异常停止，在cl程序中，通常做法是用monmsg命令来监视这些消息，而后采取相应的正确动作，或者引导程序结束。monmsg一样还可以监视“status message”与“notify message”。
但是有一类“inquiry message”，monmsg还是无法监视，这类消息通常有多个回复选择项，要求用户必须给一个选择答复，因而通常会暂停程序运行，而显示一个要求用户给消息进行回复的画面。那么如何在程序中让程序自动选择一个正确的回复项回复呢？如能自动答复，就不需要手工再回复了。
在作业jobd里，有inqmsgrpy选择项，有三个选择：*rqd，*dft，*sysrpyl，这个inqmsgrpy就是表示指定inquiry message的答复方式，通常创建jobd的时候inqmsgrpy项缺省是*rqd，这就表示需要操作员手工答复方式。而*dft与*sysrpyl就表示了两种程序可以自动答复的方式。
1． 消息答复缺省值法
如果在作业jobd里inqmsgrpy选项指定为*dft方式，则程序会自动使用消息的缺省答复项，询问消息就不会再在屏幕上显示。消息的缺省答复项，可以用chgmsgd命令事先手工改好，也可以在程序中加入。比如下面的命令可以先在程序中设定：
chgmsgd msgid(cpa3e01) msgf(qcpfmsg) dft(g)
此语句表示修改qcpfmsg消息文件中的cpa3e01消息的缺省答复为’g’(表示继续执行)。
2． 系统答复列表法
如果在作业jobd里inqmsgrpy选项指定为*sysrpyl方式，则程序会自动使用系统答复列表中定义的答复项。as/400系统有一系统答复列表(system reply list)。system reply list允许用户指定某已定义在列表中消息的答复方式。system reply list包含有序号、消息表示符、答复值、选择比较数据等。可以用wrkrpyle命令查看system reply list的所有内容。下面就是用wrkrpyle命令查看到的内容：
[code:1:4399c2b568]2=change 4=delete
sequence message
...
下一页 摘要：
这里给大家介绍一种as/400自动启动tcp/ip最简单的办法，请大家试一下这个命令：
addaje sbsd（qsyswrk）job（strtcp）jobd（qtocstrtcp）
重新启动一下as/400或者结束控制子系统然后再重新启动控制子系统，
你会发现tcp/ip自动启动了。
下面是qtocstrtcp的详细描述，有兴趣的朋友可以自己研究一下。
job description: qtocstrtcp library: qsys
u......
