各位大虾 请教一下如何创建一个命令

leason

你可以用RPG,或者CLP写一个程序,这个程序就是实现你想用的功能,把它编译到指定的LIB里,每次用的时候直接CALL CLP或者RPG,不就可以了么

fairyboy

那是先建立一个CL程序,以后用CMD来指定

子樵

有一种SOURCE的类型是CMD.就是用来定义CMD的.
写好PGM,然后编写CMD定义参数,最后用CRTCMD创建CMD.

居士

创建自己的命令

   用户在日常管理中，经常会重复使用同一命令，但命令又很长，用户可以创建用CRTDUPOBJ; CHGCMDDFT创建自己的命令简化操作。



例如：命令WRKUSRJOB USER(*ALL) STATUS(*ACTIVE) JOBTYPE(*INTERACT) ASTLVL(*BASIC)



可以按以下步骤进行操作：



A.    输入命令CRTDUPOBJ(Create Duplicate Object)并按F4键。



                       Create Duplicate Object (CRTDUPOBJ)                     

                                                                                

Type choices, press Enter.                                                     

                                                                                

From object  . . . . . . . . . . > WRKUSRJOB     Name, generic*, *ALL         

From library . . . . . . . . . . > *LIBL         Name, *LIBL, *CURLIB         

Object type  . . . . . . . . . . > *CMD          *ALL, *ALRTBL, *AUTL...      

                + for more values                                               

To library . . . . . . . . . . . > YOURLIB       Name, *FROMLIB, *SAME...      

New object . . . . . . . . . . . > USERJOB       Name, *OBJ, *SAME            

From ASP device  . . . . . . . .   *             Name, *, *CURASPGRP, *SYSBAS  

To ASP device  . . . . . . . . .   *ASPDEV       Name, *ASPDEV, *...           

                                                                                

                                                                                

                                                                         Bottom

F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display   

F24=More keys                                                                  

                                                                                

在用户所在的库（yourlib）中创建WRKUSRJOB命令的副本userjob



B. .在AS/400命令行输入CHGCMDDFT(Change Command Default)命令，



                       Change Command Default (CHGCMDDFT)                       

                                                                                

Type choices, press Enter.                                                     

                                                                                

Command  . . . . . . . . . . . . > USERJOB       Name                          

Library  . . . . . . . . . . . >   yourlib     Name, *LIBL, *CURLIB         

New default parameter string . . > 'status(*active) jobtype(*interact)'        

                                                                                

                                                                                

                                                                              

                                                                                

                                                                         Bottom

F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display   

F24=More keys                                                                  

                                                                                

这样一条新的命令被定义成功。

可以在AS/400命令行输入yourlib/userjob 来执行你需要的功能。



(该篇文档原作者：JACKSU，编辑：王鹏程)

aliceliu

step 1:   CRTSRCPF   (QCLSRC)
CRTSRCPF (QCMDSRC)

Create two source code and you can set as the same name, and compile it. please compile the CLP/Rpg FIRST, Then compile the Command.

pantierui

WRKD command source CMD001.


  /*---------------------------------------------------------------*/
  /*  WRKCFGSTS ON A *DEVICE      CPP = CMD001CL                   */
  /*---------------------------------------------------------------*/

              CMD         PROMPT('WRKCFGSTS- Work with a device')
              PARM        KWD(DEV) TYPE (*CHAR) LEN (10) RSTD(*NO) +
                            DFT(*ALL) MIN(0) PROMPT('Device Name:')




WRKD command-processing program CMD001CL.


   PGM         PARM(&DEV)
                 DCL         &DEV *CHAR LEN(10)
                 DCL         &MESAGE *CHAR LEN(80)

                 IF          COND(&DEV *NE '*ALL') THEN(DO)
                 CHKOBJ      OBJ(QSYS/&DEV) OBJTYPE(*DEVD)
                 MONMSG      MSGID(CPF9801) EXEC(DO)
                 CHGVAR      VAR(&MESAGE) VALUE('DEVICE-' *CAT &DEV +
                             *BCAT ' NOT FOUND. CHECK EVICE NAME.')
                 SNDPGMMSG   MSG(&MESAGE) TOPGMQ (*EXT)
                 GOTO        END
                 ENDDO
                 ENDDO
                 WRKCFGSTS   CFGTYPE (*DEV) CFGD(&DEV)
   END:          ENDPGM

然后用下面的命令创建你想要的命令
CRTCMD CMD(MYLIB/WRKD) PGM(MYLIB/CMD001C) SRCFILE(MYLIB/QCMDSRC) SRCMBR(CMD001) ALLOW(*INTERACT)

bicin

看帖回复是必须的，我说咋权限这么少呢