tldm-universe/Ardent/UV/sample/demo.d_eng.f.u

146 lines
2.1 KiB
Plaintext
Raw Normal View History

2024-09-09 21:51:08 +00:00
/******************************************************************************
/*
/* 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