¿ 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
Impresion con Preformatos o Graficos en el AS/400

Categoría : Programación
Autor : Pedro Pinedo
Título : Conversión Mayúsculas-Minúsculas


Descripción del truco:
Cambia según los parámetros de mayúsculas a minúsculas o viceversa la primera o todas las letras
* SWCAM - CAMPO DE TEXTO
*
* SWMAM - MAYUSCULAS A MINUSCULAS Y VICEVERSA
* 1 = MAYUSCULAS A MINUSCULAS
* 2 = MINUSCULAS A MAYUSCULAS
* SWPRI - PRIMERA LETRA EN MAYUSCULAS DE CADA PALABRA
* 0 = TODAS LAS LETRAS
* 1 = MAYUSCULA PRIMERA LETRA TODAS LAS PALABRAS
* 2 = MAYUSCULA PRIMERA LETRA PRIMERA PALABRA

Código en formato texto
Fecha 09-03-2004

Esto es para incluir en un programa de servicio

* LLAMADA A aumami * MOVEL ASNOMX SWCA1 * MOVE *BLANKS SWCA2 * MOVE '1' SWMAM * MOVE '1' SWPRI * CALLP AUMAMI(SWCA1:SWCA2:SWMAM:SWPRI) d AUMAMI PR d 30 d 20 d 1 value d 1 value ***************************************************************** * * * AUMAMI : PASO DE MAYUSCULAS A MINUSCULAS E INVERSO * * * ***************************************************************** ***************************************************************** * * * INDICADORES UTILIZADOS * * * * 60 ON ENCONTRADO * * 50 ON MAYUSCULAS A MINUSCULAS * * 50 OFF MINUSCULAS A MAYUSCULAS * * * ***************************************************************** p AUMAMI B export ***************************************************************** *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+ * SWCAM - CAMPO DE TEXTO * * SWMAM - MAYUSCULAS A MINUSCULAS Y VICEVERSA * 1 = MAYUSCULAS A MINUSCULAS * 2 = MINUSCULAS A MAYUSCULAS * SWPRI - PRIMERA LETRA EN MAYUSCULAS DE CADA PALABRA * 0 = TODAS LAS LETRAS * 1 = MAYUSCULA PRIMERA LETRA TODAS LAS PALABRAS * 2 = MAYUSCULA PRIMERA LETRA PRIMERA PALABRA ***************************************************************** d AUMAMI pi d SWCA1 30 d swca2 20 d swmam 1 value d swpri 1 value D* D* TABLAS DE TRABAJO D* D TEX S 1 DIM(50) D CAM S 1 DIM(50) D* D* TABLAS DE CONVERSION D* D DS d d1 1 2 inz('Qq') d d2 3 4 inz('Ww') d d3 5 6 inz('Ee') d d4 7 8 inz('Rr') d d5 9 10 inz('Tt') d d6 11 12 inz('Yy') d d7 13 14 inz('Uu') d d8 15 16 inz('Ii') d d9 17 18 inz('Oo') d d10 19 20 inz('Pp') d d11 21 22 inz('Aa') d d12 23 24 inz('Ss') d d13 25 26 inz('Dd') d d14 27 28 inz('Ff') d d15 29 30 inz('Gg') d d16 31 32 inz('Hh') d d17 33 34 inz('Jj') d d18 35 36 inz('Kk') d d19 37 38 inz('Ll') d d20 39 40 inz('Ññ') d d21 41 42 inz('Zz') d d22 43 44 inz('Xx') d d23 45 46 inz('Cc') d d24 47 48 inz('Vv') d d25 49 50 inz('Bb') d d26 51 52 inz('Nn') d d27 53 54 inz('Mm') d d28 55 56 inz('Áá') d d29 57 58 inz('Éé') d d30 59 60 inz('Íí') d d31 61 62 inz('Óó') d d32 63 64 inz('Úú') d d33 65 66 inz('Àà') d d34 67 68 inz('Èè') d d35 69 70 inz('Ìì') d d36 71 72 inz('Òò') d d37 73 74 inz('Ùù') d d38 75 76 inz('Ää') d d39 77 78 inz('Ëë') d d40 79 80 inz('Ïï') d d41 81 82 inz('Öö') d d42 83 84 inz('Üü') d d43 85 86 inz('Ââ') d d44 87 88 inz('Êê') d d45 89 90 inz('Îî') d d46 91 92 inz('Ôô') d d47 93 94 inz('Ûû') D D 1 94 DIM(47) * D DS D LEMA 1 1 D LEMI 2 2 D LET 1 2 ***************************************************************** * * * PROCESO INICIAL * * * ***************************************************************** * * INICIALIZACION DE CONSTANTES * C MOVEL SWCA1 CAMP 50 C MOVE SWCA2 CAMP 50 C MOVEA CAMP CAM C Z-ADD 1 N 2 0 C Z-ADD 1 Z 2 0 C SETOFF 50 C SWMAM IFEQ '1' C SWPRI IFEQ '1' C SWPRI OREQ '2' C SETON 50 C END C END C N DOWLE 50 C SWPRI IFEQ '0' C *IN50 OREQ '0' C cam(n) IFEQ '#' C SWMAM IFEQ '1' C MOVE 'ñ' CAM(N) C ELSE C MOVE 'Ñ' CAM(N) C END c else C Z-ADD 1 X 2 0 C X DOWLE 47 C MOVE D(X) LET C SWMAM IFEQ '1' C LEMA IFEQ CAM(N) C MOVE LEMI CAM(N) C LEAVE C END C ELSE C LEMI IFEQ CAM(N) C MOVE LEMA CAM(N) C LEAVE C END C END C ADD 1 X C ENDDO C END C END C CAM(N) IFNE ' ' C 50 SETOFF 50 C END C MOVE CAM(N) TEX(Z) C SWPRI IFNE '0' C CAM(N) ANDEQ '.' C SETON 50 C END C SWPRI IFEQ '1' C CAM(N) IFEQ ' ' C CAM(N) OREQ '/' C CAM(N) OREQ '=' C CAM(N) OREQ '(' C CAM(N) OREQ ')' C CAM(N) OREQ '\"' C CAM(N) OREQ '¿' C CAM(N) OREQ '?' C CAM(N) OREQ '¡' C CAM(N) OREQ '!' C CAM(N) OREQ '-' C CAM(N) OREQ '&' C SETON 50 C END C END C ADD 1 N C ADD 1 Z C ENDDO C MOVEA TEX CAMP C SWMAM IFEQ '1' C SWPRI ANDEQ '1' C EXSR COMPR C END C MOVEL CAMP SWCA1 C MOVE CAMP SWCA2 C RETURN */EJECT ***************************************************************** * * * COMPR : COMPROBAR MAYUSCULAS NO CORRECTAS * * * ***************************************************************** C COMPR BEGSR *De C Z-ADD 2 F 3 0 C 'De ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C MOVE 'd' TEX(F) C MOVEA TEX CAMP C 'De ' SCAN CAMP F 60 C ENDDO *La C Z-ADD 2 F 3 0 C 'La ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C MOVE 'l' TEX(F) C MOVEA TEX CAMP C 'La ' SCAN CAMP F 60 C ENDDO *Las C Z-ADD 2 F 3 0 C 'Las ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C MOVE 'l' TEX(F) C MOVEA TEX CAMP C 'Las ' SCAN CAMP F 60 C ENDDO *Los C Z-ADD 2 F 3 0 C 'Los ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C MOVE 'l' TEX(F) C MOVEA TEX CAMP C 'Los ' SCAN CAMP F 60 C ENDDO *Les C Z-ADD 2 F 3 0 C 'Les ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C MOVE 'l' TEX(F) C MOVEA TEX CAMP C 'Les ' SCAN CAMP F 60 C ENDDO *El C Z-ADD 2 F 3 0 C 'El ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C MOVE 'e' TEX(F) C MOVEA TEX CAMP C 'El ' SCAN CAMP F 60 C ENDDO *Del C Z-ADD 2 F 3 0 C 'Del ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C MOVE 'd' TEX(F) C MOVEA TEX CAMP C 'Del ' SCAN CAMP F 60 C ENDDO *Un C Z-ADD 2 F 3 0 C 'Un ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C MOVE 'u' TEX(F) C MOVEA TEX CAMP C 'Un ' SCAN CAMP F 60 C ENDDO *Una C Z-ADD 2 F 3 0 C 'Una ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C MOVE 'u' TEX(F) C MOVEA TEX CAMP C 'Una ' SCAN CAMP F 60 C ENDDO *En C Z-ADD 2 F 3 0 C 'En ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C MOVE 'e' TEX(F) C MOVEA TEX CAMP C 'En ' SCAN CAMP F 60 C ENDDO *Con C Z-ADD 2 F 3 0 C 'Con ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C MOVE 'c' TEX(F) C MOVEA TEX CAMP C 'Con ' SCAN CAMP F 60 C ENDDO *Y C Z-ADD 2 F 3 0 C ' Y ' SCAN CAMP F 60 C *IN60 DOWEQ '1' C ADD 1 F 3 0 C MOVE 'y' TEX(F) C MOVEA TEX CAMP C ' Y ' SCAN CAMP F 60 C ENDDO C ENDSR C/EJECT p e *

 

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

Symtrax
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: Poliedric, s.c.p. CIF:G63005011 Urgell 143 1º1ª 08036 - Barcelona - Tel.+34.902.361.344