Convert Lower to UPPER CASE

ToUpper

The ToUpperr procedure converts alphabetic characters to uppercase using a language-safe translation table.

The ToUpper procedure is a wrapper procedure for the internal-use only CvtCase procedure.  ToUpper simply calls CvtCase with the second parameter set to CC_TOUPPER.

varying-char-value ToUpper(
  szInputString       32766A   Const Varying
)

Parameters

szInputString

[input VChar(*) const]  A varying or fixed-length character value whose length is 1 to 32766. The value of this parameter is not modified but is translated to upper case letters using an internal buffer. The translated value is returned.

Return Value

If the function succeeds, the return value is the uppercase equivalent of the szInputString parmaeter. If the function fails, no value is returned.

Example

.....DName+++++++++++EUDS.......Length+TDc.Functions+++++++++++++++++++++++++

     D Company         S             50A   Inz('Lunar Spacecraft Company')

.....CSRn01..............OpCode(ex)Extended-factor2++++++++++++++++++++++++++

     C                   if        ToUpper(Company) = ToUpper(CM_CustName)

     C                   Write     CustList

     C                   endif

Remarks

This procedure uses the QlgConvertCase API to do the conversion using a language-safe translation table.