Re: quick 4lg question

Dylan Tansey wrote: > > Is there an Informix function to remove leading spaces. I am looking for > the opposite of "clipped". > I searched all manuals but can't find anything useful. With compliments from the Power-4gl function library: function left(text) define text,ctxt char(256), i,j,k smallint let ctxt = " " let k = length(text) let j = null for i = 1 to k if j is null then if text[i,i] <> " " then let j = 1 else continue for end if end if let ctxt[j,j] = text[i,i] let j = j + 1 end for return ctxt clipped end function ---------------------------------------------------------------------- John H. Frantz Power-4gl: Extending Informix-4gl john@rl.is http://www.rl.is/~john/pow4gl.html