156 lines
2.3 KiB
Plaintext
Executable File
156 lines
2.3 KiB
Plaintext
Executable File
/*******************************************************************************
|
|
/*
|
|
/* Dictionary of UV_UDRPUB file
|
|
/*
|
|
/* 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.
|
|
/*
|
|
/*******************************************************************************
|
|
/*
|
|
/* Maintenence log - insert most recent change descriptions at top
|
|
/*
|
|
/* Date.... GTAR# WHO Description........................................
|
|
/* 04/28/99 21797 OGO Change DICT_PUB to DICT_FILE_KEY.
|
|
/* 23641 OGO added MDNAME, added DICTNAME
|
|
/* 24138 OGO updated &VERSION&
|
|
/* 01/14/99 21797 OGO Change DATACSUM to REC_TYPE, DATADEF to -NA-,
|
|
/* ACCESSLIST to ACCESS_LIST,added SUBS,
|
|
/* added SUBS_ACCOUNTS, added DICT_PUB, added PNT_FILENAME,
|
|
/* added PNT_ACCOUNT, added PNT_DESC, added PNT_REC_TYPE,
|
|
/* added PNT_DICT_PUB, added &VERSION&, Change @.
|
|
/* 10/14/98 23801 SAP Change copyrights.
|
|
/* 07/16/97 20246 DJD Added &NEXT.AVAILABLE&
|
|
/* 06/24/97 20606 LAG Initial creation and sccs
|
|
/*
|
|
/*******************************************************************************
|
|
@ID D Default record ID for RetrieVe
|
|
0
|
|
|
|
UV_UDRPUB
|
|
10L
|
|
S
|
|
FILENAME D
|
|
1
|
|
|
|
|
|
20T
|
|
S
|
|
ACCOUNT D
|
|
2
|
|
|
|
|
|
20T
|
|
S
|
|
DESC D
|
|
3
|
|
|
|
|
|
40T
|
|
S
|
|
-NA- D
|
|
4
|
|
|
|
|
|
10T
|
|
S
|
|
REC_TYPE D
|
|
5
|
|
|
|
|
|
10T
|
|
S
|
|
ACCESS_LIST D
|
|
6
|
|
|
|
|
|
20T
|
|
M
|
|
SUBS_SYS D
|
|
7
|
|
|
|
|
|
10L
|
|
M
|
|
SUBS_FILE D
|
|
8
|
|
|
|
|
|
10L
|
|
M
|
|
SUBS D
|
|
9
|
|
|
|
|
|
10L
|
|
M
|
|
SUBS_ACCOUNTS D
|
|
10
|
|
|
|
|
|
10L
|
|
M
|
|
DICT_FILE_KEY D
|
|
11
|
|
|
|
|
|
10T
|
|
S
|
|
PNT_FILENAME D
|
|
12
|
|
|
|
|
|
10L
|
|
M
|
|
PNT_ACCOUNT D
|
|
13
|
|
|
|
|
|
10L
|
|
M
|
|
PNT_DESC D
|
|
14
|
|
|
|
|
|
10L
|
|
M
|
|
PNT_REC_TYPE D
|
|
15
|
|
|
|
|
|
10L
|
|
M
|
|
PNT_DICT_PUB D
|
|
16
|
|
|
|
|
|
10T
|
|
M
|
|
MDNAME D
|
|
17
|
|
|
|
|
|
10T
|
|
S
|
|
DICTNAME D
|
|
18
|
|
|
|
|
|
10T
|
|
S
|
|
ACCOUNTPATH I
|
|
TRANS(UV.ACCOUNT, ACCOUNT, PATH, 'X')
|
|
|
|
|
|
40T
|
|
S
|
|
&NEXT.AVAILABLE& X
|
|
1
|
|
&VERSION& X
|
|
3
|
|
@ PH
|
|
FILENAME ACCOUNT DESC ID.SUP REC_TYPE ACCESS_LIST SUBS_SYS SUBS_FILE SUBS SUBS_ACCOUNTS DICT_FILE_KEY PNT_FILENAME PNT_ACCOUNT PNT_DESC PNT_REC_TYPE PNT_DICT_PUB MDNAME DICTNAME
|