Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-08 - 43,50512/rmcerr.bli
There are no other files named rmcerr.bli in the archive.
MODULE RMCERROR (
		  IDENT = ' '
		  ) =
BEGIN


! COPYRIGHT (C) 1978
! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754
!
! THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE
! COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY 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
! EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE
! TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES
! REMAIN IN DEC.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
! AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT
! CORPORATION.
!
! DEC ASSUMES  NO  RESPONSIBLILTY  FOR  THE USE OR  RELIABILITY OF ITS
! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
!
!++
! FACILITY:
!	RMCOPY FOR CROSS-COMPATIBLE BLISS MACHINES
!
! ABSTRACT:
!	This module contains the message and error message handling 
!	routines for the RMCOPY program.   It also contains
!	the message tables which are indexed by error number/literal.
!
! ENVIRONMENT:
!	Transportable
!
! AUTHOR: JOHN DEROSE	, CREATION DATE: FEB 1978
!
! MODIFIED BY:
!     , : VERSION
! 01   -	29-NOV-79 error in the global MSGTAB table - RMCSNI message
!
!--
!
! TABLE OF CONTENTS:
!
!	RMC_TTY		RMCOPY COMMON TTY (ERROR) MESSAGE OUPUT ROUTINE

!FORWARD ROUTINE
!
FORWARD ROUTINE
	RMC_MSG;	!RMCOPY TTY MSG ROUTINE


! INCLUDE FILES:
!
LIBRARY 'RMCOPY';

!
! MACROS:
!

!
! EQUATED SYMBOLS:
!

!
! OWN STORAGE:
!

!
! EXTERNAL REFERENCES:
!

EXTERNAL ROUTINE
	FND_VALUE,		!Find value routine
	MSGERR;




!	R M C O P Y   E R R O R  L I T E R A L S
!		DEFINITIONS
!	THIS IS DONE TO ALLOW OF ERROR / CORRECTION
!	To add to this table, the literal value must be 
!	place in the RMCCOM.REG Module.

GLOBAL BIND

