Debes poner en hexadecimal las comillas.
En el CL debes declarar:
DCL VAR(&COM) TYPE(*CHAR) LEN(1) VALUE(X'7D')
CHGVAR VAR(&CODI1) VALUE(&COM *TCAT &CODI *TCAT +
&COM)
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de JUAN García
Enviado el: viernes, 24 de octubre de 2008 6: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
________________________________
Nota de descargo: La información contenida en este e - mail y sus anexos es
confidencial y sólo puede ser utilizada por el destinatario del mismo. Esta
información no debe ser distribuida, ni copiada total o parcialmente por ningún
medio sin la autorización de DINERS/INTERDIN. Además, DINERS/INTERDIN no asume
responsabilidad sobre información, opiniones o criterios contenidos en este
e-mail.
Disclaimer: The information contained in this e-mail and its attached files are
confidential and intended only for the use of the person to which it is
addressed. This information can not be totally or partially distributed nor
copied by any media without the authorization from DINERS/INTERDIN. In
addition, DINERS/INTERDIN does not assume responsibility about this
information, opinions or criteria contented in this e-mail.
__________________________________________________
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
