¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
Recursos iSeries AS400. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Últimas noticias del iSeries AS400
Valida campo numerico

Categoría : Programación
Autor : Mark Luis Copara
Título : Valida campo numérico


Descripción del truco:
A menudo nos topamos con campos alfanumericos que tienen o deben tener digitos y se nos hace un problema pasarlos a numericos porque previamente tenemos que validarlos y asi estar seguros de que no tiene blancos, letras o signos. Esta rutina resuelve ese problema, espero que les ayude.

F***************************************************************** F* Valida campo CODSUN. CODSUN es un campo alfa de 10 posiciones F* y el programa lo verifica y si esta ok lo mueve al campo WCINTIA. F***************************************************************** D Wlong s 3s 0 D DS inz D WCINTID 1 10S 0 D WCINTIA 1 10 D WCINTIB 11 20 d* C*------------------------------------ c*- sbrchk – Cheque campo - C*------------------------------------ C sbrchk begsr c eval wcintia = *zeros C* testea campo numerico. C TESTN codsun 21 c* todos numeros o.k. c if *in21 = *on c eval wcintia = codsun c else c eval *in21 = *off c eval wcintib = \'0000000000\' c* Obtiene cantidad de caracteres c eval wlong = %len(%trim(codsun)) c if wlong = 0 C clear wcintid c leavesr c endif c* Mueve caracteres a la derecha c eval %subst(wcintib:11-wlong) = %trim(codsun) c* Muevo cero a blanco de la izquierda c \' \':\'0\' xlate wcintib wcintib C* testea campo numerico C TESTN wcintib 21 c if *in21 = *on c* todos numeros o.k. c eval wcintia = wcintib c else c eval wcintia = *zeros c endif c endif c end

Código en formato texto
Fecha Mayo 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