*******************************************************************************
*
*	uniVerse include file REVISE.H
*
*	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. 
*	11/12/92 10214 PVW Port PI/open ENTRO to replace uniVerse REVISE.
*
*******************************************************************************

      EQU REVISE.PROCESSES          TO 'REVISE.PROCESSES'
      EQU REVISE.DISCUSSIONS        TO 'REVISE.DISCUSSIONS'
      EQU REVISE.PHRASE             TO '*REVISE.PHRASE'
      EQU REVISE.ASSOC              TO '*REVISE.ASSOC'

*     The following define REVISE keys
*
      EQU RV$AT.ID                  TO '@ID'
      EQU RV$AT.REVISE              TO '@REVISE'

*     The following define REVISE commands
*
      EQU RV$CMD.END                TO 'END'
      EQU RV$CMD.QUIT               TO 'QUIT'
      EQU RV$CMD.HELP               TO '?'
      EQU RV$CMD.EXTENDED.HELP      TO '??'
      EQU RV$CMD.PROMPT             TO '^'
      EQU RV$CMD.REDRAW             TO '^^'
      EQU RV$CMD.TOP                TO 'TOP'
      EQU RV$CMD.DELETE             TO 'DELETE'
      EQU RV$CMD.SKIP               TO '.'
      EQU RV$CMD.FILE               TO 'FILE'

*     The following define the fields 1 - 10 of REVISE.PROCESSES
*     records.

      EQU RV$PRO.TITLE              TO 1
      EQU RV$PRO.FILE.NAME          TO 2
      EQU RV$PRO.BATCH.TOTAL.AMC  TO 3
      EQU RV$PRO.BATCH.NO           TO 4
      EQU RV$PRO.BATCH.AMC          TO 5
      EQU RV$PRO.ENTRY.DATE.AMC     TO 6
      EQU RV$PRO.SCREEN.HEADING     TO 8
      EQU RV$PRO.AUDIT.FILE         TO 9
      EQU RV$PRO.FIELD10            TO 10

      EQU RV$PRO.FLD.BEG            TO 11
      EQU RV$PRO.FLD.END            TO 999

*     The following define the multivalues of fields 11 - 999 of
*     REVISE.PROCESSES records.

      EQU RV$PRO.FLD.NAME           TO 1
      EQU RV$PRO.FLD.LOCATION       TO 2
      EQU RV$PRO.FLD.CONVERSION     TO 3
      EQU RV$PRO.FLD.DISPLAY        TO 4
      EQU RV$PRO.FLD.FORMAT         TO 5
      EQU RV$PRO.FLD.REQUIRED       TO 6
      EQU RV$PRO.FLD.ASSOCIATION    TO 7
      EQU RV$PRO.FLD.FILL.CODE      TO 8
      EQU RV$PRO.FLD.VERIFILE       TO 9
      EQU RV$PRO.FLD.VERIFIELD      TO 10
      EQU RV$PRO.FLD.SCREEN.NO      TO 11
      EQU RV$PRO.FLD.MATCHFIELD     TO 12
      EQU RV$PRO.FLD.PASSIVE.XREF   TO 13
      EQU RV$PRO.FLD.DISPLAYONLY    TO 14
      EQU RV$PRO.FLD.ACTIVE.XREF    TO 15
      EQU RV$PRO.FLD.16             TO 16
      EQU RV$PRO.FLD.17             TO 17
      EQU RV$PRO.FLD.BRIEFHELP      TO 18
      EQU RV$PRO.FLD.19             TO 19
      EQU RV$PRO.FLD.20             TO 20

*     The following define values for various multivalues of fields
*     11 - 999 of REVISE.PROCESSES records.

      EQU RV$PRO.VAL.REQUIRED       TO 'R' ;* value for RV$PRO.FLD.REQUIRED
      EQU RV$PRO.VAL.NEXTAVAILABLE  TO 'O' ;* value for RV$PRO.FLD.REQUIRED