75 lines
2.5 KiB
Plaintext
75 lines
2.5 KiB
Plaintext
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* Convert dictionary item(s) from Pick to Uni*Verse format:
|
||
|
|
* COMMON declarations
|
||
|
|
*
|
||
|
|
* 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/22/98 23801 SAP Change company name to Ardent
|
||
|
|
* 10/14/98 23801 SAP Change copyrights.
|
||
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* The basis for this Pick-to-Uni*Verse dictionary converter was a
|
||
|
|
* Microdata-to-Prime converter written by J. Michael Cannady and
|
||
|
|
* Thomas J. Rauschenbach of Fulcrum Computer Group, Inc. Ardent
|
||
|
|
* was granted permission to use that code by Infocel, Inc., a successor
|
||
|
|
* of Fulcrum.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* << COMMON declarations for DC and its subroutines. This must be a >>
|
||
|
|
* << named COMMON, since another BASIC program may invoke the con- >>
|
||
|
|
* << verter, and its COMMON would conflict with this one. >>
|
||
|
|
*
|
||
|
|
COMMON /COMMON.FOR.DC/ VTYPE, SOURCE.MACHINE, EFV, UFV, PFV, VOC, LOGGING,
|
||
|
|
FILE, ITEM.NAME, A.AMC, PARSE.ONLY, CRT.COL, LPTR.COL, MAINTAIN.WHICH,
|
||
|
|
A.REC.LEVEL, NO.ERR, ERR.REC, UCODE.FV, NO.UCODES, OPERATOR.LAST, REUSE,
|
||
|
|
DC.OPENS,
|
||
|
|
DC.ITEM,
|
||
|
|
DC.CORR.CONV,
|
||
|
|
DC.A.CONV,
|
||
|
|
DC.A,
|
||
|
|
DC.A.EXP1,
|
||
|
|
DC.A.EXP2,
|
||
|
|
DC.A.EXP3,
|
||
|
|
DC.A.EXP4,
|
||
|
|
DC.A.EXP5,
|
||
|
|
DC.A.EXP6,
|
||
|
|
DC.A.EXP7,
|
||
|
|
DC.A.EXP8,
|
||
|
|
DC.A.EXP9,
|
||
|
|
DC.F,
|
||
|
|
DC.MESSAGE
|
||
|
|
*
|
||
|
|
*
|
||
|
|
*
|
||
|
|
DC.OPENS = "*DC.OPENS"
|
||
|
|
DC.ITEM = "*DC.ITEM"
|
||
|
|
DC.A.CONV = "*DC.A.CONV"
|
||
|
|
DC.A = "*DC.A"
|
||
|
|
DC.A.EXP1 = "*DC.A.EXP1"
|
||
|
|
DC.A.EXP2 = "*DC.A.EXP2"
|
||
|
|
DC.A.EXP3 = "*DC.A.EXP3"
|
||
|
|
DC.A.EXP4 = "*DC.A.EXP4"
|
||
|
|
DC.A.EXP5 = "*DC.A.EXP5"
|
||
|
|
DC.A.EXP6 = "*DC.A.EXP6"
|
||
|
|
DC.A.EXP7 = "*DC.A.EXP7"
|
||
|
|
DC.A.EXP8 = "*DC.A.EXP8"
|
||
|
|
DC.A.EXP9 = "*DC.A.EXP9"
|
||
|
|
DC.CORR.CONV = "*DC.CORR.CONV"
|
||
|
|
DC.F = "*DC.F"
|
||
|
|
DC.MESSAGE = "*DC.MESSAGE"
|
||
|
|
|