MSGTAB=PLIT(
	UPLIT(	RMCAQF,%ASCIZ'RMCAQF Acknowledgement receive failed'),
	UPLIT(	RMCCMD,%ASCIZ' (CMD FILE) = '),
	UPLIT(	RMCCTL,%ASCIZ'RMCCTL Command string too long'),
	UPLIT(	RMCDES,%ASCIZ' (DESTINATION FILE) = '),
	UPLIT(	RMCDND,%ASCIZ'RMCDND Device is not a disk -- '),
	UPLIT(	RMCEIF,%ASCIZ'RMCEIF END of indirect file'),
	UPLIT(	RMCFAN,%ASCIZ'RMCFAN File access not allowed '),
	UPLIT(	RMCFND,%ASCIZ'RMCFND File not found -- '),
	UPLIT(	RMCGPF,%ASCIZ'RMCGPF GROUP Protection field error'),
	UPLIT(	RMCICS,%ASCIZ'RMCICS Illegal combination of switches -- '),
	UPLIT(	RMCIDF,%ASCIZ'RMCIDF Indirect file -- '),
	UPLIT(	RMCI11,%ASCIZ'RMCI11 LInternal error - Illegal return from G_L_N'),
	UPLIT(	RMCI12,%ASCIZ'RMCI12 Internal error - G_L_N$FAI - G_L_N failure'),
	UPLIT(	RMCI13,%ASCIZ'RMCI13 Internal error - GETPATH error'),
	UPLIT(	RMCI14,%ASCIZ'RMCI14 Internal error - Local node name not in NODTBL.EXE'),
	UPLIT(	RMCI15,%ASCIZ'RMCI15 Internal error - G_I_S$EOF end-of-file on the specified input channel'),
	UPLIT(	RMCI16,%ASCIZ'RMCI16 Internal error - G_I_S$IER device error on the input channel'),
	UPLIT(	RMCI17,%ASCIZ'RMCI17 Internal error - G_I_S$CCO character count overflow'),
	UPLIT(	RMCI18,%ASCIZ'RMCI18 Internal error - G_I_S$ILC illegal channel code'),
	UPLIT(	RMCI19,%ASCIZ'RMCI19 Internal error - G_I_S$CNI (indirect) channel not initialized'),
	UPLIT(	RMCI20,%ASCIZ'RMCI20 Internal error -- Illegal return from chk_access '),
	UPLIT(	RMCI21,%ASCIZ'RMCI21 Internal error --'),
	UPLIT(	RMCI22,%ASCIZ'RMCI22 Internal error -- CHK_AC$CCO - Character count overflow '),
	UPLIT(	RMCI23,%ASCIZ'RMCI23 Internal error --'),
	UPLIT(	RMCI24,%ASCIZ'RMCI24 Internal error --'),
	UPLIT(	RMCI25,%ASCIZ'RMCI25 Internal error -- Illegal return from INI_IN -- '),
	UPLIT(	RMCI26,%ASCIZ'RMCI26 Internal error -- QFN$ILP Parameter type code '),
	UPLIT(	RMCI27,%ASCIZ'RMCI27 Internal error -- QFN$ILF Illegal function '),
	UPLIT(	RMCI28,%ASCIZ'RMCI28 Internal error -- QFUNC Illegal return '),
	UPLIT(	RMCI29,%ASCIZ'RMCI29 Internal error -- No free pages to create request '),
	UPLIT(	RMCI30,%ASCIZ'RMCI30 Internal error -- Illegal return from CHK_ACCESS '),
	UPLIT(	RMCI31,%ASCIZ'RMCI31 Internal error -- Illegal return from G_I_S '),
	UPLIT(	RMCI32,%ASCIZ'RMCI32 Internal error -- INI_IN$BFS Indirect file/bad file spec '),
	UPLIT(	RMCI33,%ASCIZ'RMCI33 Internal error -- CREAT error return '),
	UPLIT(	RMCIFI,%ASCIZ'Indirect file input'),
	UPLIT(	RMCIFS,%ASCIZ'RMCIFS Illegal file specification -- '),
	UPLIT(	RMCINA,%ASCIZ'RMCINA Indirect file not ascii -- '),
	UPLIT(	RMCINF,%ASCIZ'RMCINF Indirect file not found -- '),
	UPLIT(	RMCINR,%ASCIZ'RMCINR Illegal node in request '),
	UPLIT(	RMCIOF,%ASCIZ'RMCIOF Indirect file open failure -- '),
	UPLIT(	RMCIPF,%ASCIZ'RMCIPF Indirect file protection failure -- '),
	UPLIT(	RMCIPP,%ASCIZ'RMCIPP Illegal ppn'),
	UPLIT(	RMCIRD,%ASCIZ'RMCIRD Illegal Remote DAP code '),
	UPLIT(	RMCISN,%ASCIZ'RMCISN Illegal transfer within same node'),
	UPLIT(	RMCISS,%ASCIZ'RMCISS Illegal switch specified -- '),
	UPLIT(	RMCISV,%ASCIZ'RMCISV Illegal switch value field -- '),
	UPLIT(	RMCLDS,%ASCIZ'RMCLDS LOG file`s dsk / LOCAL file`s dsk are not the same'),
	UPLIT(	RMCLOG,%ASCIZ' (LOG FILE) = '),
	UPLIT(	RMCLQF,%ASCIZ'RMCLQF List answer receive failed'),
	UPLIT(	RMCLRD,%ASCIZ'RMCLRD Legal Remote DAP Code not implemented - file spec parsing for node '),
	UPLIT(	RMCMFN,%ASCIZ'RMCMFN Multi-filespec requests not implemented'),
	UPLIT(	RMCMOR,%ASCIZ'More>'),
	UPLIT(	RMCMSE,%ASCIZ'RMCMSE /MORE switch error'),
	UPLIT(	RMCNFS,%ASCIZ'RMCNFS NO file spec on right side of command string'),
	UPLIT(	RMCNIF,%ASCIZ'RMCNIF Nested indirect files not implemented'),
	UPLIT(	RMCNDC,%ASCIZ'RMCNDC Zero dap code for node in node table -- '),
	UPLIT(	RMCNDD,%ASCIZ'RMCNDD Node delimiter detected in switch/filespec field'),
	UPLIT(	RMCNLN,%ASCIZ'RMCNLN No local node in request'),
	UPLIT(	RMCOFF,%ASCIZ'RMCOFF Open failure -- '),
	UPLIT(	RMCOOR,%ASCIZ'RMCOOR Error passed is OUT OF RANGE'),
	UPLIT(	RMCOPF,%ASCIZ'RMCOPF OWNER protection field is invalid'),
	UPLIT(	RMCPRF,%ASCIZ'RMCPRF Protection failure -- '),
	UPLIT(	RMCRDC,%ASCIZ'RMCRDC Remote DAP code 0 - no file spec parsing for node '),
	UPLIT(	RMCRDN,%ASCIZ'RMCRDN Remote disk structure not specified -- '),
	UPLIT(	RMCRMC,%ASCIZ'RMCOPY>'),
	UPLIT(	RMCRMV,%ASCIZ'RMCOPY Version:'),
	UPLIT(	RMCRNA,%ASCIZ'RMCRNA Retrieve not allowed from the remote NODE -- '),
	UPLIT(	RMCRQF,%ASCIZ'RMCRQF Receive from [SYSTEM] QUASAR Failed'),
	UPLIT(	RMCRSN,%ASCIZ'RMCRSN Retrieve/Send not allowed from/to the remote NODE -- '),
	UPLIT(	RMCSAS,%ASCIZ'RMCSAS Switch already specified'),
	UPLIT(	RMCSEC,%ASCIZ'RMCSEC Syntax error in command string'),
	UPLIT(	RMCSFE,%ASCIZ'RMCSFE Source file error'),
	UPLIT(	RMCSNA,%ASCIZ'RMCSNA Send not allowed to the remote NODE -- '),
	UPLIT(	RMCSNI,%ASCIZ'RMCSNI Switch not implemented -- '),
	UPLIT(	RMCSOU,%ASCIZ' (SOURCE FILE) = '),
	UPLIT(	RMCSPF,%ASCIZ'RMCSPF System protection field error'),
	UPLIT(	RMCSQF,%ASCIZ'RMCSQF Send to [SYSTEM] QUASAR failed, message being resent'),
	UPLIT(	RMCURN,%ASCIZ'RMCURN Undefined remote node name'),
	UPLIT(	RMCWFQ,%ASCIZ'RMCWFQ RMCOPY waiting for [SYSTEM] QUASAR to start'),
	UPLIT(	RMCWNI,%ASCIZ'RMCWNI Wildcarding not implemented'),
	UPLIT(	RMCWPF,%ASCIZ'RMCWPF WORLD protection field error'),
	UPLIT(	RMCXXX,%ASCIZ'RMCXXX Internal error -- '));





