Example: Create abbreviated change job command

This example shows how to define and create an abbreviated command.

You can create your own abbreviated commands to simplify IBM-supplied commands or to restrict the parameters allowed for users. For example, to allow users the ability to change only the printer device parameter, you can create your own Change Job (CJ) command. Following are three steps to create and implement your own Change Job (CJ) command:

Step one: Command definition source statements

    CMD   PROMPT('Change Job')
 
    PARM  KWD(PRTDEV) +
          TYPE(*NAME) +
          LEN(10)  +
          SPCVAL(*SAME *USRPRF *SYSVAL *WRKSTN) +
          PROMPT('Printer Device')

Step two: Processing program

    PGM PARM(&PRTDEV)
    DCL VAR(&PRTDEV)  TYPE(*CHAR)  LEN(10)
    CHGJOB  PRTDEV(&PRTDEV)
    ENDPGM

Step three: Create Command (CRTCMD) command

    CRTCMD  CMD(CJ)  PGM(CJ)  SRCMBR(CJ)