摘要： 一、物理文件expf R AEXPF K1 2A K2 5P 1 K K1二、物理文件expf1R AEXPF1 M1 2A M2 5P 1 K M1 三、添加触发器ADDPFTRG FILE(EXPF) TRGTIME(*BEFORE) TRGEVENT(*UPDATE) PGM(trgpgm) RPLTRG(*YES) 当更改记录时，会把更改前的记录写入expf1中触发器程序trgpgmfexpf1 o a e disk d newdata e ds extname(expf1) //引用外部的物理文件 dtrgbuf ds //触发器的数据结构 d trgbufhdr 96a d bfk 阅读全文

摘要： 运行界面CLP程序 PGM DCLF FILE(PUSHBD) MONMSG MSGID(CPF0000) START: SNDRCVF DEV(*FILE) RCDFMT(FMT01) WAIT(*YES) RMVMSG CLEAR(*ALL) IF COND(&IN03) THEN(DO) GOTO END ENDDO /* F6-DISPLAY MESSAGES */ IF COND(&IN06) THEN(DO) CALL QEZSNDMG ENDDO /* WRKOUTQ *ALL */ IF COND(&F2 *EQ 1) THEN(DO) WRKOUTQ 阅读全文

摘要： 作者：深渊野鱼来源：博客园发布时间：2008-01-09 15:04阅读：245 次原文链接 [收藏] 用户经常发送MESSAGE,MESSAGE的颜色往往是绿色的，其实是可以发送彩色的MESSAGE的。解答 1.创建SNDCOLMSG CLP程序。SNDCOLMSG: PGM PARM(&MSG &COLOR &MSGTYPE)DCL VAR(&MSG) TYPE(*CHAR) LEN(80)DCL VAR(&COLOR) TYPE(*CHAR) LEN(1)DCL VAR(&MSGTYPE) TYPE(*CHAR) LEN(10)DCL VA 阅读全文

摘要： WRKACTJOB这个使用的频率应该是最高的吧，在这里只提一个比较有用的用法：Coding的时候断线异常退出时，再登录之后，用2进入刚才编辑的程序，不是会报错“正在被使用”嘛。除了等一会，一直等到它自动退出之外，还可以用WRKACTJOB + 10，来查找刚才自己的那个进程(显示出来的命令应该是STRSEU)，然后把它KILL掉就行了。DSPFDDSPFD + PF名，查看文件的信息，包括文件的MEMBER数，总记录数，被删除的记录数，CCSID等等。DSPFD + LF名，查看逻辑文件的键值，结合DSPDBR，可以找出一个PF文件对应的所有LF文件的键值。DSPFD + 库名 + *MBRL 阅读全文

摘要： 在AS/400上创建并执行sql脚本2008/10/30 23:251、创建源文件crtsrcpf lyf1/batchsrc2、选择编辑源文件菜单4 Edit a source file3、创建TXT类型成员Source file . . . . . . BATCHSRC Library . . . . . LYF1Position to . . . . . . . . . . . . . . . . . . . . . . . . . . . .New member . . . . . . . . . . . . . . . . . . . . . . . . . . . . initda 阅读全文

摘要： [代码] 阅读全文

摘要： using System;using System.Collections.Generic;using System.Text;using System.Runtime.InteropServices;using System.Security.Principal;using System.Text.RegularExpressions; namespace Update{ public class ImpersonateHelper { [DllImport("advapi32.dll", SetLastError = true)] public extern stati 阅读全文