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

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)