!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