上一页 1 ··· 4 5 6 7 8 9 10 11 12 ··· 25 下一页
摘要: 作业需要一个目标之前分配目标,这样在用目标是不用再等,可保证完成所需功能,这叫目标的原县分配。可用ALCOBJ命令预先分配目标,用DLCOBJ解除分配 目标是根据要他们做什么来分配的(读或者修改)和他们是否可以共享。文件和成员总是以*SHRRD来分配。而数据用规定所状态来分配锁的级别。锁状态标志使用的目标已是否可共享。有下列五个锁状态:1. *EXCL(排他) 目标对请求他的作... 阅读全文
posted @ 2008-01-09 14:26 深渊野鱼 阅读(479) 评论(0) 推荐(0) 编辑
摘要: 在實際的應用中,我們經常要檢查是否為 潤年 ?一般情況我們都通過數字計算,下面提供一種簡單的方法,跟大家分享... 指令 CVTDAT 已經知道那一年是潤年, 只要將 "0229" 與二位數字年合併成 'mmddyy' 的格式, 當成指令 CVTDAT 的 DATE 參數值, 如果指令CVTDAT 傳回錯誤訊息 "CPF0555 日期錯誤或日期格式錯誤" , 那表示此二位數字年非潤年... 阅读全文
posted @ 2008-01-09 14:26 深渊野鱼 阅读(3968) 评论(0) 推荐(0) 编辑
摘要: PGM PARM(&CALL) DCL VAR(&CALL) TYPE(*CHAR) LEN(7) DCL VAR(&TYPE) TYPE(*CHAR) LEN(1) DCL VAR(&SLT1) TYPE(*CHAR) LEN(250) + ... 阅读全文
posted @ 2008-01-09 14:25 深渊野鱼 阅读(804) 评论(0) 推荐(0) 编辑
摘要: /* 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... 阅读全文
posted @ 2008-01-09 14:25 深渊野鱼 阅读(394) 评论(0) 推荐(0) 编辑
摘要: //获取系统时间RTVSYSVAL SYSVAL(QTIME) RTNVAR(&TIME)//系统的日期格式由系统值QDATFMT决定。初值为MDY(月日年),也可以改成YMD(年月日),DMY(日月年)或者JUL格式//JUL格式中,QDAY的值是001-366的三位字符。可以用来确定两个日期之间的天数。//可用CVTDAT命令来闪出日期分割的字符。CVTDAT的格式:CVTDAT... 阅读全文
posted @ 2008-01-09 14:24 深渊野鱼 阅读(654) 评论(0) 推荐(0) 编辑
摘要: 一个程序要使用一个目标前,要加查它是否存在,你是否有权使用它。这在一个功能同时使用多个目标是很有用用CHKOBJ来检查目标存在与否。可在过程和程序的任何地方使用这个命令。CHKOBJ OJB(库名/目标名) OBJTYPE(目标类型)MONMSG MSGID(CPF9801) EXEC(GOGO NOTFOUND) 阅读全文
posted @ 2008-01-09 14:24 深渊野鱼 阅读(253) 评论(0) 推荐(0) 编辑
摘要: 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... 阅读全文
posted @ 2008-01-09 14:22 深渊野鱼 阅读(617) 评论(0) 推荐(0) 编辑
摘要: 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... 阅读全文
posted @ 2008-01-09 14:21 深渊野鱼 阅读(1037) 评论(0) 推荐(0) 编辑
摘要: 代码: 用SQLRPGLE做行不行? SELECT * FROM systables WHERE TABLE_SCHEMA ='*你要找的LIB' 自己把systables和你放LIB的PF做个外连接就行了.然后用QCMDEXC改权限 代码: PGM PARM(&GETLIB) DCL VAR(... 阅读全文
posted @ 2008-01-09 14:21 深渊野鱼 阅读(421) 评论(0) 推荐(0) 编辑
摘要: 问题: 能否用 CL 命令将一个 LIB 中的所有 OBJ 名称和类型输出到一个物理文件 (PF) 中去,以便程序读取处理?答案: 可以, 你可以用 CL 命令 DSPOBJD,例如将 mylib 中的所有对象属性输出到 outlib 库下面的 PF myoutf 文件中,可运行下面命令: DSPOBJD OBJ(mylib/*ALL) OBJTYPE(*ALL) OUTPUT(*O... 阅读全文
posted @ 2008-01-09 14:20 深渊野鱼 阅读(430) 评论(0) 推荐(0) 编辑
上一页 1 ··· 4 5 6 7 8 9 10 11 12 ··· 25 下一页