随笔分类 - AS400
摘要：PGM PARM(&CALL) DCL VAR(&CALL) TYPE(*CHAR) LEN(7) DCL VAR(&TYPE) TYPE(*CHAR) LEN(1) DCL VAR(&SLT1) TYPE(*CHAR) LEN(250) + ...
阅读全文
摘要：/* Copy the temporary view to the incoming IFS file name. This com- */ /* mand assumes that the target IFS file is a CSV (comma separted */ /* variable" file and that it is to be converted to...
阅读全文
摘要：//获取系统时间RTVSYSVAL SYSVAL(QTIME) RTNVAR(&TIME)//系统的日期格式由系统值QDATFMT决定。初值为MDY(月日年)，也可以改成YMD(年月日)，DMY(日月年)或者JUL格式//JUL格式中，QDAY的值是001-366的三位字符。可以用来确定两个日期之间的天数。//可用CVTDAT命令来闪出日期分割的字符。CVTDAT的格式：CVTDAT...
阅读全文
摘要：一个程序要使用一个目标前，要加查它是否存在，你是否有权使用它。这在一个功能同时使用多个目标是很有用用CHKOBJ来检查目标存在与否。可在过程和程序的任何地方使用这个命令。CHKOBJ OJB(库名/目标名) OBJTYPE(目标类型)MONMSG MSGID(CPF9801) EXEC(GOGO NOTFOUND)
阅读全文
摘要：One example: PRINTING A SPOOL ON BOTH SIDES OF THE PAPER Follow the Steps: 1. Create a new DTAQ by the following command: CRTDTAQ DTAQ(QGPL/ZDTAQ1) MAXLEN(64512) 2. Create a OUTQ with the follo...
阅读全文
摘要：Displaying a Data AreaYou can display the attributes (name, library, type, length, data area textdescription), and the value of a data area. See the CL section of the Programmingcategory in the...
阅读全文
摘要：代码: 用SQLRPGLE做行不行? SELECT * FROM systables WHERE TABLE_SCHEMA ='*你要找的LIB' 自己把systables和你放LIB的PF做个外连接就行了.然后用QCMDEXC改权限 代码: PGM PARM(&GETLIB) DCL VAR(...
阅读全文
摘要：问题： 能否用 CL 命令将一个 LIB 中的所有 OBJ 名称和类型输出到一个物理文件 (PF) 中去，以便程序读取处理？答案： 可以, 你可以用 CL 命令 DSPOBJD,例如将 mylib 中的所有对象属性输出到 outlib 库下面的 PF myoutf 文件中,可运行下面命令: DSPOBJD OBJ(mylib/*ALL) OBJTYPE(*ALL) OUTPUT(*O...
阅读全文
摘要：可以编写一个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).........
阅读全文
摘要：可用RTOBJD命令取某个目标的描述返回给CL过程,用变量来返回描述，也可以用这些描述帮助你确定没有用的目标。也可以用QUSRJOBD API来返回目标描述也是用变量返回的。DSPOBJDDCL &LIB TYPE(*CHAR) LEN(10)DCL &CRTDATE TYPE(*CHAR) LEN(13)DCL &USEDATE TYPE(*CHAR) LEN(13)DCL &...
阅读全文
摘要：用RTVUSRPRF命令来取得用户配置文件的属性，把他们放在CL变量中来控制应用程序。可在命令中规定10个字符的用户配置文件名或者用*CURRENT。在运行RTVUSRPRF后可监控逃逸信息DCL &USR *CHAR 10DCL &USRMSGQ *CHAR 10DCL &USRMSGQLIB *CHAR 10...RTVUSRPRF USRPRF(*CURRENT) RTNUSR...
阅读全文
浙公网安备 33010602011771号