ADD TABLE "Benefits"
  AREA "Employee"
  DESCRIPTION "The benefits table contains employee benefits."
  DUMP-NAME "benefits"

ADD FIELD "EmpNum" OF "Benefits" AS integer
  FORMAT "zzzzzzzzz9"
  INITIAL "0"
  LABEL "Emp No"
  POSITION 2
  MAX-WIDTH 4
  VALEXP "CAN-FIND(employee OF benefits)"
  VALMSG "Employee must exist."
  HELP "Please enter the Emp Number"
  ORDER 10

ADD FIELD "HealthCare" OF "Benefits" AS character
  FORMAT "x(8)"
  INITIAL ""
  LABEL "Health Care"
  POSITION 3
  MAX-WIDTH 16
  HELP "Please enter the Health Care field."

##</code><code>##

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

##</code><code>##

table=Benefits
field=EmpNum
type= AS integer
length=EmpNum
field=HealthCare
type= AS character
length=HealthCare
fieldlength=HealthCare
srclength=varcharealthCar
field=LifeInsurance
type= AS integer
length=LifeInsurance