/*           CRTCMD     CMD(mylib/SETLSTATR) +                     */
/*                      PGM(QSYS/QUISETLA) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(SETLSTATR)                          */

             CMD        PROMPT('Set UIM List Attributes')
             PARM       KWD(APPHND) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        MIN(1) +
                        PROMPT('Application handle')
             PARM       KWD(LSTNAM) +
                        TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        PROMPT('List name')
             PARM       KWD(LSTCONT) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        RSTD(*YES) +
                        DFT(*SAME) +
                        SPCVAL( +
                          (*SAME SAME) +
                          (*ALL ALL) +
                          (*TOP TOP) +
                          (*BOT BOT) +
                          (*MORE MORE)) +
                        PROMPT('List contents status')
             PARM       KWD(PGMDLGVAR) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*SAME) +
                        SPCVAL( +
                          (*SAME )) +
                        PROMPT('Program dialog variable')
             PARM       KWD(DSPPOSATR) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        DFT(*SAME) +
                        SPCVAL( +
                          (*SAME SAME) +
                          (*TOP TOP) +
                          (*BOT BOT)) +
                        PROMPT('Display position attribute')
             PARM       KWD(ALWTRMATR) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*SAME) +
                        SPCVAL( +
                          (*SAME S) +
                          (*YES Y) +
                          (*NO N)) +
                        PROMPT('Allow trim attribute')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)