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

             CMD        PROMPT('Get UIM Dialog Variable')
             PARM       KWD(APPHND) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        MIN(1) +
                        PROMPT('Application handle')
             PARM       KWD(VARBUF) +
                        TYPE(*CHAR) +
                        LEN(128) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        PROMPT('Variable buffer      char(128)')
             PARM       KWD(VARBUFLEN) +
                        TYPE(*INT4) +
                        DFT(128) +
                        RANGE( +
                          1 +
                          128) +
                        PROMPT('Variable buffer length')
             PARM       KWD(VARRCDNAM) +
                        TYPE(*NAME) +
                        LEN(10) +
                        PASSVAL(*NULL) +
                        PROMPT('Variable record name')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)