/*           CRTCMD     CMD(mylib/DSPLNGTXT) +                     */
/*                      PGM(QSYS/QUILNGTX) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(DSPLNGTXT) +                        */
/*                      TEXT('Display long text window')           */

             CMD        PROMPT('Display long text')
             PARM       KWD(TXT) +
                        TYPE(*CHAR) +
                        LEN(3000) +
                        MIN(1) +
                        EXPR(*YES) +
                        CHOICE('*char 3000') +
                        PROMPT('Text to display')
             PARM       KWD(TXTLEN) +
                        TYPE(*INT4) +
                        MIN(1) +
                        CHOICE('*dec (5 0)') +
                        PROMPT('Length of text')
             PARM       KWD(MSGID) +
                        TYPE(*CHAR) +
                        LEN(7) +
                        PROMPT('Message ID')
             PARM       KWD(MSGF) +
                        TYPE(Q0141) +
                        CHOICE(*NONE) +
                        PROMPT('Qualified message file name')
Q0141:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(QCPFMSG)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*LIBL )) +
                        PROMPT('Message file library')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)