400裡的CMD是怎樣編寫的

rewin-y.zeng

我这个菜鸟给你举个例子，并且告诉你一般的操作顺序把。我们就来一个很简单的CMD把，就是EDTLIBL把：
1、首先写一CLP(或者是COBOL--完成你想要的功能的PGM), NAMED CLPNAME， 内容如下：
                  PGM                                                      
                  CHGLIBL    LIBL(LIBA LIBB LIBC +         
                                      LIBD )           
                                          
                                      CURLIB(*CRTDFT)   
                  CHGCURLIB  CURLIB(LIBA )                                                
   END:        ENDPGM                                                   
2、COMPILE用14，F4将Authority改为：*ALL       -------这样RELEASE Authority
3、创建CMD SRC Member
     最为简单的方式就是将CLP或者是COBOL COPY一下，然后将其Type改为CMD。
     命名为：TESTFORNET 其内容只有一句      话，为：
                CMD
4、创建可执行的CMD，命令如下(其中CMDSRC是自己创建的SRCPF)：
     CRTCMD CMD(*LIBL/TESTFORNET) PGM(*LIBL/CLPNAME) SRCFILE(*LIBL/CMDSRC) Authority(*ALL)
     
进行了一上操作后，你的CMD创建完成，就可以运行了，不过运行时你的CMD所在的LIB必须在你的LIBL中

建议你将CMD存放在QGPL中。因为其在所有用户DEFAULT  LIBL 中，这样方便所有用户都可以运行
不过也可以在敲CMD的时候前面加上CMD所在的LIB也可以

[ 本帖最后由 fairyboy 于 2008-3-26 08:58 编辑 ]