HELP needed with FILE Structure ...
Bhartha,
Convert the ascii file to a file which support key's and then use the
key's to find your components.
IMPORT FILE,PRE(CSV),DRIVER('Basic','ALWAYSQUOTE=off'),NAME('DosSt.csv')
RECORD RECORD
StockID1 STRING(10)
Location STRING(10)
StockID2 STRING(10)
Descrption STRING(40)
Price STRING(10)
END
END
EXPORT FILE,PRE(EXP),DRIVER('Topspeed'),CREATE,NAME('DosSt.tps')
kStockID1 KEY(EXP:StockID1),DUP,OPT,NOCASE
kStockID2 KEY(EXP:StockID2),DUP,OPT,NOCASE
RECORD RECORD
StockID1 STRING(10)
Location STRING(10)
StockID2 STRING(10)
Descrption STRING(40)
Price REAL
END
END
CODE
OPEN(IMPORT)
IF ErrorCode() THEN HALT(0,'Import: (' & ErrorCode() & ') ' & Error()) .
CREATE(EXPORT)
OPEN(EXPORT)
IF ErrorCode() THEN HALT(0,'Export: (' & ErrorCode() & ') ' & Error()) .
SET(IMPORT)
LOOP
NEXT(IMPORT)
IF ErrorCode() THEN BREAK .
EXP:StockID1 = CSV:StockID1
EXP:Location = CSV:Location
EXP:StockID2 = CSV:StockID2
EXP:Descrption = CSV:Descrption
EXP:Price = CSV:Price
APPEND(EXPORT)
IF ErrorCode() THEN STOP('Export: (' & ErrorCode() & ') ' & Error()) .
END
BUILD(EXPORT)
IF ErrorCode() THEN STOP('Export: (' & ErrorCode() & ') ' & Error()) .
--
Best Regards,
Maarten
C5EEb - ABC
Certainly Clarion Developer