/*           CRTCMD     CMD(mylib/DLTLST) +                        */
/*                      PGM(QSYS/QUIDLTL) +                        */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(DLTLST)                             */

             CMD        PROMPT('Delete UIM List')
             PARM       KWD(APPHND) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        MIN(1) +
                        PROMPT('Application handle')
             PARM       KWD(LSTNAM) +
                        TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        PROMPT('List name')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)