59 lines
1.5 KiB
Plaintext
Executable File
59 lines
1.5 KiB
Plaintext
Executable File
/******************************************************************************
|
|
/*
|
|
/* The d_uv.trans file, used for creating D_UV.TRANS
|
|
/*
|
|
/* 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.........................................
|
|
/* 10/14/98 23801 SAP Change copyrights.
|
|
/* 11/12/91 8024 GMH Removed CURR.COUNT.
|
|
/* 09/13/91 8538 GMH Change Status from D to I-type, mod @ phrase, PATH len
|
|
/* 03/20/91 8147 KIS Change Pathname to attr 4
|
|
/* 03/18/91 8138 KIS Change CURR.COUNT @ID name from BP to TLnum and len
|
|
/* 02/15/91 7909 KIS Change CURR.COUNT ref to X type and PATH to attr. 4
|
|
/* and @ to not include CURR.COUNT
|
|
/* 07/27/90 7025 KIS Original code
|
|
/*
|
|
/*******************************************************************************
|
|
@ID D Default record ID for RetrieVe
|
|
0
|
|
|
|
TLnum
|
|
5L
|
|
S
|
|
ACCOUNT D
|
|
1
|
|
|
|
Account
|
|
14L
|
|
S
|
|
FILE D
|
|
2
|
|
|
|
File
|
|
10L
|
|
S
|
|
STATUS I
|
|
IF F3 = 0 THEN "" ELSE 'Active'
|
|
|
|
Status
|
|
6R
|
|
S
|
|
PATH D
|
|
4
|
|
|
|
Pathname
|
|
35L
|
|
S
|
|
@ PH
|
|
ACCOUNT FILE STATUS PATH COL.SPACES 2
|