(r1) 0LASubrTextLowerToUpper < Main

Tags: view all tags
---+ .TEXT LOWER TO UPPER

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

<br />%TOC%
---++ Usage:
<pre>      PASS         &lt;converted_text&gt;           FIELD            SHARE? Y
      PASS         &lt;original_text&gt;            FIELD            SHARE? N
      PASS         &lt;convert_flag&gt;             FIELD            SHARE? N
      GOSUB    --- .TEXT LOWER TO UPPER
      *        Check for errors
      IF       --- .TEXT LOWER TO UPPER       NE


</pre>
---++ 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.

&lt;converted_field&gt; is the field to receive the converted &lt;original_text&gt; (Required). This must be PASSed with Share "Y" to return the value.

&lt;original_text&gt; is are the characters you want converted (Required).

&lt;convert_flag&gt; 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
If not PASSed, the default value is All.

If you don't care about conserving the original data, you can pass the same field for both &lt;converted_field&gt; and &lt;original_text&gt;.

Also see [[0LASubrTextUpperToLower][.TEXT UPPER TO LOWER]].
---++ Comments:

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

<br />%COMMENT%

-- Main.JeanNeron - 2012-02-09
Topic revision: r1 - 2012-02-09 - JeanNeron
~~Edit~~
~~Attach~~