Dale un vistazo a esto, talvez te sirve.
DStmDel S 150 DStmIns
S 500
DC1 S 1 inz('"')
(comillas dobles van dentro de apostrofes ' " ') DARRC1
S 1 DIM(1) CTDATA PERRCD(1)
C @CRTFILE BEGSR
C
Clear StmDel C Clear
StmIns C Clear
Fecfac 6 C Clear
subope 7 C Move Fecf Fecfac
C EVAL SUBOPE = ARRC1(1)+codope+ARRC1(1)
C
Eval StmDel = 'Delete from ' + CODOPE
C
Eval StmIns = 'Insert Into ' + CODOPE + '(' +C
'Liqn09,Liqf18,Liqh09,Liqf19,'+C
'Liqh10,Liqd02,Liqp02,Liqti9,'+C
'Liqc01,Liqt01,Liqva9,Liqf20,'+C
'Liqce3,Liqr07,Liqr08,Liqsub,'+
C 'Liqsu1) ' + C
'Select ' + C
'Liqn09,Liqf18,Liqh09,Liqf19,'+C
'Liqh10,Liqd02,Liqp02,Liqti9,'+C
'Liqc01,Liqt01,Liqva9,Liqf20,'+C
'Liqce3,Liqr07,Liqr08,Liqsub,'+C 'Liqsu1 '
+ 'from LIQA02' + C ' Where Liqf20 = '
+ FECFAC + C ' And LIQSUB = ' + SUBOPE +
C ' Or Liqf20 = ' + FECFAC + C
' And LIQSU1 = ' + SUBOPE
* ELIMINA REGISTROS DE LA TABLA A CREAR ----C/Exec Sql
C+ Prepare S1 from :StmDel C/End-EXEC
C/Exec Sql C+ Execute S1C/End-EXEC
*-------------------------------------------------------------- * Inserta
registros en Tabla para intercambio de Sub-operadores
*--------------------------------------------------------------C/Exec Sql
C+ Prepare S2 from :StmIns
C/End-EXEC
C/Exec Sql C+ Execute S2
C/End-EXEC
Saludos !!
Date: Fri, 24 Oct 2008 13:00:32 +0200From: [EMAIL PROTECTED]: [EMAIL
PROTECTED]: Incluir comilla en campo alfanuméricoBuenos 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
_________________________________________________________________
Invite your mail contacts to join your friends list with Windows Live Spaces.
It's easy!
http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us__________________________________________________
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
