/*           CRTCMD     CMD(mylib/SPLAID) +                        */
/*                      PGM(mylib/SYSPA) +                         */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(SPLAID) +                           */
/*                      TEXT('Access Spell Aid (QWTAIDSP) API') +  */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Spelling Aid')
             PARM       KWD(WORD) +
                        TYPE(*CHAR) +
                        LEN(32) +
                        MIN(1) +
                        EXPR(*YES) +
                        VARY(*YES) +
                        PASSATR(*YES) +
                        PROMPT('Word to aid' 1)
             PARM       KWD(AIDTYPE) +
                        TYPE(*CNAME) +
                        LEN(10) +
                        RSTD(*YES) +
                        DFT(*ALL) +
                        SPCVAL( +
                          (*ALL AIDW0100)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Type of aid' 7)
             PARM       KWD(SPLCHK) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RTNVAL(*YES) +
                        PROMPT('Misspelling indicator' 2)
             PARM       KWD(NBRDCTRTN) +
                        TYPE(*DEC) +
                        LEN(1 0) +
                        RTNVAL(*YES) +
                        PROMPT('Number dictionaries returned' 3)
             PARM       KWD(DCTRTNLST) +
                        TYPE(*CHAR) +
                        LEN(160) +
                        RTNVAL(*YES) +
                        PROMPT('Dictionaries-returned list' 4)
             PARM       KWD(NBRWRDRTN) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        RTNVAL(*YES) +
                        PROMPT('Number of words returned' 5)
             PARM       KWD(WRDRTNLST) +
                        TYPE(*CHAR) +
                        LEN(3000) +
                        RTNVAL(*YES) +
                        PROMPT('Words-returned list' 6)