!+
! Symbolic constants
!-
	Integer EMPNAME, EMPBADGE, EMPCC, EMPADDRESS, EMPREASON
	Integer TRIPDATE, TRIPFROM, TRIPTO, TRIPRECORD
        Parameter(EMPNAME=32)
        Parameter(EMPBADGE=6)
        Parameter(EMPCC=3)
        Parameter(EMPADDRESS=120)
        Parameter(EMPREASON=64)
        Parameter(TRIPDATE=8)
        Parameter(TRIPFROM=3)
        Parameter(TRIPTO=3)
	Parameter(TRIPRECORD=36)
!+
! Structure delcarations for the form records
!-

        Structure /header_info_struct/
            Character    employee_name*(EMPNAME)
            Character    badge_number*(EMPBADGE)
            Character    cost_center*(EMPCC)
            Character    address*(EMPADDRESS)
            Character    reason*(EMPREASON)
        End Structure

        Structure /trip_struct/
            Character   trip_date*(TRIPDATE) ! date of the trip
            Character   trip_from*(TRIPFROM) ! start facility
            Character   trip_to*(TRIPTO)     ! end facility
            Integer*4   miles        ! miles travelled
            Integer*4   amount       ! mileage amount
            Integer*4   toll         ! toll amount
            Integer*4   subtotal     ! total for trip
        End Structure

        Structure /totals_struct/
            Integer*4   total_miles        ! total miles travelled
            Integer*4   total_amount       ! total mileage amount
            Integer*4   total_tolls        ! total toll amount
            Integer*4   form_total         ! total for all trips
        End Structure