Me respondo a mi mismo lo unico que habia que hacer era quitar los ceros en la palabra de edicion
varchar=%Editw(varnum : '0 .00'); -------> varchar=%Editw(varnum : '0 . '); Tan sencillo como eso Gracias de todos modos Gerardo Santillana IT Department Delphi Mechatronic Systems US Ph: (956) 554 5832 MX Ph: (868) 812 81 63/64/65 Ext 5832 Pager: (956) 768 1048 e-mail [EMAIL PROTECTED] -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Santillana, Gerardo Sent: Wednesday, May 19, 2004 2:32 PM Gerardo To: [EMAIL PROTECTED] Subject: %Editw con decimales Saludos a todos No se si esto ya se haya comentado pero ahi va de nuevo Quiero pasar un campo numerico a un caracter pero que me conserve el punto decimal, estoy utilizando la funcion %EDITW pero no logro que funcione, por ejemplo: varnum= 1234.56 longitud (16,2) la quiero pasar a un campo caracter de esta manera varchar='00000000001234.56' Segun el manual de ibm dice que si quieres conservar los ceros a la izquierda necesito poner en la palabra de edicion un digito mas que la longitud de la variable a editar, asi lo hago pero me da error de compilacion: varchar=%Editw(varnum : '0 .00'); el error es el siguiente: *RNF8004 20 1 There are not enough replaceable characters in the edit word; editing is ignored. *RNF8004 20 335 014200 The edit word has 15 replaceable characters but 16 are needed. Viendo este error, entiendo que los ceros despues del punto decimal en la palabra de edicion no los toma en cuenta y me toma como caracteres reemplazables solo los que estan antes del punto decimal, entonces le agrego el digito faltante y pruebo el programa pero lo que me hace es pasar el valor numerico al caracter de esta manera varchar='00000000123456.00'. A lo mejor es algo sencillo pero no doy con la solucion, si alguien me hecha la mano se lo agradezco Gerardo Santillana IT Department Delphi Mechatronic Systems US Ph: (956) 554 5832 MX Ph: (868) 812 81 63/64/65 Ext 5832 Pager: (956) 768 1048 e-mail [EMAIL PROTECTED] -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Guillermo Andrades Sent: Wednesday, May 19, 2004 11:46 AM Gerardo To: [EMAIL PROTECTED] Subject: RE: limitar CHGJOB Ya que meti la pata antes vamos a resumir el tema. Con una recopilacion de lo dicho por los anteriores compa�eros, como arzak o carlos de pastor, vamos a ver: - a los programas de la aplicaci�n que no se tienen los fuentes hacerles CHGOBJOWN OBJ(lib/pgm) OBJTYPE(*PGM) NEWOWN(QSECOFR) CHGPGM PGM(lib/pgm) USRPRF(*OWNER) - al comando CHGJOB con edtobjaut quitarle autoridad a public o a ciertos usuarios y darle autoridad al usuario que se pone como propietario a los programas que por dentro usan chgjob. A ver si por este sendero podemos tener otra forma de atacar el problema? Saludos (estoy de mudanza y usando un modem para pillar el correo) _____________________________________________________ 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] **************************************************************************************** Note: The information contained in this message may be privileged and confidential and thus protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. Thank you. **************************************************************************************** _____________________________________________________ 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] **************************************************************************************** Note: The information contained in this message may be privileged and confidential and thus protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. Thank you. **************************************************************************************** _____________________________________________________ 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]
