if ( includeserviceid == "1" )
	ld_tbsservice(tbsservicefile)

function ld_tbsservice(servicefile) {
	#printf("ld_tbsservice(%s)\n", servicefile)

	#230|(C)126|ZMW1|METRO TRAINS MELB PTY LTD|MTM EX CONNEX RENT/CALLS|ZMW|METRO TRAINS MELBOURNE PTY LTD|1|VC2|OTHER CARRIER 2 WIRE EXTN|||BURNLEY|Service Records|Service Records|Dec 04 2000 12:00AM||
	#236|(C)127|ZMW1|METRO TRAINS MELB PTY LTD|MTM EX CONNEX RENT/CALLS|ZMW|METRO TRAINS MELBOURNE PTY LTD|1|VC2|OTHER CARRIER 2 WIRE EXTN|||BLACKBURN STATION|Service Records|Service Records|Dec 04 2000 12:00AM||

	while ( (getline aline < servicefile) > 0 ) {
		split(aline, a_arr, "|")
		##printf("aline=%s\n", aline)
		f = 0
		ServiceIDID = trim(a_arr[++f])
		ServiceID = trim(a_arr[++f])
		CustCent = trim(a_arr[++f])
		CustDept = trim(a_arr[++f])
		CustGrp = trim(a_arr[++f])
		ShipTo = trim(a_arr[++f])
		FullName = trim(a_arr[++f])
		ServiceActive = trim(a_arr[++f])
		Code = trim(a_arr[++f])
		ServType = trim(a_arr[++f])
		PersonID = trim(a_arr[++f])
		Person = trim(a_arr[++f])
		Location = trim(a_arr[++f])
		System = trim(a_arr[++f])
		Batchtype = trim(a_arr[++f])
		InstallationDate = trim(a_arr[++f])
		TerminationDate = trim(a_arr[++f])

		ServiceIDID_to_ServiceID_arr[ServiceIDID] = ServiceID

	}
	close(servicefile)
}