Prueba a ponerlo al final de programa como una tabla como text
0100.00 c eval WCMD ='ADDDIRE USRID(' +
0101.00 c %trim(USER) + ' XXXXXXXX) ' +
0102.00 c %TRIM(TXT(1))+ %trim(DESC) +
%TRIM(TXT(2)) +
0103.00 c 'USER(' + %trim(USER) + ') ' +
0104.00 c 'NETUSRID(' + %trim(USERID) + ')'
** TXT
'USRD(''
'') '
Saludos
Paco Medina
Dtor.Informatica
Exclusivas Camacho, S. Ltd.
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
29006 Málaga, España
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com
[EMAIL PROTECTED]
Este mensaje se dirige exclusivamente a su destinatario y puede contener
información privilegiada o confidencial. Si no es vd. el destinatario
indicado, queda notificado de que la utilización, divulgación y/o copia sin
autorización está prohibida en virtud de la legislación vigente. Si ha
recibido este mensaje por error, le rogamos que nos lo comunique
inmediatamente por esta misma vía y proceda a su destrucción. Gracias.
This message is intended exclusively for its addressee and may contain
information that is CONFIDENTIAL and protected by professional privilege. If
you are not the intended recipient you are hereby notified that any
dissemination, copy or disclosure of this communication is strictly
prohibited by law. If this message has been received in error, please
immediately notify us via e-mail and delete it. Thank you.
_____
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de JUAN García
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
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© 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
