otra forma, para no ver tanta comilla es declarar una variable
d Comilla s inz('''')
wcmd = comilla +
descripcion +
comilla;
----- Original Message -----
From: JUAN García
To: forum.help400
Sent: Friday, October 24, 2008 6:46 AM
Subject: Re: Incluir comilla en campo alfanumérico
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__________________________________________________
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
