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