/*           CRTCMD     CMD(mylib/CLOAPP) +                        */
/*                      PGM(QSYS/QUICLOA) +                        */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(CLOAPP)                             */

             CMD        PROMPT('Close UIM Application')
             PARM       KWD(APPHND) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        MIN(1) +
                        PROMPT('Application handle')
             PARM       KWD(CLOOPT) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*NORMAL) +
                        SPCVAL( +
                          (*ABNORMAL A) +
                          (*NORMAL M)) +
                        PROMPT('Close option')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)