SCRIPT (IN CURRENT_ACCID INTEGER)
BEGIN
DECLARE Buffer CURSOR FOR stmt;
DECLARE UpdateItems STATEMENT;
DECLARE UpdateVariants STATEMENT;
DECLARE ItemNo CHAR(20);
DECLARE VendorCode CHAR(20);
DECLARE Barcode VARCHAR(20);
DECLARE BarcodeAction INTEGER;
DECLARE Qty DECIMAL(0,2);
DECLARE Val DECIMAL(0,2);
DECLARE UnitPrice DECIMAL(0,2);
DECLARE UnitCost DECIMAL(0,2);
DECLARE Amount DECIMAL(0,2);
DECLARE OrderQty DECIMAL(0,2);
DECLARE VarID INTEGER;
DECLARE ColorCode VARCHAR(20);
DECLARE ColorText VARCHAR(30);
DECLARE SizeCode VARCHAR(10);
DECLARE SizeText VARCHAR(30);

PREPARE stmt FROM
'SELECT * FROM Buffer WHERE VariantID IS NOT NULL'; -- and lineno<>120000';
PREPARE UpdateVariants FROM
'UPDATE ItemVariants SET
 ColorCode=IFNULL(?,ColorCode,?),
 SizeCode=IFNULL(?,SizeCode,?),
 ColorText=IFNULL(?,ColorText,?),
 SizeText=IFNULL(?,SizeText,?),
 Barcode=IF(?=2,?,Barcode) WHERE RecordID=?';
OPEN Buffer;
FETCH FIRST FROM Buffer;
WHILE NOT EOF(Buffer) DO
  FETCH FROM Buffer ('VariantID') INTO VarID;
  FETCH FROM Buffer ('ColorCode') INTO ColorCode;
  FETCH FROM Buffer ('ColorText') INTO ColorText;
  FETCH FROM Buffer ('SizeCode') INTO SizeCode;
  FETCH FROM Buffer ('SizeText') INTO SizeText;
  FETCH FROM Buffer ('Barcode') INTO Barcode;
  FETCH FROM Buffer ('BarcodeAction') INTO BarcodeAction;
  EXECUTE UpdateVariants USING CAST(ColorCode AS VARCHAR(20)),CAST(ColorCode AS VARCHAR(20)),SizeCode,SizeCode,ColorText,ColorText,SizeText,SizeText,BarcodeAction,Barcode,VarID;
  FETCH NEXT FROM Buffer;
END WHILE;
CLOSE Buffer;
END