¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
Convertir cadenas de caracteres a número

Categoría :Programación
Autor : Bienvenido Luna
Título : Convertir cadenas de caracteres a número


Descripción del truco:
Convierte una cadena de caracteres como "$ 1,500,000.88" a número

*===================================================================
* Fuente : CHRTONUM
* Autor : Bienvenido Luna, Rep. Dom. 21-06-2006
* Descripción : Convierte una cadena de caracteres a número.
*===================================================================
*** Variables
D TotalAmt S 16A Inz(\'1,000,500.56\')
D CashAmt S 16A Inz(\'1500.65\')
D CheckAmt S 16A Inz(\'$ 1,700.88\')
D Percent S 9A Inz(\'05.50000%\')
D Number1 S 15P 2 Inz(*Zeros)
D Number2 S 15P 2 Inz(*Zeros)
D Number3 S 15P 2 Inz(*Zeros)
D Number4 S 7P 5 Inz(*Zeros)
*===================================================================
* Modulo Principal
*===================================================================
* Use XLATE para convertir los caracteres especiales en blancos en
* la cadena fuente y luego utilice %FLOAT para convertir la cadena
* en número. %FLOAT no toma en cuenta los blancos.
*===================================================================
C \',%$\':\' \' Xlate TotalAmt TotalAmt
C Eval Number1=%Float(TotalAmt)

C \',%$\':\' \' Xlate CashAmt CashAmt
C Eval Number2=%Float(CashAmt)

C \',%$\':\' \' Xlate CheckAmt CheckAmt
C Eval Number3=%Float(CheckAmt)

C \',%$\':\' \' Xlate Percent Percent
C Eval Number4=%Float(Percent)

C Move *On *InLr
*===================================================================
* Final
*===================================================================

Código en formato texto
Fecha Junio 2006

Tienes algún truco que quieras compartir con todos los profesionales de Recursos iSeries AS400?.Envianoslo y si resulta seleccionado te enviaremos un vale de Amazon por valor de 50$

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

Dossiers técnicos iSeries y AS400
- Dossier de seguridad
- Alta disponibilidad.
¿Buscas trabajo ?
Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.
Nuestros links preferidos
- Tendencias tecnologías de la información
Expertos en materías relacionadas con las tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049