CLEAR
lnVal = INT(VAL(SYS(2007, "whatever")))

lcLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
lcCharList = lcLetters + LOWER(lcLetters)
lnBase = LEN(lcCharList)
lcVal = ""
DO WHILE lnVal > 0
	lnRest = lnVal % lnBase
	lnVal = INT( lnVal / lnBase)
	lcVal =  SUBSTR(lcCharList, lnRest,1) + lcVal
ENDDO
? lcVal

>
>The length of sys(2007) is 5 numbers. I'd like to convert this into a character string of alphabetic letters (A-Z), in order to get rid of some positions. I can write the algorithm, but perhaps someone else already wrote one?!