/******************************************************************************
/*
/*	Data in loadfile format to be loaded into demo file D_ENGAGEMENTS.F
/*
/*	Module	%M%	Version	%I% 	Date	%H%
/*
/*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
/*	This is unpublished proprietary source code of Ardent Software Inc.
/*	The copyright notice above does not evidence any actual or intended
/*	publication of such source code.
/*
/*******************************************************************************
/*
/*	Maintenance log - insert most recent change descriptions at top
/*
/*	Date.... GTAR# WHO Description........................................
/*	10/14/98 23801 SAP Change copyrights. 
/*	01/24/96 17671 LAG Updated header to reflect loadfile comment format
/*	05/09/95 16054 KAB Updates from Technical Publications
/*	04/21/95 16054 KAB Updates from Technical Publications
/*	04/18/95 16054 TFH Initial version
/*
/*******************************************************************************
/*
@	PH
	ID.SUP LOCATION.CODE DATE TIME ADVANCE
@ID	D Default record ID for RetrieVe
	0
	
	ENGAGEMENTS.F
	10L
	S
@REVISE	PH
	TIME ADVANCE GATE.NUMBER GATE.REVENUE GATE.TICKETS ACT.NO RIDE.ID RIDE.REVENUE RIDE.TICKETS CONC.ID CONC.REVENUE CONC.TICKETS LABOR PAY
ACT.NO	D
	6
	
	
	5R
	M
ADVANCE	D
	2
	MD2$,
	
	12R
	S
CONC.ID	D
	10
	
	
	5R
	M
	CONCS.ASSOC
CONC.REVENUE	D
	11
	MD2$,
	
	12R
	M
	CONCS.ASSOC
CONC.TICKETS	D
	12
	
	
	5R
	M
	CONCS.ASSOC
CONCS.ASSOC	PH
	CONC.ID CONC.REVENUE CONC.TICKETS
DATE	I
	FIELD(@ID,"*",2)
	D2/
	
	10R
	S
	
GATE.NUMBER	D
	3
	
	
	5R
	M
GATE.REVENUE	D
	4
	MD2$,
	
	12R
	M
	GATES.ASSOC
GATE.TICKETS	D
	5
	
	
	5R
	M
	GATES.ASSOC
GATES.ASSOC	PH
	GATE.NUMBER GATE.REVENUE GATE.TICKETS
LABOR	D
	13
	
	
	5R
	S
LOCATION.CODE	I
	FIELD(@ID,"*",1)
	
	
	7L
	S
PAY	D
	14
	MD2$,
	
	10R
	S
RIDE.ID	D
	7
	
	
	5R
	M
	RIDES.ASSOC
RIDE.REVENUE	D
	8
	MD2$,
	
	12R
	M
	RIDES.ASSOC
RIDE.TICKETS	D
	9
	
	
	5R
	M
	RIDES.ASSOC
RIDES.ASSOC	PH
	RIDE.ID RIDE.REVENUE RIDE.TICKETS
TIME	D
	1
	MTH
	
	10R
	S