/*           CRTCMD     CMD(mylib/RMVPOPWDW) +                     */
/*                      PGM(QSYS/QUIRMVPW) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(RMVPOPWDW)                          */

             CMD        PROMPT('Remove UIM Pop-up Window')
             PARM       KWD(APPHND) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        MIN(1) +
                        PROMPT('Application handle')
             PARM       KWD(RMVOPT) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*LAST) +
                        SPCVAL( +
                          (*INACTIVE I) +
                          (*LAST L)) +
                        PROMPT('Window to remove')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)