GLOBAL ROUTINE RMC_MSG(MSGVALUE,SEVERITYLEVEL)=
!++
! FUNCTIONAL DESCRIPTION:
!
!
! FORMAL PARAMETERS:
!
!	MSGVALUE - Value for requested message
!	SEVERITYLEVEL - Type of format of output messages
!
! IMPLICIT INPUTS:
!
!	NONE
!
! IMPLICIT OUTPUTS:
!
!	NONE
!
! ROUTINE VALUE:
! COMPLETION CODES:
!
!	Routine returns a zero if normal exit and non-fatal severity-level.	
!	Routine returns a negative value for fatal severity-level.
!
! SIDE EFFECTS:
!
!	NONE
!
!--

BEGIN

	LOCAL
		PTR;
	IF .MSGVALUE GEQ MSG$TAB$SIZE
	THEN
	!SET DEFAULT ERROR MSG FOR ILLEGAL MODULE INDEX
	MSGVALUE=0;
PTR=FND_VALUE(.MSGVALUE,MSGTAB);

MSGERR(.PTR,.SEVERITYLEVEL);
IF (.SEVERITYLEVEL EQL S$SEVERE) OR (.SEVERITYLEVEL EQL S$SEVERE_HOLD)
THEN
	RETURN -(.MSGVALUE)
ELSE 0
END;



END
ELUDOM