Something like this (not tested):
create cursor TmpResult (Col1 I, Col2I, ...)
select InitialTable
scan
lnValue = Values
select TmpResult
do case
case between(lnValue, 100000, 199000)
lcColumn = "Col1"
case between(lnValue, 200000, 299000)
lcColumn = "Col2"
case ...
endcase
locate for empty(&lcColumn)
if eof()
append blank
endif
replace (lcColumn) with lnValue
endscan
>Sir,
>
>I have following data
>
>createcursor no (no i)
>insertinto no values (1045)
>insertinto no values (1057)
>insertinto no values (1582)
>insertinto no values (100595)
>insertinto no values (138143)
>insertinto no values (200129)
>insertinto no values (400290)
>insertinto no values (500692)
>insertinto no values (526834)
>insertinto no values (604796)
>insertinto no values (636867)
>insertinto no values (650205)
>insertinto no values (702060)
>insertinto no values (828486)
>insertinto no values (900428)
>insertinto no values (915414)
>insertinto no values (971656)
>insertinto no values (998987)
>
>Table has only one fixed length column as n(6).
>
> I want to get this result:
>Attachment: Image1
>
>and data range in columns is as under:
> Attachment: Image2
>
>Please help me
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)