Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DMSLIB.ZIP
Filename : RECMOVE.PRG

 
Output of file : RECMOVE.PRG contained in archive : DMSLIB.ZIP
**||RECMOVE.PRG updated on- Thursday, October 29, 1987 at- 10:05 am
**||(c)1987, D M Sampson Consulting

function approx
parameter record,fldno
private curdata,ndxfld
ndxfld = field(fldno)
seek record
if .not. found()
goto 1
curdata = &ndxfld
replace &ndxfld with record
skip
if eof()
go bott
endif
currec = recno()
goto 1
replace &ndxfld with curdata
goto currec
endif
return recno()



function skipbot
parameter dbf,exp
private ok,area,key

area = alias()
ok = .t.

select &dbf
key = indexkey(0)

skip 1
if eof() .or. .not. &exp = &key
ok = .f.
skip -1
endif
select &area
return ok





function skiptop
parameter dbf,exp
private ok,area,key

area = alias()
ok = .f.

select &dbf
key = indexkey(0)

if .not. bof()
ok = .t.
skip -1
if .not. &exp = &key
ok = .f.
skip
endif
endif
select &area
return ok




**||End of File-> RECMOVE.PRG


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DMSLIB.ZIP
Filename : RECMOVE.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/