.TEXT LOWER TO UPPER

This subroutine converts lower case to upper case in a text/alpha field.

Usage:

      PASS         <converted_text>           FIELD            SHARE? Y
      PASS         <original_text>            FIELD            SHARE? N
      PASS         <convert_flag>             FIELD            SHARE? N
      PASS         <len_original_text>        FIELD            SHARE? N
      GOSUB    --- .TEXT LOWER TO UPPER
      *        Check for errors
      IF       --- .TEXT LOWER TO UPPER       NE

Description:

This subroutine converts lower case to upper case in a text/alpha field. The first 2 parameters are required. If any required parameters are missing, the subroutine will CANCEL.

<converted_field> returns the converted <original_text> (Required). This must be PASSed with Share "Y" to return the value.

<original_text> is are the characters you want converted (Required).

<convert_flag> controls how the characters will be converted (Optional). If PASSed, it must be one of:

• All - convert every character to upper case.
• Firstword - convert the character of the first word only.
• Allwords - convert the first character of every word

<len_original_text> Optional - Release 6.0 + higher only. This is a optional performance enhancement to reduce the time required to perform the case conversion. You can PASS the maximum length you expect in <original_text>. For example, if your <original_text> field is 1M in size, but you know the data will never be longer than 22 characters, you can pass 22 in this field. If you PASS this field and your data is longer, it will be truncated to this length.

If you don't care about conserving the original data, you can pass the same field for both <converted_field> and <original_text>.

Also see .TEXT UPPER TO LOWER.

Note: This subroutine is designed to operate on Alpha, Text, and Token fields only. The returned results are undefined if you specify any other type of field.

Comments:

Read what other users have said about this page or add your own comments.

-- JeanNeron - 2012-02-09