Defines en la SDS dos variables DCsDeaAcc S 15A INZ Esta contiene el dato alfanumerico despues del editc DNroCta S 12S 0 INZ Esta contiene el dato numerico
Usas en la hoja C la instruccion Eval C Eval CsDeaAcc = %trimr(%editc(NroCta:'Z')) La funcion trimR elimina los campos en blanco a la derecha y la opcion Z de la funcion Editc te elimina los Ceros a la derecha Espero te sirva Saludos Rafael Betancourt Moreno BANESCO Organizaci�n Financiera Vicepresidencia de Automatizaci�n T.D.C. Gerencia Automatizaci�n Interc. TDC El Rosal, Torre I, Piso 8, Caracas - Venezuela Tel�fono: +58 (212) 952-1033/0911 Extensi�n 8860 Directo: +58 (212) 901-8860 / Celular: +58 (416) 824.65.47 Telemensajes: (0212) 731-5111 Clave 11731 ----- Original Message ----- From: "Amado Vivas Sarrias" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, March 05, 2002 5:45 PM Subject: RE: Signo Negativo. Hola, �qu� tal?, si creo que debo hacerlo con un campo alfanum�rico para poder manipular dicha situaci�n, al final yo debo transferir un archivo txt y no se notara la jugada. Sin embargo me gustar�a saber como se utiliza dicha bif, ya que soy un reci�n nacido en el tema de ILE, a pesar de que el programa en que lo estoy haciendo es RPG IV. GRACIAS -----Mensaje original----- De: Nicolas Machado [mailto:[EMAIL PROTECTED]] Enviado el: Martes, 05 de Marzo de 2002 03:56 p.m. Para: [EMAIL PROTECTED] Asunto: RE: Signo Negativo. En mi opinion, deberias realizar unprograma que en realidad ponga el campo numerico en un campo ALFANumerico, con el signo en la posicion que desees. UN TIP, con ILE puedes utilizar una BIF llamada %EDITC que es la analoga al edit code de las pantallas. El resultado es un campo Alfanumerico, y si es negativo le insertas el signo. Saludos -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Amado Vivas Sarrias Sent: Tuesday, March 05, 2002 3:44 PM To: [EMAIL PROTECTED] Subject: RV: Signo Negativo. Buenas, molesto su atenci�n para ver si alguien puede aclararme la siguiente situaci�n: Para una interfase que estoy haciendo con un sistema, debo enviarles archivos que yo los llamo "archivos planos" ya que los campos num�ricos contenidos en estos archivos son desempaquetados, pero tengo un inconveniente con el campo MOMTOT que es de 13 enteros con 6 decimales y es que si el valor es negativo se ve una llave ({) del lado izquierdo ( 000000000000087000} ) y yo quisiera que en vez de una llave, fuera un signo negativo (-) y del lado derecho ( -000000000000087000 ). �C�mo podr�a solventar esta situaci�n?. De antemano muchas gracias a todos. 0001.00 A***************************************************************** 0002.00 A* FAB0008 - MAESTRO DE CUENTAS PASIVAS CLIENTE 0003.00 A***************************************************************** 0004.00 A* 0005.00 A R FAB0008 TEXT('REGISTRO DE CLIENTES' 0006.00 A* 0007.00 A NUMIDE 16A TEXT('CODIGO DE CLIENTE') 0008.00 A CODAPL 20A TEXT('COD. APLICACION') 0009.00 A CODPRO 8S 0 TEXT('COD. PRODUCTO') 0010.00 A CODAGE 5S 0 TEXT('COD. AGENCIA') 0011.00 A NUMCTA 23A TEXT('NRO. CUENTA') 0012.00 A MONTOT 19S 6 TEXT('MONTO CUENTA') ****************** Fin de datos *************************************** _____________________________________________________ Forum.HELP400 es un servicio m�s de NEWS/400. (c) 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=AVE --- Este Mail NO contiene Virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.324 / Virus Database: 181 - Release Date: 14/02/02 --- Este Mail NO contiene Virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.324 / Virus Database: 181 - Release Date: 14/02/02 _____________________________________________________ Forum.HELP400 es un servicio m�s de NEWS/400. (c) 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 _____________________________________________________ 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=AVE _____________________________________________________ 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
