I am Using the following code to Insert a Record. However, if the original record is at the Begnining of File i.e if RECNO()=1, I am not able to insert a Blank record before my original record.

Thus if my STREXTRACT(PS,'(',')')='Usage Charges' AND LEFT(PS,1)='F' is found at the begin of File I need to insert one Blank record before it.

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				

Kindly Guide