!***COPYRIGHT (C) 1974, 1975, 1976, 1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
MODULE ERR(SREG = #17, FREG = #16,  VREG = #15,
MLIST,TIMER=EXTERNAL(SIX12),FSAVE)=
BEGIN

! MCSGEN ERROR AND WARNING MESSAGES
! ===== ====== === ======= ========

!
! *** LAST MODIFIED BY 	ILG	30-DEC-76
!
GLOBAL BIND ERR = 1;

REQUIRE MGNMAC.BLI;
REQ (MGNEXT);
REQ (MGNMC2);

UNDECLARE	ERROR, WARN;

COMMENT;

! ROUTINE ERROR
! ======= =====
! THIS ROUTINE WRITES AN ERROR MESSAGE GIVEN THE APPROPRIATE ERROR
! NUMBER. IT ALSO SETS THE ERROR FLAG (ERRORFLG) TO TRUE

GLOBAL ROUTINE ERROR(EN)=
    BEGIN

	OWN	HIST1;	!DONT INVALIDATE OLD BIN FILES (USED TO BE CRLFFLAG)
	MACRO	MAKERR(A) = PLIT (ASCIZ A)$;

	BIND ERRLST = PLIT (
		%0% MAKERR ( 'ITL INPUT LINE TOO LONG?M?J'),
		%1% MAKERR ( 'NHY NO HELP YET?M?J'),
		%2% MAKERR ( 'UNS UNKNOWN SWITCH?M?J'),
		%3% MAKERR ( 'SWN SWITCH NOT UNIQUELY SPECIFIED?M?J'),
		%4% MAKERR ( 'BCP BAD CHARACTER IN PPN?M?J'),
		%5% MAKERR ( 'CNF COMMAND NAME NOT FOUND?M?J'),
		%6% MAKERR ( 'FTP FILE-SPEC CONTAINS TOO MANY PERIODS?M?J'),
		%7% MAKERR ( 'IVC INVALID CHARACTER?M?J'),
		%8% MAKERR ( 'CNI COMMAND NOT YET IMPLEMENTED?M?J'),
		%9% MAKERR ( 'SCG STATEMENT CONTAINS GARBAGE AFTER COMMAND?M?J'),
		%10% MAKERR ( 'CNU COMMAND NAME NOT UNIQUE?M?J'),
		%11% MAKERR ( 'TUK TYPE UNKNOWN?M?J'),
		%12% MAKERR ( 'TNU TYPE NOT UNIQUE?M?J'),
		%13% MAKERR ( 'UPN UNKNOWN PORT NAME?M?J'),
		%14% MAKERR ( 'DPN DUPLICATE PORT NAME?M?J'),
		%15% MAKERR ( 'PCP PORT NAME CANNOT CONTAIN PERIODS?M?J'),
		%16% MAKERR ( 'UMN UNKNOWN MPP NAME?M?J'),
		%17% MAKERR ( 'DMN DUPLICATE MPP NAME?M?J'),
		%18% MAKERR ( 'MCP MPP NAME CANNOT CONTAIN PERIODS?M?J'),
		%19% MAKERR ( 'UAT UNKNOWN ALTERNATE TERMINAL WHILE WRITING COMPILE FILE?M?J'),
		%20% MAKERR ( 'ENF EXTENSION SPECIFIED BUT NO FILE NAME?M?J'),
		%21% MAKERR ( 'TMD TOO MANY DEVICES SPECIFIED?M?J'),
		%22% MAKERR ( 'VOR VALUE OUT OF RANGE ('),
		%23% MAKERR ( 'VTB VALUE TOO BIG?M?J'),
		%24% MAKERR ( 'VRQ VALUE REQUIRED?M?J'),
		%25% MAKERR ( 'TIC TYPE ILLEGAL IN THIS CONTEXT?M?J'),
		%26% MAKERR ( 'TNY THIS TYPE NOT YET IMPLEMENTED?M?J'),
		%27% MAKERR ( 'NAE NODE ALREADY EXISTS?M?J'),
		%28% MAKERR ( 'HFC HYPHEN ILLEGAL AS FIRST CHARACTER OF NODE NAME?M?J'),
		%29% MAKERR ( 'NBN NODE NAME CANNOT BE NULL?M?J'),
		%30% MAKERR ( 'NEH NODE NAME CANNOT END WITH A HYPEN?M?J'),
		%31% MAKERR ( 'ICN ILLEGAL CHARACTER IN NODE NAME?M?J'),
		%32% MAKERR ( 'NNR NODE NAME REQUIRED?M?J'),
		%33% MAKERR ( 'UKN UNKNOWN NODE?M?J'),
		%34% MAKERR ( 'NTS NO TREE SPECIFIED?M?J'),
		%35% MAKERR ( 'TSD TRCODE SIZE MUST BE DEFINED BEFORE MAKING TREE OR NODE?M?J'),
		%36% MAKERR ( 'NTE NO TERMINALS SPECIFIED?M?J'),
		%37% MAKERR ( 'NPD NO PORTS DEFINED?M?J'),
		%38% MAKERR ( 'TUD TREE UNDEFINED?M?J'),
		%39% MAKERR ( 'SMG SYSTEM NAME MUST BE GIVEN?M?J'),
		%40% MAKERR ( 'TAE TREE ALREADY EXISTS?M?J'),
		%41% MAKERR ( 'TRS TRCODE MUST BE SPECIFIED?M?J'),
		%42% MAKERR ( 'PNU PARENT NODE UNKNOWN?M?J'),
		%43% MAKERR ( 'UTN UNKNOWN TERMINAL NAME?M?J'),
		%44% MAKERR ( 'DTN DUPLICATE TERMINAL NAME?M?J'),
		%45% MAKERR ( 'TCP TERMINAL NAME CANNOT CONTAIN PERIODS?M?J'),
		%46% MAKERR ( 'BSN BAD SEPARATOR IN NODE LIST?M?J'),
		%47% MAKERR ( 'PTD PORT ' ),
		%48% MAKERR ( 'PNT PORT '),
		%49% MAKERR ( 'MTD MPP '),
		%50% MAKERR ( 'UEM UNUSED ERROR MESSAGE ***?M?J'),
		%51% MAKERR ( 'DNA DEVICE '),
		%52% MAKERR ( 'EFP ENTER FAILED FOR PRINT?M?J'),
		%53% MAKERR ( 'RFK RENAME FAILED IN KILLFILE?M?J'),
		%54% MAKERR ( 'EFR ENTER FAILED FOR WRITE CORE FILE?M?J' ),
		%55% MAKERR ( 'LFK LOOKUP FAILED IN KILLFILE?M?J'),
		%56% MAKERR ( 'EFC ENTER FAILED FOR WRITE COMPILE FILE?M?J'),
		%57% MAKERR ( 'RSR READ FILE SPEC REQUIRED?M?J'),
		%58% MAKERR ( 'RSW READ SWITCH REQUIRED?M?J'),
		%59% MAKERR ( 'URS UNKNOWN READ SWITCH?M?J'),
		%60% MAKERR ( 'DAE DEFINITION ALREADY EXISTS?M?J'),
		%61% MAKERR ( 'MRT ALL LOCAL MPPS REQUIRE TRANSACTION CODES?M?J'),
		%62% MAKERR ( 'LFR LOOKUP FAILED FOR READ CORE FILE?M?J'),
		%63% MAKERR ( 'CUF CORE UUO FAILED ON READ?M?J'),
		%64% MAKERR ( 'TTD TERMINAL '),
		%65% MAKERR ( 'TNP TERMINAL '),
		%66% MAKERR ( 'NTD NODE '),
		%67% MAKERR ( 'MIU MISCELLANEOUS INFORMATION UNDEFINED?M?J'),
		%68% MAKERR ( 'TMT TREE EMPTY?M?J'),
		%69% MAKERR ( 'BAT BAD ANSWER. TRY ('),
		%70% MAKERR ( 'UKS UNKNOWN SIB?M?J'),
		%71% MAKERR ( 'MNB MODIFIER NOT "BEFORE", "AFTER", OR NULL?M?J'),
		%72% MAKERR ( 'SMS SUBTREE MUST BE SPECIFIED?M?J'),
		%73% MAKERR ( 'UNL UNKNOWN NODE IN LEAF STATUS TABLE?M?J'),
		%74% MAKERR ( 'MAD MISCELLANEOUS INFORMATION ALREADY DEFINED?M?J'),
		%75% MAKERR ( 'BMN BAD MPPNAME?M?J'),
		%76% MAKERR ( 'FSR FILE-SPEC REQUIRED?M?J'),
		%77% MAKERR ( 'WFR WRITE FILE-SPEC REQUIRED?M?J'),
		%78% MAKERR ( 'WSR WRITE SWITCH REQUIRED?M?J'),
		%79% MAKERR ( 'IWS ILLEGAL WRITE SWITCH?M?J'),
		%80% MAKERR ( 'OFC OUTPUT FAILED IN PUTC?M?J'),
		%81% MAKERR ( 'OFW OUTPUT FAILED IN PUTWORD?M?J'),
		%82% MAKERR ( 'IER INPUT ERROR OR EOF?M?J'),
		%83% MAKERR ( 'FSC FILE-SPEC-PAIR MUST BE SPEARATED BY A COMMA?M?J'),
		%84% MAKERR ( 'SNU SIB NAME NOT UNIQUE?M?J'),
		%85% MAKERR ( 'TRN TRCODE NOT UNIQUE?M?J'),
		%86% MAKERR ( 'BPN BAD PORT NAME?M?J'),
		%87% MAKERR ( 'BTN BAD TERMINAL NAME?M?J'),
		%88% MAKERR ( 'BNN BAD NODE NAME?M?J'),
		%89% MAKERR ( 'PMS A PORT NAME MUST BE SPECIFIED?M?J'),
		%90% MAKERR ( 'TMS A TERMINAL MUST BE SPECIFIED?M?J'),
		%91% MAKERR ( 'NAH NODE ALREADY HAS MPP OR THIS MPP CONFLICTS WITH MPP ABOVE THIS NODE?M?J'),
		%92% MAKERR ( 'CNV CORE IMAGE SAVE UNDER A DIFFERENT VERSION OF MCSGEN?M?J'),
		%93% MAKERR ( 'ETB EXCHANGE TYPE BAD. MUST BE "NODE"), "TREE", OR NULL?M?J'),
		%94% MAKERR ( 'ANA TYPES "ALL:" AND NULL MAY NOT HAVE ARGUMENTS?M?J'),
		%95% MAKERR ( 'MAN TYPE "MISC:" MAY NOT HAVE ARGUMENTS?M?J'),
		%96% MAKERR ( 'CHU CHILD NAME NOT UNIQUE?M?J'),
		%97% MAKERR ( 'INR INDIVIDUAL NODE NAME CONTAINING NO COLONS OR PERIODS REQUIRED?M?J'),
		%98% MAKERR ( 'E2N EXCHANGE REQUIRES TWO NODENAMES?M?J'),
		%99% MAKERR ( 'MCF MPP TO START CONFLICTS?M?J'),
		%100% MAKERR ( 'TAS TERMINAL CAN''T BE ALTERNATE OF SELF?M?J'),
		%101% MAKERR ( 'NNL NODE NOT LEAF. NODE MUST BE LEAF TO USE THIS FUNCTION?M?J'),
		%102% MAKERR ( 'CKR CAN''T KILL THE ROOT?M?J'),
		%103% MAKERR ( 'EIL ERROR IN LINK?M?J'),
		%104% MAKERR ( 'SRD SWITCH REQUIRED?M?J'),
		%105% MAKERR ( 'SNS SLASH GIVEN WITHOUT SWITCHNAME?M?J'),
		%106% MAKERR ( 'RUF RUN UUO ON MACRO FAILED?M?J'),
		%107% MAKERR ( 'STS SPECIAL TRANSACTION LEAF HAS THE SAME NAME AS A PRIMARY NODE?M?J'),
		%108% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
		%109% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
		%110% MAKERR ( 'PCH PORTNAME CONTAINS HYPHEN?M?J'),
		%111% MAKERR ( 'AUD '),
		%112% MAKERR ( 'LUD '),
		%113% MAKERR ( 'ETL EXCHANGE WOULD CAUSE TOO MANY LEVELS IN THE TREE?M?J'),
		%114% MAKERR ( 'CXP CANNOT EXCHANGE TREE WITH PARENT OR GRANDPARENTS?M?J'),
		%115% MAKERR ( 'NOC NO SUCH COMMAND AS '),
		%116% MAKERR ( 'EHF END OF HELP FILE TYPING '),
		%117% MAKERR ( 'NOH CANNOT FIND MCSGEN.HLP?M?J'),
		%118% MAKERR ( 'MCD MESSAGE CLASS CODE DUPLICATED?M?J'),
		%119% MAKERR ( 'ICH ILLEGAL CHARACTER IN HELP LIST?M?J'),
		%120% MAKERR (  'TCH TRAILLING COMMA IN HELP CMD LIST?M?J' ),
		%121% MAKERR (  'NPB NEW PARENT IS CHILD OR GRANDCHILD OF CURRENT NODE?M?J' ),
		%122% MAKERR (  'CNC CORE FILE SPECIFIED IS NOT A MCSGEN CONFIGURATION FILE?M?J' ),
		%123% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
		%124% MAKERR (  'TRD TRCODE CONTAINS TRCODE FIELD DELIMITER?M?J' ),
		%125% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
		%126% MAKERR (  'FTS FAILSOFT/ROLLOUT FILE SIZE TOO SMALL?M?J'),
	        %127% MAKERR (  'JFR AT LEAST ONE JOURNAL FILESPEC REQUIRED?M?J'),
		%128% MAKERR (  'LFR AT LEAST ONE LOG FILESPEC REQUIRED?M?J'),
		%129% MAKERR ( 'CMP CANNOT MODIFY PORTS?M?J'),
		%130% MAKERR ( 'PAC PORT ALREADY CONNECTED TO A TERMINAL?M?J'),
		%131% MAKERR ( 'NMA NO MPP IS ASSOCIATED WITH THIS NODE?M?J')
);
	OUTS('??MGN');
	IF .EN GTR .ERRLST[-1]-1 THEN OUTS('UNK UNKNOWN ERROR CODE?M?J')
	ELSE OUTSA(.ERRLST[.EN]);
	ERRORFLG _ TRUE;
    END;


