Getnext lookup -

[Walter Vaughan]

Preface: I always thought using *clerk as import tool was evil
Recently: Because of working with SQL so much recently I've changed

Senario: Import data from spreadsheet. Two columns, part number and price

@keyR::mesgbox "Replace with data from /tmp/2009changes.csv?","Press y 
or n","yn":
:@bk ne "y":end:
loopU::import word upd=/tmp/2009changes.csv:
:not upd:end:
::pn(10,,g)=upd(1):
::lookup -  k=pn   i=b -nx:
:1 ne pn:show "@No match for "<pn; goto loopU:
udprice::6=upd(2):
::write:
::getnext -:
:1 ne pn:goto loopU:
::goto udprice:

I know this is not production level code, but since I've never
until this morning used "getnext -", I thought I'd pass it on for
someone else who might could use this snippet as an example.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mailman.celestial.com/pipermail/filepro-list/attachments/20081204/94d94e7e/attachment.html