| Categoría
:Programación
Autor : Yamile Caicedo
Título : Convertir mayusculas-minusculas
Descripción del truco:
He visto codigos muy largos para esto, les envio uno
mas sencillo en RPG/ILE
* AUTHOR : YAMILE CAICEDO |
* FECHA : 2006 / 07/ 07 |
* DESCRIPCION : Utilitario convierte mayusculas a minusculas |
*---------------------------------------------------------------|
*
*------------------------------------------------Formato de Fecha
H DATEDIT(*YMD)
H*---------------------------------------------------------------------
DUP C CONST(\'ABCDEFGHIJKLMNOPQRSTUVWXYZ\')
DLO C CONST(\'abcdefghijklmnopqrstuvwxyz\')
D*---------------------------------------------------------------------
C *ENTRY PLIST
C PARM PPARM1 60
C PARM PPARM2 60
C PARM PTICON 1
C*---------------------------------------------------------------------
C* PROGRAMA PRINCIPAL
C*---------------------------------------------------------------------
C* IF (1)
C IF (PTICON = \'1\')
C EXSR CONMAY
C* ELSE (1)
C ELSE
C EXSR CONMIN
C* ENDIF (1)
C ENDIF
C EVAL *INLR = *ON
C*---------------------------------------------------------------------
C* CONMAY: Convierta a mayusculas
C*---------------------------------------------------------------------
C CONMAY BEGSR
C LO:UP XLATE PPARM1 PPARM2
C ENDSR
C*---------------------------------------------------------------------
C* CONMIN: Convierta a minusculas
C*---------------------------------------------------------------------
C CONMIN BEGSR
C UP:LO XLATE PPARM1 PPARM2
C ENDSR
Código
en formato texto
Fecha Julio 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$
|