COMMENT;
! ROUTINE WARN
! ======= =====
! THIS ROUTINE WRITES AN WARNING MESSAGE GIVEN THE APPROPRIATE WARN
! NUMBER.

GLOBAL ROUTINE WARN(EN)=
    BEGIN
	OWN	HIST2;	! USED TO BE CRLFFLAG FOR WARN ROUTINE
	MACRO	MAKERR(A) = PLIT (ASCIZ A)$;

	BIND	WRNLST = PLIT (
		%0% MAKERR ( 'TAG TRY AGAIN?M?J'),
		%1% MAKERR ('NTL NODE NAME TOO LONG. TRUNCATED TO 12 CHARACTERS?M?J'),
		%2% MAKERR ('IDD INCOMPLETELY DEFINED DATA BASE?M?J'),
		%3% MAKERR ('PTL PORTNAME TOO LONG. TRUNCATED TO 6 CHARACTERS?M?J'),
		%4% MAKERR ('TTL TERMINAL NAME TOO LONG. TRUNCATED TO 12 CHARACTERS?M?J'),
		%5% MAKERR ('MTL MPPNAME TOO LONG. TRUNCATED TO 12 CHARACTERS?M?J'),
		%6% MAKERR ('ITL INPUT TOO LONG. TRUNCATED?M?J'),
		%7% MAKERR ('SLR STRING GIVEN LONGER THAN REQUIRED. TRUNCATED?M?J'),
		%8% MAKERR ('MSN MPR OF THE SAME NAME?M?J'),
		%9% MAKERR ('CNC TRCODE DELIMITER NOT CHANGED?M?J'),
		%10% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
		%11% MAKERR ('DAN DUPLICATE ALTERNATE NAME IGNORED?M?J'),
		%12% MAKERR ('DNN DUPLICATE NODE NAME IGNORED?M?J'),
		%13% MAKERR ('CIC CONFIGURATION INCOMPLETE COMPILE-FILE NOT WRITTEN?M?J'),
		%14% MAKERR ('DPI DUPLICATE PASSWORD IGNORED?M?J'),
		%15% MAKERR ('EIS END INDICATOR HAS SAME CODE AS PREVIOUSLY DEFINED END INDICATOR?M?J'),
		%16% MAKERR ('SAS SWITCH '),
		%17% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
		%18% MAKERR ('NNM NODE MAY NOT HAVE AN MPP TO START?M?J' ),
		%19% MAKERR ('NLS NO LEAVES MAY BE MADE?M?J' ),
		%20% MAKERR ('NMS NO MPRS MAY BE SPECIFIED?M?J'),
		%21% MAKERR ('DTL DEVICE NAME TOO LONG, TRUNCATED?M?J') ,
		%22% MAKERR ('FTL FILE NAME TOO LONG, TRUNCATED?M?J') ,
		%23% MAKERR ('ETL EXTENSION TOO LONG, TRUNCATED?M?J') ,
		%24% MAKERR ('CDC CAN''T DELETE CURRENT NODE HERE?M?J' ),
		%25% MAKERR ('MTD MBM TERMINAL DOESN''T HAVE AN ATTACHED PORT?M?J' ),
		%26% MAKERR ('MPD MBM PORT DOESN''T HAVE AN ATTACHED TERMINAL?M?J'),
	   	%27% MAKERR ('MEI MPP FILE-SPECIFICATION EXTENSION IS IGNORED?M?J'),
		%28% MAKERR ('MNN MPP ')
);
	OUTS('%MGN');
	IF .EN GTR .WRNLST[-1]-1 THEN  OUTS('UNK UNKNOWN WARNING CODE?M?J')
	ELSE OUTSA(.WRNLST[.EN]);
    END;




! END OF MGNERR.BLI