400裡的CMD是怎樣編寫的

jianzk

如題，最好有例子。thanks in advance....

fairyboy

1:一般是先建立一个CLP或者是CLLE程序（看实际需要，是否CMD的用途需要CL程序来实现）
2：CMD建立时，绑定CL程序编译。

CMD     PROMPT('CHANGE SOURCE MEMBER COLOR')         
       PARM     KWD(NAME) TYPE(*CHAR) LEN(10) MIN(1) +
               PROMPT('QUERY NAME')                  
       PARM     KWD(LIB) TYPE(*CHAR) LEN(10) +        
               DFT(JUSTIN) PROMPT('QUERY LIB NAME')   

3：CRTCMD

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 编辑 ]

jianzk

謝了，我自己試試看。。

大肥肥

原帖由 rewin-y.zeng 于 2008-3-25 10:49 发表
我这个菜鸟给你举个例子，并且告诉你一般的操作顺序把。我们就来一个很简单的CMD把，就是EDTLIBL把：
1、首先写一CLP(或者是COBOL--完成你想要的功能的PGM), NAMED CLPNAME， 内容如下：
                  P ...

够狠的.

保护新人积极发言.就暂时把那句话给编辑了.请见谅!

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