Figure 7 ・CHKOBJNME Command Source

/************************************************************/
/***  Source: CHKOBJNME                                   ***/
/***  Author: Mike Pavlak                                 ***/
/***  Description: Source code CL Command...              ***/
/***                                                      ***/
/************************************************************/
             CMD        PROMPT('Check Object Name ') +
                          PMTFILE(MIKEY/CHKMSGF)

             PARM       KWD(OBJNME) TYPE(*CHAR) LEN(10) RTNVAL(*NO) +
                                   MIN(0) PROMPT(CHK0001)
             PARM       KWD(SUPPESC) TYPE(*CHAR) LEN(4) RTNVAL(*NO) +
                          RSTD(*YES) DFT(*NO) VALUES('*YES' '*NO') +
                          PROMPT(CHK0002)