/*           CRTCMD     CMD(mylib/ADDPOPWDW) +                     */
/*                      PGM(QSYS/QUIADDPW) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(ADDPOPWDW)                          */

             CMD        PROMPT('Add UIM Pop-up Window')
             PARM       KWD(APPHND) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        MIN(1) +
                        PROMPT('Application handle')
             PARM       KWD(POPWDWLOC) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*ROWCOL) +
                        SPCVAL( +
                          (*OFFSET ) +
                          (*PULLDOWN ) +
                          (*ROWCOL )) +
                        PROMPT('Pop-up window location anchor')
             PARM       KWD(ROW) +
                        TYPE(*INT4) +
                        DFT(2) +
                        RANGE( +
                          -23 +
                          24) +
                        PROMPT('Row')
             PARM       KWD(COLUMN) +
                        TYPE(*INT4) +
                        DFT(2) +
                        RANGE( +
                          -79 +
                          80) +
                        PROMPT('Column')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)