*  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