摘要：
命令RGZPFM做什么? 什么情况下运行? 影响命令RGZPFM执行时间的因素有哪些?解答 命令RGZPFM应该在文件中被删除的记录超过20%时执行. 该命令执行后,系统的性能会改善。 因为系统在检索时不必再去读那些已经被删除的记录索引, 并且被删除记录所占有的硬盘空间会被释放而变 为可用。影响命令RGZPFM执行时间的因素有很多, 最基本的有以下一些：o 在执行RGZPFM命令时, 系统会使用内部命令CPYF把数据部分拷贝到一个新的数据区, 如果文件 不是排序的(KEYFILE参数), 那么拷贝的频率是8K。由此可以估算出大致需要花费的时间。o 在执行RGZPFM命令时用KEYFILE参数, 阅读全文
摘要：
解答 我们知道，在分布式数据处理的环境下，对远程系统上文件内容的操作可以有很多方式，但是如果想简单地在本地对远程系统进行文件管理方面的操作，则可以由一条命令实现：SBMRMTCMD。现在介绍该命令的用法：1. 首先确保双方系统上的分布式处理服务已启动：STRTCPSVR SERVER（*DDM）2. 为目标系统创建DDM文件：CRTDDMF FILE(Lib/TESTAAA) RMTFILE(Lib/AAA) RMTLOCNAME(s102rncm *IP）其中：TESTAAA是DDM文件名； AAA是远程系统s102rncm上要操作的文件的名称。3. 在本地系统上运行文件管理方面的命令，例如 阅读全文
摘要：
为了增强系统、应用的安全性，管理员经常需要了解有无用户删除特定的文件。下文将介绍通过系统审计的方法来实现管理员的目标。 通过系统安全审计功能，可以最小的系统开销来管理系统安全性，它仅仅记录object的改变事件，不会记录object中的详细数据。 下面是系统设置的方法： 1．运行命令GO SECTOOLS, 显示出* Display the Security Tools Menu* 菜单。 2．选择选项 10： Change Security Auditing 3．将系统值QAUDCTL 改为 *OBJAUD ，QAUDLVL改为*DELETE。 回车。 4．如果此时安全审计日志不存在与系统中 阅读全文
摘要：
1)OPMDSPOBJD DETAIL(*SERVICE)2)ILEDSPPGM DETAIL(*MODULE)3)RVTSRC代码 PGM PARM(&LIB &PGM &SRCLIB &SRCFILE &SRCMBR) /* PARM DECLARE */ DCL VAR(&LIB) TYPE(*CHAR) LEN(10) DCL VAR(&PGM) TYPE(*CHAR) LEN(10) DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10) DCL VAR(&SRCFILE) TYPE(*CHAR 阅读全文
摘要：
SAVOBJ OBJ(*ALL)LIB(USRLIB)DEV(*SAVF) SAVF(USRLIB/SAVF) OUTPUT(*OUTFILE)OUTFILE(USRLIB/RESULT)若SROSTA='0'，表示未备份成功 阅读全文
摘要：
RPG/400中有两种数值型数据相对应，一种是ZONED DECIMAL， 另一种是PACKED DECIMAL。 它们虽然都可以存放数值型数据，但是它们所占用的存储空间是不一样大的。ZONED DECIMAL用一个BYTE存放一个数字，而PACKED DECIMAL用一个BYTE存放两个数字，这样可以看出用PACKED DECIMAL存放数据比ZONED DECIMAL节约一倍的空间. 另外还有一个原因，RPG/400的编译器会将所有的ZONED DECIMAL数据自动转换为PACKED DECIMAL类型，所以选用PACKED DECIMAL类型可以提高应用程序的运行效率。因此，最好选用P 阅读全文
摘要：
若ILE RPG的源程序中包含有结构化操作码（如DO...END,IF...ELSE...END),编译后不采用缩进格式显示，看起来非常不方便，本文主要描述如何在ILE RPG编译清单中加入结构化缩进格式。 如何在ILE RPG编译清单中实现结构化缩进格式呢？1.在ILE RPG的H表中加入INDENT缩进关键字，INDENT的主要作用是在编译清单中加入缩进格式，缺省情况下INDENT为*NONE,不进行缩进显示。要进行缩进显示可以用INDENT('字符值“)，例如：INDENT('| ')，它的含义是用一个竖线和一个空格进行结构化缩进，如下图所示：0001.00 H 阅读全文
摘要：
在SQL/400中，不能直接列出某一列的合计，但可以用UNION语句实现这一功能。UNION操作可将两个或更多不同的SQL语句的结果合并成一个结果集，唯一的限制是每个表或SQL语句必需有相同的列类型、数目和顺序。UNION 运算符通过组合其他两个结果表（例如 TABLE1 和 TABLE2）并消去表中任何重复行而派生出一个结果表。当 ALL 随 UNION 一起使用时（即 UNION ALL），不消除重复行。两种情况下，派生表的每一行不是来自 TABLE1 就是来自 TABLE2。1、在AS/400命令行执行命令:STRSQL2、在“Enter SQL Statements”画面输入下列SQL 阅读全文
摘要：
当您定义了一个查询并运行时，如果该查询出现错误，如何得到详细的调试信息，本篇文章介绍具体的操作过程。 1. 将系统查询属性文件复制到自己的库中：CRTDUPOBJ OBJ(QAQQINI) FROMLIB(QSYS) OBJTYPE(*FILE) TOLIB(userlibrary) DATA(*YES) 注意：不能用命令CPYF来操作，否则会引起数据丢失。2. 进入交互式SQL环境：STRSQL3. 更改系统查询属性文件的副本，将调试信息置为*YES：UPDATE userlibrary/QAQQINI SET QQPARM = 'MESSAGES_DEBUG', QQVAL 阅读全文
摘要：
在AS/400的SELECT语句中可以使用CASE表达式,它可根据表达式的内容返回不同的值，它可以简化原来需多条SQL语句实现的查询，以前用多个游标完成的统计可在一条语句中完成，以下举例加以说明。 1.语法规则：Case语句--当对不同条件产生不同的结果值时，可使用Case语句。--Case语句计算所有定义的条件，并按条件是否为真而返回结果。语法如下：CASE [<input_expression>]WHEN <when_expression> THEN <result_expression>[ELSE <else_expression>]END 阅读全文