摘要：
可以编写一个CLP程序实现统计某台AS/400中有多少个library,程序的内容如下：程序名：countlib,类型：CLP。FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...*************** Beginning of data *************************... 阅读全文
摘要：
如何在程序中获取系统ASP使用率等系统状态信息 AS/400系统管理员都对系统ASP空间增长情况很关心，当系统ASP 空间涨满了以后将会引起系统DOWN机等安全问题。系统ASP空间与硬盘空间并不完全等同，如果系统只配置了一个ASP分区，那么系统ASP空间与硬盘空 间是等同的，如果系统配置了多个ASP分区，则系统ASP只是ASP 1的分区。用WRKSYSSTS命令查看到的% system ASP u... 阅读全文
摘要：
有时候无法通过TELNET、PC5250登录到AS/400，在这中情况下，在FTP命令行执行AS/400命令变得非常有用。具体步骤如下： 解答 1.启动FTP会话窗口，输入用户名、口令。2.在FTP会话的命令行输入QUOTE RCMD 'command'，就可以向OS/400 FTP服务器服务发送命令。例如：想要AS/400执行CHGCURLIB TESTLIB命令，只要在FTP会话... 阅读全文
摘要：
一 如何在CL程序自动回复询问类消息(Inquiry Message) 在AS/400系统开发中，经 常要与各种各样的消息打交道。有一类叫“Escape Message”的消息，是当程序出现错误后，会强迫程序异常结束，并告诉错误类型和原因。但经常时候我们不希望因为这些错误而使程序异常停止，在CL程 序中，通常做法是用MONMSG命令来监视这些消息，而后采取相应的正确动作，或者引导程序... 阅读全文
摘要：
用户在删除IFS中的文件时，系统返回错误信息：CPFA0A9 - Object not found，检查后发现文件名含不可读的无效字符，无法正常删除。 解答 此时可利用文件通配符-‘*’，其代表任何数量的任何字符。 例在 /TESTUNI 下有文件abnorm&&(&&代表不可读的无效字符），可用下述命令：RMVLNK OBJLNK('/TESTUNI/abnorm*')以abnor... 阅读全文
摘要：
/*------------------------------------------------------------*/ /* */ /* List all members in a source file and Read through *... 阅读全文
摘要：
The substring built-in function (%SUBSTRING or%SST) produces a character stringthat is a subset of an existing character string and can only be used within a CLprocedure. In a CHGVAR command, t... 阅读全文
摘要：
IF (&A=&B) THEN(CALLPRC PROCA)ELSE CMD(CALLPRC PROCB)CHGVAR &C 8 IF ... THEN ...IF ...THEN(DO)IF ...THEN(DO)...ENDDOELSE DOIF ...THEN(DO)...ENDDOELSE DO...ENDDOENDDOELSE IF ... THEN ...IF ... T... 阅读全文
摘要：
用CONTROL LANGUAGE实现：根据给定的日期生成星期几。 解答 源代码如下：程序名：WEEK2类型：CLPPGM (&Date)DCL --&Date ------*Char -10DCL --&LDateB ----*Char --4 --/* Binary */DCL --&LDateN ----*Dec --15 0 /* Decimal*/DCL --&DAYARR... 阅读全文
摘要：
RTVNET可以取得网络属性,这些属性可以在CHGNETA修改，用DSPNETA显示PGM DCL VAR(&OUTQNAME) TYPE(*CHAR) LEN(10)DCL VAR(&OUTQLIB) TYPE(*CHAR) LEN(10)RTVNETA OUTQ(&OUTQNAME) OUTQLIB(&OUTQLIB)CHGNETA OUTQ(QGPL/QPRINT)......... 阅读全文