while (<INFILE1>){

#	define variables

	$FULL_LINE = $_;
	$TABDISPLAY = 0;
	$FIELDDISPLAY = 0;
	$DATEFIELD = 0;
	$SHORTLINE = substr($FULL_LINE,0,length($FULL_LINE)-2);
	@LINEARRAY[0..9] = split(/"+/, $SHORTLINE);
	$FIELDLENGTH = "";
	$FIELD = "";
	$TYPE = "";
	
#	decide if input line is table name or field name

	if($LINEARRAY[0]=/ADD TABLE/) {
		$TABLE="$LINEARRAY[1]";
		$TABDISPLAY=1;
print OUTFILE3  ("table=" . "$TABLE \n");
	} elsif	($LINEARRAY[0]=/ADD FIELD/) {
		$FIELD=$LINEARRAY[1];
		$TYPE=$LINEARRAY[4];
		$FIELDDISPLAY=1;
		#need bit in here to pick up next line to set fieldlength below!
		$FIELDLENGTH=$LINEARRAY[1];
print OUTFILE3  ("field=" . "$FIELD \n");
print OUTFILE3  ("type=" . "$TYPE \n");
print OUTFILE3  ("length=" . "$FIELDLENGTH \n");
	};
#snipped the rest