Code: Select all
* Suppress Messages
ON ERROR com_Mesg=MESSAGE()
* Add BMC column
ALTER TABLE (ALIAS()) ADD COLUMN bmc C(3)
* Add BMC number
REPLACE ALL bmc WITH substr(GetLineValue(ADDBS(xDefFldr)+"iPresort\DMM\AZL601.txt",INT(VAL(LEFT(zip,3))),67,.T.,.T.),9,3)