Amiga ISO Collection/AmigaUtilCD1.iso/Database/DataBase2.2.LHA/db2.2/Examples/ARexxDemos/FirstUpper.db

Text File | 1994-09-03 | 359 b | 12 lines

/* Rexxprogram for db that converts the first character of every word in the
   current stringgadget to UPPER
   Written by Richard Ludwig */
options results;GETFIELD;ret=''

if DATATYPE(result)='CHAR' & result~='' then do
    do t=1 to WORDS(result)
        ret=ret||UPPER(LEFT(WORD(result,t),1))SUBSTR(WORD(result,t),2)' '
    end
    PUTFIELD LEFT(ret,length(ret)-1)
END