Here's what I found for your problem, I hope these codes helps.
Quote:
LOCS$O – Convert to Lower Case
This routine converts a buffer from upper case to lower case. It is called with two arguments, InOption and Buffer. InOption is a PIC S9999 USAGE COMP-5 (16-bit integer). Buffer is CHAR(*)VAR. The conversion is as follows:
InOption = 1: Convert all upper case letters to lower case
InOption = 2: Convert all upper case letters except the first one after a period to lower case
InOption = 3: Convert all upper case letters except the one immediately following a blank to lower case
InOption = 4: Convert all upper case letters except the one immediately following a blank or a lower case letter to lower case
InOption = 5: Convert all upper case letters except the one immediately following a non-upper case letter to lower case unless the word begins with "MC"
InOption = 6: Convert all upper case letters except the one immediately following a non-upper-case letter and a non-number
InOption = 7: Convert all upper case letters except the one immediately following a non-upper-case letter unless the next two characters are "ST", "ND", "RD", OR "TH"
|