79 lines
3.1 KiB
C
Executable File
79 lines
3.1 KiB
C
Executable File
!INCLUDE
|
|
******************************************************************************
|
|
*
|
|
* Named common for *vmadmsub
|
|
*
|
|
* 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/19/98 23768 DJD Added Filefix Vars.
|
|
* 10/14/98 23801 SAP Change copyrights.
|
|
* 03/13/97 20246 DJD Added Data source variables.
|
|
* 08/19/96 19076 JC Added USD.PATH to UVADMIN Common.
|
|
* 03/19/96 17839 LA Added ETC.FVAR for network services use
|
|
* 03/01/96 17839 LA Added UVHOMEBIN
|
|
* 08/01/96 17839 LA Added UFDFvar for shared memory use
|
|
* 11/07/95 17839 LA Subroutine created
|
|
************************************************************************
|
|
|
|
EQU True to 1
|
|
EQU False to 0
|
|
EQU ESC To Char(27)
|
|
EQU HUGE to 999999
|
|
|
|
************************************************************************
|
|
! Client Specific Parameters PLACE YOUR OWN PARAMETERS HERE
|
|
************************************************************************
|
|
Common /UVADMIN/ DEVICES
|
|
Common /UVADMIN/ USD.PATH, USA.PATH, USM.PATH, SPOOL.DIR, USPLOG.PATH
|
|
Common /UVADMIN/ DEBUGGING, VOC, UVACCOUNT, UVHOME, DEBUGFL
|
|
Common /UVADMIN/ UVRC, UVRC.OPEN, USD.SCRIPT, UFDFvar, UVHOMEBIN
|
|
Common /UVADMIN/ ETC.FVAR, DataSourceArray, DataSourceDetails
|
|
Common /UVADMIN/ PreDataSources, PostDataSources, FileFixConId, FileFixOpen
|
|
Common /UVADMIN/ FileFixError
|
|
|
|
|
|
*********************************************************************
|
|
* Equates for handling usplog
|
|
*********************************************************************
|
|
EQU USPP.PRINTER To 1
|
|
EQU USPP.FORM To 2
|
|
EQU USPP.FILTER To 3
|
|
EQU USPP.PP To 4
|
|
EQU USPP.STATUS To 5
|
|
|
|
EQU USPJ.TIMER To 1
|
|
EQU USPJ.JOBID To 2
|
|
EQU USPJ.OWNER To 3
|
|
EQU USPJ.COPIES To 4
|
|
EQU USPJ.STARTPG To 5
|
|
EQU USPJ.ENDPG To 6
|
|
EQU USPJ.SIZE To 7
|
|
EQU USPJ.PRIORITY To 8
|
|
EQU USPJ.HEAD To 9
|
|
EQU USPJ.NUMBER To 10
|
|
EQU USPJ.EJECT To 11
|
|
EQU USPJ.DELETE To 12
|
|
EQU USPJ.NAME To 13
|
|
EQU USPJ.BANNER To 14
|
|
EQU USPJ.MESSAGE To 15
|
|
EQU USPJ.FORM To 16
|
|
EQU USPJ.STATUS To 17
|
|
EQU USPJ.HOLD To 18
|
|
EQU USPJ.STARTLINE To 19
|
|
EQU USPJ.ENDLINE To 20
|
|
EQU USPJ.QFORM To 21
|
|
EQU USPJ.STOPSTR To 22
|
|
EQU USPJ.STARTSTR To 23
|
|
EQU USPJ.BEENPRINTED To 24
|
|
EQU USPJ.JOBNAME To 25
|