lcCursor = 'yourcursor' alter table (lcCursor) add column lineno I select (lcCursor) replace all lineno with recno() * 10 index on lineno tag lineno Go top Scan IF STREXTRACT(PS,'(',')')='Usage Charges' AND LEFT(PS,1)='F' NEWPS='N '+ALLTRIM(STR(posC-2))+' '+ALLTRIM(STR(posR+7))+' '+ALLTRIM(STR(m.BoxEndcolumn-posC))+' '+'-8 i' lnCurrentLine = lineno - 1 insert into (lcCursor) (lineno, ps) values (lnCurrentLine , NEWPS ) ELSE ENDIF ENDSCAN>Sorry, I didn't got/understood what you said. Please Explain in detail.
>>>Go top >>>Scan >>>IF STREXTRACT(PS,'(',')')='Usage Charges' AND LEFT(PS,1)='F' >>>NEWPS='N '+ALLTRIM(STR(posC-2))+' '+ALLTRIM(STR(posR+7))+' '+ALLTRIM(STR(m.BoxEndcolumn-posC))+' '+'-8 i' >>>Skip-1 && Pointer Skips one record above >>>INSERT BLANK >>>Replace PS With NEWPS >>>Skip Pointer comes Back to Orignal Position >>>ELSE >>>ENDIF >>>ENDSCAN >>>>>>