Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

MODULE APXERR (
		LANGUAGE(BLISS36)
		) =
BEGIN
 
!
!		       COPYRIGHT (c) 1980 BY
!	    Digital Equipment Corporation, Maynard, MA.
!
!   This software is furnished under a license and may be  used
!   and  copied  only  in  accordance  with  the  terms of such
!   license and with  the  inclusion  of  the  above  copyright
!   notice.   This software or any other copies thereof may not
!   be provided  or  otherwise	made  available  to  any  other
!   person.   No  title  to  and  ownership  of the software is
!   hereby transferred.
!
!   The information in	this  software	is  subject  to  change
!   without  notice and should not be construed as a commitment
!   by Digital Equipment Corporation.
!
!   Digital  assumes  no  responsibility   for	 the   use   or
!   reliability  of  its  software  on	equipment  which is not
!   supplied by Digital.
!
 
!++
! FACILITY: Autopatch Exec Error Table Module
!
! ABSTRACT:
!
!
!
!
! ENVIRONMENT: TOPS-20 / TOPS-10
!
! AUTHOR: Donald R. Brandt, CREATION DATE: 7 Mar 1980
!
! MODIFIED BY:
!
!	Revision history follows
!
!--

!
! Edit History for APXERR
!
! ERR001  by DRB on 15-Oct-80
!   Added error SIB to SETUP routine to generate a warning if a
!   SETUP was attempted after the batch job was submitted.
!
! ERR002  by DRB on 15-Oct-80
!   Added  error  DDH  to  issue  a  warning   message   before
!   DESELECTing a product.
!
! ERR003  by DRB on 30-Oct-80
!   Changed error NDF to show patching directory.
!
! ERR004  by DRB on 31-Oct-80
!   Added command errors NPS, NTS, UHT, UPN,  and  URC.   These
!   table  entries  are  never  used;  error messages for these
!   errors are generated in GLXEXT.
!
! ERR005  by DRB on 31-Oct-80
!   Added error NPR.
!
! ERR006  by DRB on 31-Oct-80
!   Changed text of error messages IFR and CBM.
!
! ERR007  by DRB on 7-Nov-80
!   Added DAD error message (directory already defined).
!
! 064  by ESB on
!   Added CUU error message.
!
! 110  by RBW on 22-Aug-83
!   Added NFP error mesage (non-fatal protection violation).

GLOBAL BIND EDTERR = %O'64' ;		! Edit level of this module

LIBRARY 'APEX'		;		!APEX macros

GLOBAL BIND EDTAPX = APEX_EDT ;		! Edit level of APEX.R36


MACRO
    $KEYKEY (TABLE) =
	VECTOR [TBL_SIZ(%REMOVE(TABLE))]
	INITIAL
	  ( KEY_COUNT(%REMOVE(TABLE)), KEY_KEY_SET(%REMOVE(TABLE)) ) %,

    TBL_SIZ (TBL) = 
	%LENGTH+1 %,

    KEY_COUNT (TBL) =
	(%LENGTH)^18+%LENGTH %,

    KEY_KEY_SET [PAIR] =
	K( %REMOVE(PAIR) ) %,

    K(T1,T2) =
	%IF %NULL(T2)
	%THEN
	    UPLIT(%ASCIZ %STRING(T1))^18 + 0
	%ELSE
	    UPLIT(%ASCIZ %STRING(T1))^18 + UPLIT(%ASCIZ %STRING(T2))
	%FI % ;

!
!   Errors NPS, NTS, UHT, UPN, and URC come from GLXEXT.   They
!   are included here for completeness.
!

OWN ERR_TBL:
    $KEYKEY((('AAA'),
	     ('AEM','Address entry missing (Internal error)'),
	     ('BJF','Batch job failed while patching and rebuilding '),
	     ('CBL','Cannot build patch list (Internal error)'),
	     ('CBM','Cannot build master product list from file '),
	     ('CBP',' cannot be built'),
	     ('CCD','Cannot checkpoint database to '),
	     ('CCF','Cannot close file '),
	     ('CCJ','Cannot complete batch job'),
	     ('CCR','Cannot complete RETRIEVE processing'),
	     ('CCS','Cannot complete SETUP processing of '),
	     ('CDC','Checkpointed database is corrupt'),
	     ('CDF','Cannot delete file '),
	     ('CDL','Cannot define logical name '),
	     ('CEC','Cannot enter code in symbol table'),
	     ('CGC','Cannot get checksum of file '),
	     ('CGV','Cannot get version of file '),
	     ('CID','Checksum of '),
	     ('CIP',' cannot be installed'),
	     ('COF','Cannot open file '),
	     ('CPF','Cannot process batch status file for '),
	     ('CPI','Cannot provide status information for '),
	     ('CRC','Cannot read checkpointed database from file '),
	     ('CRD','Cannot read patch directory from file '),
	     ('CRE','Cannot read product description from file '),
	     ('CRF','Cannot read file '),
	     ('CRP',' cannot be RESTOREd'),
	     ('CSP',' cannot be SELECTed'),
	     ('CUU','Cannot update utility file information from file '),  ![064]
	     ('CWF','Cannot write file '),
	     ('DAD',' is already defined to be the '),
	     ('DDH','DESELECTing will destroy the patch history of '),
	     ('DEF','Delete table entry failed for '),
	     ('FAM','Files created during the batch job now appear to be missing'),
	     ('FCW','Format of checkpointed database is wrong'),
	     ('FNB','All files were not backed up for '),
	     ('FNR','All files were not replaced for '),
	     ('IDL','Illegal data in line '),
	     ('IDT','Illegal Datatype (Internal error); expected type '),
	     ('IFR','Initialization failed while trying to read '),
	     ('INC','Installation not completed for '),
	     ('JNF',' batch job never completed'),
	     ('MBI',' must be INSTALLed before proceeding.  (Last INSTALL failed)'),
	     ('MBR',' must be RESTOREd before proceeding.  (Last RESTORE failed)'),
	     ('NDF','No patch directory files found in '),
	     ('NFD','Null FD (Internal error) at address '),
	     ('NFP','Non-fatal protection failure for '),
	     ('NPR','No patches have been RETRIEVEd for '),
	     ('NPS','No product name specified'),
	     ('NTS','No HELP topic specified'),
	     ('PAS',' is already SELECTed'),
	     ('PNB',' must be rebuilt'),
	     ('PNI',' was never INSTALLed'),
	     ('PNS',' must be SETUP'),
	     ('PPM','Prerequisite patches missing for '),
	     ('RNC','RESTORE not completed for '),
	     ('SIB','Continuing will interfere with the batch job previously SETUP for '),
	     ('SSF','Symbol table search failed for '),
	     ('TEF','Table entry failed for '),
	     ('UDT','Unknown datatype found in checkpointed database '),
	     ('UHT','Unrecognized HELP topic'),
	     ('UPL',' is not a library for '),
	     ('UPN','Unrecognized product name'),
	     ('URC','Unrecognized command'),
	     ('VID','Version number of '),
	     ('ZZZ'))) ;

GLOBAL
    ERR_LIST:	DTABLE$$(ERR_TBL) ;

 
 
END
 
ELUDOM