Gracias a todos por contestar, la solución que me ha aportado Juan Carlos
Paredes es la correcta, hay que poner cuatro comillas
Un saludo
El 24 de octubre de 2008 13:20, Juan Carlos Paredes
<[EMAIL PROTECTED]>escribió:
> 0100.00 c eval WCMD ='ADDDIRE USRID('
> +
> 0101.00 c %trim(USER) + ' XXXXXXXX) '
> +
> *0102.00 c 'USRD(' + '''' + + %trim(DESC) + ''''
> + ') ' + *
> 0103.00 c 'USER(' + %trim(USER) + ') '
> +
> 0104.00 c 'NETUSRID(' + %trim(USERID) + ')'
>
> Saludos.
>
> Juan Carlos.
>
>
> ------------------------------
> *De:* JUAN García [mailto:[EMAIL PROTECTED]
> *Enviado el:* viernes, 24 de octubre de 2008 13:01
> *Para:* forum. help400
> *Asunto:* Incluir comilla en campo alfanumérico
>
> Buenos días
>
> En un programa RPG, tengo un campo alfanumérico al que le quiero asignar
> un valor para que añada una entrada de directorio mediante un mandato CL que
> posteriormente proceso con QCMDEXC, este mandato incluye un parámetro (USRD)
> que incluye comilla inicial después del paréntesis y comilla final antes del
> paréntesis, pero no consigo hacerlo, esta es la instrucción que tengo
> actualmente:
>
> 0100.00 c eval WCMD ='ADDDIRE USRID('
> +
> 0101.00 c %trim(USER) + ' XXXXXXXX) '
> +
> *0102.00 c 'USRD('' + %trim(DESC) + '') ' + *
>
> 0103.00 c 'USER(' + %trim(USER) + ') '
> +
> 0104.00 c 'NETUSRID(' + %trim(USERID) + ')'
>
> el campo es USRD, quiero que sea: *USRD('* XXXXXXXXXXXXXXX* ')*, he
> probado con comillas dobles, pero el SEU da error, he probado añadiendo
> +'''+ pero me graba USRD(' + %trim(DESC) +)
>
> ¿alguna idea?
>
> Un saludo
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com
> Version: 8.0.175 / Virus Database: 270.8.2/1742 - Release Date: 23/10/2008
> 15:29
>
>
> De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección
> de Datos de Carácter Personal, le informamos que los datos que nos facilite
> podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines
> comerciales, contractuales y publicitarios y, a tal efecto, serán cedidos a
> otras empresas del Grupo Everest dedicadas a actividades de impresión,
> encuadernación, edición, publicación, distribución y venta de libros y otra
> clase de publicaciones. Sus datos se presumen veraces mientras no nos
> comunique lo contrario. Podrá ejercitar sus derechos de acceso,
> rectificación, candelación y oposición en la siguiente dirección, carretera
> León - A Coruña, km.5, s/n, código postal 24010 (León).
>
> *GRUPO EVEREST está integrado por EDITORIAL EVEREST,S.A, EVEREST DE
> EDICIONES Y DISTRIBUCIÓN,S.L., LA BOUTIQUE DEL LIBRO Y DEL OCIO,S.L., GRUPO
> EVERHOUSE,S.L., EDITORIAL EVEREST ANDALUCÍA,S.L., EDICIONES GAVIOTA,S.L.,
> EDICIONES CADÍ,S.L., EDITORIAL EVERGRÁFICAS,S.L., GRUPO EVEREST DE
> COMUNICACIÓN,S.L., EDITORIAL EVEREST GALICIA,S.L., AIZKORRI ARGITALETXEA,
> S.L.
>
> __________________________________________________
> Forum.HELP400 es un servicio m&#225;s de NEWS/400.
> &#169; Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
>
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
