RE: no permitir Mayusculas en un campo de entrada

[gerardo.santillana]

Puedes utilizar esta funcion, espero te sirva     D LowerCase       PR         32767    OPDESC                 D  String                    32767    OPTIONS(*VARSIZE)        D Lower           C                   'abcdefghijklmnopqrstuvwxyz'    D Upper           C                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ'         *===============================================================             USE:     Eval      LOWER = LowerCase(DATA)      *===============================================================         P LowerCase       B                   EXPORT                                                                                                        D LowerCase       PI         32767    OPDESC                              D  Input                     32767    OPTIONS(*VARSIZE)                                                                                              * Retrieve operational descriptor                                        C                   Callb     'CEEDOD'                                    C                   Parm      1             ParmPos                       C                   Parm                    DescType                      C                   Parm                    DataType                      C                   Parm                    DescInf1                      C                   Parm                    DescInf2                      C                   Parm                    DataLen                                                                                                  * Extract the data from the string                                       C                   Eval      Output = %Subst(Input:1:DataLen)             * Convert string to lower case                                              C                   Do        DataLen       X                                C                   Eval      Char = %Subst(Output:X:1)                      C     Upper:Lower   Xlate     Char          Char                             C                   Eval      %Subst(Output:X:1) = Char                      C                   Enddo                                                                                                                                  * Return lower case string                                                  C                   Return    Output                                                                                                                      P LowerCase       E                                                                                                                                    Gerardo Santillana IT Department Delphi Mechatronic Systems Phone USA  (956) 554 5832 Phone MX  01868 8128163   x.5832 -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]On Behalf Of Juan Gutierrez Ruiz Sent: Thursday, October 14, 2004 4:27 PM To: [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Subject: no permitir Mayusculas en un campo de entrada Hola amigos del foro alguna instruccion o funcion para campurar un dato en pantalla y al momento de teclearla se combiertan en minusculas(si se captuaran Mayusculas)  ,  en rpg    , en la dds ya le puse al campo de entrada que permita minusculas , habra alguna instruccion para decirle que no acepte mayusculas ?  gracias  **************************************************************************************** Note: The information contained in this message may be privileged and confidential and thus protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. Thank you. ****************************************************************************************