*******************************************************************************
*
*	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"