Hola de nuevo:
> >>Juanra,
> >>La primera opci�n que comentas creo que es la que ha remitido Raul
> >>Gomez:
> >>> eval WSalida = %EDITC(WCampo:'2')
> >>> if WCampo < 0
> >>> eval WSalida = '(' + %TRIM(WSalida) + ')'
> >>> endif
Es verdad, me di cuenta despu�s de enviar el mensaje, primero le� tu
respuesta y contest� sin leer las dem�s, evidentemente esta soluci�n es
v�lida en RPGIV, en RPGIII es algo m�s trabajoso. A eso precisamente me
refer�a cuando comentaba las nuevas funciones que nos aporta el RPG y que
tantos quebraderos de cabeza nos quitan. En mi caso todav�a no programo en
RPGIV, no acaba de gustarme, estoy demasiado acostumbrado a las t�picas
columnas de toda la vida y hasta que no hagan un RPG de formato totalmente
libre (tipo COBOL) espero no tener que cambiar.
> >>Opto por la segunda alternativa pero tengo un problemilla y es que en la
> >>DDS
> >>el EDTWRD no admite indicadores y tampoco admite un c�digo de >>edici�n
y
> una
> >>palabra de edici�n, es decir que tiene que ser a nivel de campo, no vale
> lo
> >>que pongo abajo:
> >>A IMESC 5S 4O 44
> >>A 70 EDTCDE(L)
> >>A N70 EDTWRD('( . . )')
> >>Solapar� dos campos uno con la palbra de edici�n para valores negativos
> >>y el
> >>otro con c�digo de edici�n para positivos, encendiendo el indicador de
> >>uno u
> >>otro seg�n su valor.
Es lo m�s sensato, por cierto esto lo puedes hacer porque es un fichero de
impresi�n pero en un sub-fichero no se puede y es una tremenda p..t..da,
hace poco me encontr� con un problema similar (debia editar un campo en un
SFL dependiendo de c�mo era el n�mero) y no ten�a sitio para editarlo
siempre, no se puede (en un SFL) condicionar un campo a un indicador con lo
cual tampoco se puede solapar, en fin un marronazo tremendo.
> >>Vaya rollo que te he soltado,
Pues anda que yo.... ;-)
> >>Por �ltimo muchas gracias por el ofrecimiento en hacer la rutina.
De nada, a mandar, que para eso estamos
> >>Saludos, Rodrigo
Saludos
Juanra
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
