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
