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

             CMD        PROMPT('Display UIM Panel (long)')
             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)
             PARM       KWD(USRTSK) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*OLD) +
                        SPCVAL( +
                          (*NEW N) +
                          (*OLD O)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('User task')
             PARM       KWD(CALLSTKCTR) +
                        TYPE(*INT4) +
                        DFT(*CALLMSGQ) +
                        REL(*GE 0) +
                        SPCVAL( +
                          (*CALLMSGQ 0) +
                          (*PRV 1)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Call stack counter')
             PARM       KWD(CALLMSGQ) +
                        TYPE(*CHAR) +
                        LEN(256) +
                        DFT(*CALLER) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Call message queue')
             PARM       KWD(MSGREFKEY) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        DFT(*NONE) +
                        SPCVAL( +
                          (*NONE '    ') +
                          (*FIRST FRST)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Message reference key')
             PARM       KWD(CSRPOSOPT) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*DFT) +
                        SPCVAL( +
                          (*ACTION A) +
                          (*DFT D) +
                          (*PROGRAM P)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Cursor positioning option')
             PARM       KWD(LASTLE) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        DFT(*NONE) +
                        SPCVAL( +
                          (*NONE NONE) +
                          (*EXTE EXTE)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Last list entry processed')
             PARM       KWD(ERRLE) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        DFT(*NONE) +
                        SPCVAL( +
                          (*NONE NONE) +
                          (*EXTE EXTE)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Error list entry handle')
             PARM       KWD(WAIT) +
                        TYPE(*INT4) +
                        DFT(*INDEFINITE) +
                        SPCVAL( +
                          (*INDEFINITE -1) +
                          (*NOWAIT 0)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Wait time')
             PARM       KWD(MSGQNAMLEN) +
                        TYPE(*INT4) +
                        DFT(*OPM) +
                        RANGE( +
                          1 +
                          256) +
                        SPCVAL( +
                          (*OPM 10)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Message queue name length')
             PARM       KWD(CALLQUAL) +
                        TYPE(Q0455) +
                        CHOICE(*NONE) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Call qualification module')
Q0455:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*NONE) +
                        SPCVAL( +
                          (*NONE ))
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*NONE) +
                        SPCVAL( +
                          (*NONE )) +
                        PROMPT('Bound program')