/*           CRTCMD     CMD(mylib/SETSCRIMG) +                     */
/*                      PGM(QSYS/QUISETSC) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(SETSCRIMG)                          */

             CMD        PROMPT('Set UIM Screen Image')
             PARM       KWD(APPHND) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        MIN(1) +
                        PROMPT('Application handle')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)