90 lines
3.4 KiB
C
Executable File
90 lines
3.4 KiB
C
Executable File
*******************************************************************************
|
|
*
|
|
* 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
|