Trailing-Edge
-
PDP-10 Archives
-
DEC_CMS-20_V1.0_SRC
-
cms/sources/libmsg.b36
There are no other files named libmsg.b36 in the archive.
module libmsg (
ident= '1',
language(bliss36)
)=
begin
!
! COPYRIGHT (C) 1982, 1983 BY
! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
! 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: CMS Library Processor
!
! Abstract:
!
! error message globals for commonality with VAX, work much like
! the VAX Message Utility. This routine builds a global literal
! that includes the first four characters of the message name to
! be used as a message id, and the severity level of the message.
! This literal must be taken apart before it can be printed out.
! This is currently done in SYSMSG.BLI in 20 specific code.
!
! Note that the literals used in the ERRCODE call must be in
! upper case so that the message id is printed in upper case.
!
! Environment: DS-20
!
! Author: Marie McLane
!
!--
!
! Table of Contents:
!
!
! Include Files:
!
!
! Macros:
!
macro
errcode(msgid,severity) =
!
! builds a literal error message code of the form
! s_msgid = aaaab
! where aaaa contains the first four characters of the msgid and b is the
! severity level
!
%name('s_',msgid) = %string(%exactstring(4,%c' ',msgid),%char(severity)) %;
!
! Equated Symbols:
!
global literal
msg_succ = %c'S' ,
msg_info = %c'I' ,
msg_warn = %c'W' ,
msg_erro = %c'E' ,
msg_seve = %c'F' ,
msg_fata = %c'F' ;
global literal
!success values
ERRCODE('ALLFILOK',MSG_SUCC),
ERRCODE('ANNOTATED',MSG_SUCC),
ERRCODE('ATRMOD',MSG_SUCC),
ERRCODE('CLSLSTOK',MSG_SUCC),
ERRCODE('COPYOK',MSG_SUCC),
ERRCODE('CRECLASS',MSG_SUCC),
ERRCODE('DELCLS',MSG_SUCC),
ERRCODE('ECRERES',MSG_SUCC),
ERRCODE('ELCREATE',MSG_SUCC),
ERRCODE('ELMLSTOK',MSG_SUCC),
ERRCODE('ELMDEL',MSG_SUCC),
ERRCODE('ELUNRES',MSG_SUCC),
ERRCODE('FETCHED',MSG_SUCC),
ERRCODE('GECRERES',MSG_SUCC),
ERRCODE('GENCREATE',MSG_SUCC),
ERRCODE('IDENTICAL',MSG_SUCC),
ERRCODE('INITLIB',MSG_SUCC),
ERRCODE('INSCLASS',MSG_SUCC),
ERRCODE('LIBIS',MSG_SUCC),
ERRCODE('LIBOK',MSG_SUCC),
ERRCODE('MRGOK',MSG_SUCC),
ERRCODE('RECOVERED',MSG_SUCC),
ERRCODE('REMCLASS',MSG_SUCC),
ERRCODE('RESERVED',MSG_SUCC),
ERRCODE('RESLSTOK',MSG_SUCC),
ERRCODE('SHWSUCC',MSG_SUCC),
ERRCODE('STCLS',MSG_SUCC),
!INFORMATIONAL VALUES
ERRCODE('ALREADYDN',MSG_INFO),
ERRCODE('CANTFIND',MSG_INFO),
ERRCODE('CCANCLDIT',MSG_INFO),
ERRCODE('CLNOTFND',MSG_INFO),
ERRCODE('CNCLRSTRD',MSG_INFO),
ERRCODE('DIFFERENT',MSG_INFO),
ERRCODE('ENTERYN',MSG_INFO),
ERRCODE('EOFMARK',MSG_INFO),
ERRCODE('EXISTCLS',MSG_INFO),
ERRCODE('INUSE',MSG_INFO),
ERRCODE('INCMREP',MSG_INFO),
ERRCODE('INVCKSUM',MSG_INFO),
ERRCODE('ISTHERE',MSG_INFO),
ERRCODE('MAXWIDDIF',MSG_INFO),
ERRCODE('MEANSNO',MSG_INFO),
ERRCODE('MINWIDDIF',MSG_INFO),
ERRCODE('MRGERR',MSG_INFO),
ERRCODE('NOCHANGES',MSG_INFO),
ERRCODE('NOCKSUM',MSG_INFO),
ERRCODE('NOLOG',MSG_INFO),
ERRCODE('NORES',MSG_INFO),
ERRCODE('NOSUCHEL',MSG_INFO),
ERRCODE('NOUNUSUAL',MSG_INFO),
ERRCODE('OKANYWAY',MSG_INFO),
ERRCODE('PRIVDIS',MSG_INFO),
ERRCODE('PROCEED',MSG_INFO),
ERRCODE('RECSTART',MSG_INFO),
ERRCODE('REPBY',MSG_INFO),
ERRCODE('RESBY',MSG_INFO),
ERRCODE('RESTORDLB',MSG_INFO),
ERRCODE('UNCHANGED',MSG_INFO),
ERRCODE('USEHELP',MSG_INFO),
ERRCODE('VERSTART',MSG_INFO),
ERRCODE('WAITING',MSG_INFO),
!WARNING VALUES
ERRCODE('BADCLS',MSG_WARN),
ERRCODE('CONSECERR',MSG_WARN),
ERRCODE('ELNOTFND',MSG_WARN),
ERRCODE('MRGBAD',MSG_WARN),
ERRCODE('NODELETE',MSG_WARN),
ERRCODE('WFETCHED',MSG_WARN),
ERRCODE('WRESERVED',MSG_WARN),
!ERROR VALUES
ERRCODE('AMBIG',MSG_ERRO),
ERRCODE('BDCKSUM',MSG_ERRO),
ERRCODE('BADDIR',MSG_ERRO),
ERRCODE('BADPRI',MSG_ERRO),
ERRCODE('BADVAR',MSG_ERRO),
ERRCODE('BADWILD',MSG_ERRO),
ERRCODE('BFNOTFND',MSG_ERRO),
ERRCODE('BIGGEN',MSG_ERRO),
ERRCODE('BOUNDINDX',MSG_ERRO),
ERRCODE('BRFWLDCLS',MSG_ERRO),
ERRCODE('BUSY',MSG_ERRO),
ERRCODE('CANDLBOTH',MSG_ERRO),
ERRCODE('CANNOTDO',MSG_ERRO),
ERRCODE('CLASSRO',MSG_ERRO),
ERRCODE('CLINENOT',MSG_ERRO),
ERRCODE('CLOSEERR',MSG_ERRO),
ERRCODE('CLSEXISTS',MSG_ERRO),
ERRCODE('CLSWELEM',MSG_ERRO),
ERRCODE('CLTOOLONG',MSG_ERRO),
ERRCODE('CNOOPEN',MSG_ERRO),
ERRCODE('CONFFAIL',MSG_ERRO),
ERRCODE('CRNEEDSW',MSG_ERRO),
ERRCODE('DATEBAD',MSG_ERRO),
ERRCODE('DAYERR',MSG_ERRO),
ERRCODE('DCANTGET',MSG_ERRO),
ERRCODE('DDNOTFND',MSG_ERRO),
ERRCODE('DNOTEMPTY',MSG_ERRO),
ERRCODE('DNTFOUND',MSG_ERRO),
ERRCODE('DOANOOPEN',MSG_ERRO),
ERRCODE('DUNVERIF',MSG_ERRO),
ERRCODE('DUPLNAME',MSG_ERRO),
ERRCODE('EARLYTERM',MSG_ERRO),
ERRCODE('EDITERR',MSG_ERRO),
ERRCODE('ELEMEXIST',MSG_ERRO),
ERRCODE('ELRESR',MSG_ERRO),
ERRCODE('ENOTINCLS',MSG_ERRO),
ERRCODE('EQLREQ',MSG_ERRO),
ERRCODE('ERRCOUNT',MSG_ERRO),
ERRCODE('ERRDEV',MSG_ERRO),
ERRCODE('ERRENTRY',MSG_ERRO),
ERRCODE('ERRFILE',MSG_ERRO),
ERRCODE('ERRMISC',MSG_ERRO),
ERRCODE('ERRNAME',MSG_ERRO),
ERRCODE('ERROPEN',MSG_ERRO),
ERRCODE('ERTIMREV',MSG_ERRO),
ERRCODE('EXTRA ',MSG_ERRO),
ERRCODE('FAFTERLST',MSG_ERRO),
ERRCODE('FAILRCOVR',MSG_ERRO),
ERRCODE('FILEBAD',MSG_ERRO),
ERRCODE('FLINLIB',MSG_ERRO),
ERRCODE('FNOTCLOSD',MSG_ERRO),
ERRCODE('FORMSTRNG',MSG_ERRO),
ERRCODE('FTTOOLONG',MSG_ERRO),
ERRCODE('GENERR',MSG_ERRO),
ERRCODE('GENFALSE',MSG_ERRO),
ERRCODE('GENINV',MSG_ERRO),
ERRCODE('GENNEEDSC',MSG_ERRO),
ERRCODE('GENREF',MSG_ERRO),
ERRCODE('GIVEFILE',MSG_ERRO),
ERRCODE('GNCONFLCT',MSG_ERRO),
ERRCODE('GRAFTERLST',MSG_ERRO),
ERRCODE('GRNOTFND',MSG_ERRO),
ERRCODE('HASELEM',MSG_ERRO),
ERRCODE('HNOCLOSE',MSG_ERRO),
ERRCODE('HNOOPEN',MSG_ERRO),
ERRCODE('HONOOPEN',MSG_ERRO),
ERRCODE('HTCLOSERR',MSG_ERRO),
ERRCODE('HTNOTCONN',MSG_ERRO),
ERRCODE('HTOPENERR',MSG_ERRO),
ERRCODE('HYPHTWO',MSG_ERRO),
ERRCODE('ILAFTLB',MSG_ERRO),
ERRCODE('ILCHAR',MSG_ERRO),
ERRCODE('ILCNTRREC',MSG_ERRO),
ERRCODE('ILELEM',MSG_ERRO),
ERRCODE('ILGEN',MSG_ERRO),
ERRCODE('ILHEADER',MSG_ERRO),
ERRCODE('ILLEFTMAR',MSG_ERRO),
ERRCODE('ILLIBFORM',MSG_ERRO),
ERRCODE('ILPOSVAL',MSG_ERRO),
ERRCODE('ILRESR',MSG_ERRO),
ERRCODE('ILSTRING',MSG_ERRO),
ERRCODE('INCONSIS',MSG_ERRO),
ERRCODE('INLIB',MSG_ERRO),
ERRCODE('INOOPEN',MSG_ERRO),
ERRCODE('INVDIR',MSG_ERRO),
ERRCODE('INVELEMFL',MSG_ERRO),
ERRCODE('INVFILE',MSG_ERRO),
ERRCODE('INVGS',MSG_ERRO),
ERRCODE('INVHS',MSG_ERRO),
ERRCODE('INVQUAL',MSG_ERRO),
ERRCODE('INVSUBC',MSG_ERRO),
ERRCODE('INVTCFILE',MSG_ERRO),
ERRCODE('ISINIT',MSG_ERRO),
ERRCODE('LEXAMBIG',MSG_ERRO),
ERRCODE('LEXERR',MSG_ERRO),
ERRCODE('LIBEMPTY',MSG_ERRO),
ERRCODE('LIBNAMLIM',MSG_ERRO),
ERRCODE('LIBREPAIR',MSG_ERRO),
ERRCODE('LIBVERIF',MSG_ERRO),
ERRCODE('LONLYONE',MSG_ERRO),
ERRCODE('MISCKSUM',MSG_ERRO),
ERRCODE('MISMATCH',MSG_ERRO),
ERRCODE('MISSING',MSG_ERRO),
ERRCODE('MONTHERR',MSG_ERRO),
ERRCODE('MULTSEQFL',MSG_ERRO),
ERRCODE('MUSTBEDIR',MSG_ERRO),
ERRCODE('MUTEXCL',MSG_ERRO),
ERRCODE('NAMEINV',MSG_ERRO),
ERRCODE('NEEDDIGIT',MSG_ERRO),
ERRCODE('NETERR',MSG_ERRO),
ERRCODE('NMTOOLONG',MSG_ERRO),
ERRCODE('NOBACKUP',MSG_ERRO),
ERRCODE('NOCFILE',MSG_ERRO),
ERRCODE('NOCLASSF',MSG_ERRO),
ERRCODE('NOCMND',MSG_ERRO),
ERRCODE('NODATTIM',MSG_ERRO),
ERRCODE('NODFILE',MSG_ERRO),
ERRCODE('NODOT',MSG_ERRO),
ERRCODE('NOELEM',MSG_ERRO),
ERRCODE('NOENTRY',MSG_ERRO),
ERRCODE('NOEQLSIGN',MSG_ERRO),
ERRCODE('NOFILE',MSG_ERRO),
ERRCODE('NOFNAME',MSG_ERRO),
ERRCODE('NOGEN',MSG_ERRO),
ERRCODE('NOHDEL',MSG_ERRO),
ERRCODE('NOHFILE',MSG_ERRO),
ERRCODE('NOINDX',MSG_ERRO),
ERRCODE('NOLEVEL',MSG_ERRO),
ERRCODE('NOLFILE',MSG_ERRO),
ERRCODE('NOLIB',MSG_ERRO),
ERRCODE('NOMATCHCC',MSG_ERRO),
ERRCODE('NOMONDIG',MSG_ERRO),
ERRCODE('NOOPEN',MSG_ERRO),
ERRCODE('NONDGINDX',MSG_ERRO),
ERRCODE('NOPARSE',MSG_ERRO),
ERRCODE('NOQUAL',MSG_ERRO),
ERRCODE('NORFILE',MSG_ERRO),
ERRCODE('NOSBCOM',MSG_ERRO),
ERRCODE('NOSCOM',MSG_ERRO),
ERRCODE('NOSETREV',MSG_ERRO),
ERRCODE('NOSPACE',MSG_ERRO),
ERRCODE('NOSTRTSTR',MSG_ERRO),
ERRCODE('NOTALPHA',MSG_ERRO),
ERRCODE('NOTCFILE',MSG_ERRO),
ERRCODE('NOTDONE',MSG_ERRO),
ERRCODE('NOTHVERS',MSG_ERRO),
ERRCODE('NOTIMPLEM',MSG_ERRO),
ERRCODE('NOTLVERS',MSG_ERRO),
ERRCODE('NOTOPTION',MSG_ERRO),
ERRCODE('NOTRECOG',MSG_ERRO),
ERRCODE('NOTYOURS',MSG_ERRO),
ERRCODE('NOT20CENT',MSG_ERRO),
ERRCODE('NOUODEL',MSG_ERRO),
ERRCODE('NOWLDCARD',MSG_ERRO),
ERRCODE('NOYEARLET',MSG_ERRO),
ERRCODE('NYI',MSG_ERRO),
ERRCODE('OANOOPEN',MSG_ERRO),
ERRCODE('ONEDOT',MSG_ERRO),
ERRCODE('ONLYONE',MSG_ERRO),
ERRCODE('ONOOPEN',MSG_ERRO),
ERRCODE('ORDERERR',MSG_ERRO),
ERRCODE('PARAMLIM',MSG_ERRO),
ERRCODE('POSEXTRAN',MSG_ERRO),
ERRCODE('POSNOTDEF',MSG_ERRO),
ERRCODE('QUOTENOT',MSG_ERRO),
ERRCODE('RAFTERBAD',MSG_ERRO),
ERRCODE('READERR',MSG_ERRO),
ERRCODE('REDIRFAIL',MSG_ERRO),
ERRCODE('REMOVFAIL',MSG_ERRO),
ERRCODE('RENAMFAIL',MSG_ERRO),
ERRCODE('REPAIRFAI',MSG_ERRO),
ERRCODE('RESRNAME',MSG_ERRO),
ERRCODE('RETBAD',MSG_ERRO),
ERRCODE('RFAIL',MSG_ERRO),
ERRCODE('RNBEFOREP',MSG_ERRO),
ERRCODE('RUNVERIF',MSG_ERRO),
ERRCODE('SAMELINE',MSG_ERRO),
ERRCODE('SPCCLASS',MSG_ERRO),
ERRCODE('SPCINV',MSG_ERRO),
ERRCODE('SPCQUAL',MSG_ERRO),
ERRCODE('SPECCHERR',MSG_ERRO),
ERRCODE('SPELLERR',MSG_ERRO),
ERRCODE('SUBCOMERR',MSG_ERRO),
ERRCODE('SYSERR',MSG_ERRO),
ERRCODE('TCFGONE',MSG_ERRO),
ERRCODE('TIMENOSET',MSG_ERRO),
ERRCODE('TOOLONG',MSG_ERRO),
ERRCODE('TRANSPLUS',MSG_ERRO),
ERRCODE('TREEINV',MSG_ERRO),
ERRCODE('UNEXPHIS',MSG_ERRO),
ERRCODE('UNVERIF',MSG_ERRO),
ERRCODE('VALNOTALL',MSG_ERRO),
ERRCODE('VER1FORLK',MSG_ERRO),
ERRCODE('VERINVAL',MSG_ERRO),
ERRCODE('WLDQUALS',MSG_ERRO),
ERRCODE('YEARERR',MSG_ERRO),
!SEVERE VALUES
ERRCODE('NOTSLIB',MSG_SEVE),
ERRCODE('SETLIB',MSG_SEVE),
ERRCODE('UNDEFLIB',MSG_SEVE),
ERRCODE('USEVERREC',MSG_SEVE),
!FATAL VALUES
ERRCODE('BADBUG',MSG_FATA),
ERRCODE('BADLIB',MSG_FATA),
ERRCODE('BUG',MSG_FATA),
ERRCODE('ENABLCNO',MSG_FATA),
ERRCODE('ILLFILOPN',MSG_FATA),
ERRCODE('INHIBIT',MSG_FATA),
ERRCODE('INVIOB',MSG_FATA),
ERRCODE('RBCLOSENO',MSG_FATA),
ERRCODE('RBFAIL',MSG_FATA),
ERRCODE('RBGETERR',MSG_FATA),
ERRCODE('RBOPENNO',MSG_FATA),
ERRCODE('RBPUTERR',MSG_FATA),
ERRCODE('XTRARBC',MSG_FATA),
!End of messages
s_endmsg = 0;
end ! Module LIBMSG.B36
eludom