摘要：
问题： 能否用 CL 命令将一个 LIB 中的所有 OBJ 名称和类型输出到一个物理文件 (PF) 中去，以便程序读取处理？答案： 可以, 你可以用 CL 命令 DSPOBJD,例如将 mylib 中的所有对象属性输出到 outlib 库下面的 PF myoutf 文件中,可运行下面命令: DSPOBJD OBJ(mylib/*ALL) OBJTYPE(*ALL) OUTPUT(*O... 阅读全文
posted @ 2008-01-09 14:20
深渊野鱼
阅读(447)
评论(0)
推荐(0)
摘要：
如何在程序中获取系统ASP使用率等系统状态信息 AS/400系统管理员都对系统ASP空间增长情况很关心，当系统ASP 空间涨满了以后将会引起系统DOWN机等安全问题。系统ASP空间与硬盘空间并不完全等同，如果系统只配置了一个ASP分区，那么系统ASP空间与硬盘空 间是等同的，如果系统配置了多个ASP分区，则系统ASP只是ASP 1的分区。用WRKSYSSTS命令查看到的% system ASP u... 阅读全文
posted @ 2008-01-09 14:19
深渊野鱼
阅读(676)
评论(0)
推荐(0)
摘要：
一 如何在CL程序自动回复询问类消息(Inquiry Message) 在AS/400系统开发中，经 常要与各种各样的消息打交道。有一类叫“Escape Message”的消息，是当程序出现错误后，会强迫程序异常结束，并告诉错误类型和原因。但经常时候我们不希望因为这些错误而使程序异常停止，在CL程 序中，通常做法是用MONMSG命令来监视这些消息，而后采取相应的正确动作，或者引导程序... 阅读全文
posted @ 2008-01-09 14:18
深渊野鱼
阅读(514)
评论(0)
推荐(0)
摘要：
有时候无法通过TELNET、PC5250登录到AS/400，在这中情况下，在FTP命令行执行AS/400命令变得非常有用。具体步骤如下： 解答 1.启动FTP会话窗口，输入用户名、口令。2.在FTP会话的命令行输入QUOTE RCMD 'command'，就可以向OS/400 FTP服务器服务发送命令。例如：想要AS/400执行CHGCURLIB TESTLIB命令，只要在FTP会话... 阅读全文
posted @ 2008-01-09 14:18
深渊野鱼
阅读(1566)
评论(0)
推荐(0)
摘要：
用户在删除IFS中的文件时，系统返回错误信息：CPFA0A9 - Object not found，检查后发现文件名含不可读的无效字符，无法正常删除。 解答 此时可利用文件通配符-‘*’，其代表任何数量的任何字符。 例在 /TESTUNI 下有文件abnorm&&(&&代表不可读的无效字符），可用下述命令：RMVLNK OBJLNK('/TESTUNI/abnorm*')以abnor... 阅读全文
posted @ 2008-01-09 14:17
深渊野鱼
阅读(981)
评论(0)
推荐(0)
摘要：
/*------------------------------------------------------------*/ /* */ /* List all members in a source file and Read through *... 阅读全文
posted @ 2008-01-09 14:16
深渊野鱼
阅读(407)
评论(0)
推荐(0)
摘要：
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... 阅读全文
posted @ 2008-01-09 14:14
深渊野鱼
阅读(491)
评论(0)
推荐(0)
摘要：
用CONTROL LANGUAGE实现：根据给定的日期生成星期几。 解答 源代码如下：程序名：WEEK2类型：CLPPGM (&Date)DCL --&Date ------*Char -10DCL --&LDateB ----*Char --4 --/* Binary */DCL --&LDateN ----*Dec --15 0 /* Decimal*/DCL --&DAYARR... 阅读全文
posted @ 2008-01-09 14:13
深渊野鱼
阅读(647)
评论(0)
推荐(0)
摘要：
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... 阅读全文
posted @ 2008-01-09 14:13
深渊野鱼
阅读(263)
评论(0)
推荐(0)
摘要：
可用RTOBJD命令取某个目标的描述返回给CL过程,用变量来返回描述，也可以用这些描述帮助你确定没有用的目标。也可以用QUSRJOBD API来返回目标描述也是用变量返回的。DSPOBJDDCL &LIB TYPE(*CHAR) LEN(10)DCL &CRTDATE TYPE(*CHAR) LEN(13)DCL &USEDATE TYPE(*CHAR) LEN(13)DCL &... 阅读全文
posted @ 2008-01-09 14:12
深渊野鱼
阅读(645)
评论(0)
推荐(0)
浙公网安备 33010602011771号