CLP
nineritian
这个作者很懒,什么都没留下…
展开
-
自定义CMD
一 建立一个CMD的画面程序 cmdname CMD PROMPT('cmd name') PARM KWD(NAME) TYPE(*CHAR) LEN(10) MIN(1) + PROMPT('QUERY NAME')原创 2011-11-16 16:42:18 · 205 阅读 · 0 评论 -
自定义CMD -Example
Example: Create a command This example shows how to create a command to allow the system operator to call a program to start the system. This example assumes you are usin原创 2011-11-16 16:43:58 · 177 阅读 · 0 评论 -
如何控制OBJ只能单人使用
常用二种方法 一 在CL中,可以先使用ALCOBJ命令來Lock一個OBJ,结束后再DLCOBJ,如果没有执行DLCOBJ,JOB结束后将自动释放。 根據不同的Lock state,會對檔案進行不同方式的Lock,可根據需要進行選擇: 1.*SHRRD::The lock state is shared for read,加鎖的作業只能讀,而其他作業可以讀或更新檔案。 2.*SH原创 2011-11-18 13:23:26 · 199 阅读 · 0 评论 -
如何执行本地CMD命令
PGM STRPCO MONMSG MSGID(CPF0000) STRPCCMD PCCMD('cmd /c start "x" +原创 2011-11-10 12:59:19 · 156 阅读 · 0 评论 -
如何判断FILE有没有记录
一: RTVMBRD FILE(FILEA) NBRCURRCD(&RCDN) IF COND(&RCDN > 0) THEN(GOTO CMDLBL(END)) 二: RCVF RCDFMT(FILEA) MONMSG MSGID(CPF0864) EXEC(GO原创 2011-11-10 13:02:26 · 166 阅读 · 0 评论 -
常用CL
DLYJOB DLY(30) DLTSPLF FILE(*SELECT) CVTBINDEC FROMBIN(&A) TODEC(&B) /*CONVERT FROM BINARY TO DECIMAL*/ CHKOBJ OJB(LIB/OBJ) OBJTYPE(*FILE) MONMSG MSGID(CPF9801) EXEC(GOGO NOTFOUND)原创 2011-11-10 14:25:21 · 132 阅读 · 0 评论