* ------------------------------------------------------------------------
      * (C) Ajut/400
      * ------------------------------------------------------------------------
      *  Programa: Visualizar texto muy largo en ventana
      *
      *
      * ------------------------------------------------------------------------
      *  Programado por: Alex Martínez
      *                  http://www.ajut400.com
      * ------------------------------------------------------------------------

     D Mensaje         s            750    inz('Este es un mensaje muy largo. -
     D                                     Podemos incluir un texto de hasta  -
     D                                     16Mb. Su uso habitual es para visua-
     D                                     lizar mensajes del tipo "Pulse una -
     D                                     tecla para continuar" o similar. -
     D                                     No hay posibilidad de f-
     D                                     ormatear el texto en párrafos con s-
     D                                     altos de linea o similares. No hay -
     D                                     DDS de archivo. No funciona con Web-
     D                                     facing. El texto se visualiza -
     D                                     con "AutoScroll". El tamaño de la v-
     D                                     entana no puede variarse. El campo -
     D                                     MsgId y Msgf permiten indicar un Id-
     D                                     entificador de mensajes y un archiv-
     D                                     o de mensajes para visualizar como -
     D                                     "Titulo" de Cabecera de la Ventana.-
     D                                      Espero que os guste.')

     D MsgLen          s              9b 0
     D MsgId           s              7    inz(' ')
     D Msgf            s             20    inz
     D ErrCod          s             10u 0 inz(0)

     c                   eval      MsgLen = %size( Mensaje )

     C                   call      'QUILNGTX'
     C                   parm                    Mensaje
     C                   parm                    MsgLen
     C                   parm                    MsgId
     C                   parm                    Msgf
     C                   parm                    ErrCod

     C                   eval      *inlr = *on