/*           CRTCMD     CMD(mylib/LSTALTSPL) +                     */
/*                      PGM(mylib/LSTALTSPL) +                     */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(LSTALTSPL) +                        */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *IPGM +                                  */
/*                        *EXEC +                                  */
/*                        *INTERACT)                               */

             CMD        PROMPT('List Alternative Spellings')
             PARM       KWD(WORD) +
                        TYPE(*CHAR) +
                        LEN(32) +
                        MIN(1) +
                        EXPR(*YES) +
                        PROMPT('Word to spell-check')