/*           CRTCMD     CMD(mylib/DSPPNL) +                        */
/*                      PGM(QSYS/QUIDSPP) +                        */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(DSPPNL) +                           */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Display UIM Panel')
             PARM       KWD(APPHND) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        MIN(1) +
                        PROMPT('Application handle')
             PARM       KWD(FUNCTION) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        PROMPT('Function requested     char(4)')
             PARM       KWD(PNLNAM) +
                        TYPE(*NAME) +
                        LEN(10) +
                        PASSVAL(*NULL) +
                        PROMPT('Panel name')
             PARM       KWD(REDSPOPT) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*NO) +
                        SPCVAL( +
                          (*YES Y) +
                          (*NO N)) +
                        PROMPT('Redisplay option')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)