******************************************
* stohms2
******************************************
PARAMETERS tiSeconds
LOCAL seconds,hrs,leftover,mins,secs,lcHMS
*-----------------------------------------*
* Testing
*-----------------------------------------*
IF PCOUNT()=0
	seconds=960
ELSE
	IF VARTYPE(tiSeconds)=[C]
		seconds=VAL(tiSeconds)
	ELSE
		seconds=tiSeconds
	ENDIF 
ENDIF 

hrs = seconds / 3600
leftover = seconds % 3600
mins = leftover / 60
secs = leftover % 60

lcHMS=PADL(ALLTRIM(STR(hrs)),2,'0')+[:]+PADL(ALLTRIM(STR(Mins)),2,'0')+[:]+PADL(ALLTRIM(STR(secs)),2,'0')

return(lcHMS)