.TITLE Error Analyzer. ; Author: T. R. Wyant ; Date: Unknown (1984 sometime) ; Modified: ; Remarks: ; This module contains two error message analyzers ; and formatters, invoked as follows: ; ; INTEGER*2 ERRORF ! Size of error message. ; ; CALL ERRORS(LUN,USRTXT,USRPRM,ERS,...) ; ISIZ = ERRORF(IBUF,USRTXT,USRPRM,ERS,...) ; ; ERRORS actually formats and writes an error message ; on the LUN specified. ERRORF formats the error ; message in buffer IBUF, and returns the size as ; the value of the function. ; ; The arguments are: ; ; LUN - The LUN to write the error message on. ; IBUF - The buffer to build the error message in. ; USRTXT - Optional user text. It consists of optional ; control text, a carriage control byte, ; and a control string suitable for ; $EDMSG. The following characters will ; perform control functions if they appear ; at the start of the text string: ; % - Omit task name and time stamp; ; . - Omit period at end of message; ; P - Use next character for end-of-mes- ; sage punctuation; ; The first character not in the above set ; is taken as carriage control. In ad- ; dition to the usual "+", " ", "0", "1", ; and "$", you can use "@" to specify no ; carriage control whatsoever. ; USRPRM - Optional data to go woth USRTXT. See the ; SYSLIB subroutines manual for what goes ; here. ; ERS - One or more parameters describing the error. ; The first parameter is a RAD-50 string ; describing the type of error. The rest ; depend on the first as follows: ; ; First Next ; ----- -------------------------------- ; DSW Directive status word. ; FCS Synonym for IO. ; FIL Synonym for RMS if RMS support ; was selected - else synonym ; for IO. ; IO I/O status block (2 word array). ; NET Status block from high-level ; language DECnet call. ; NFA Status block from high-level ; language remote file access. ; RMS STS code from RMS. STV (if any) ; is passed in next argument. ; ; The output message looks like: ; ; Taskname - Date - User Message ; Error Type ; Error Detail ; More detail (if appropriate). .ENABL LC .MCALL GTIM$S,GTSK$S,QIOW$S NETWRK = 0 ; Define to get network messages. ;;; NFAMSG = 0 ; Define to get Network File Access errors. NETMSG = 0 ; Define to get high-level DECnet errors. ;;; RMSMSG = 0 ; Define to get RMS errors. .IIF DF NFAMSG, NETWRK = 0 .IIF DF NETMSG, NETWRK = 0 .IF DF NETWRK .LIBRARY /LB:[1,1]NETLIB/ .MCALL NSSYM$ NSSYM$ .ENDC ; DF NETWRK .IF DF RMSMSG .LIBRARY /LB:[1,1]RMSMAC/ .MCALL $RMSTAT $RMSTAT DFIN$L .ENDC ; DF RMSMSG .MACRO ERRLST NAME,OPT,TEXT,FMT=D,SYN ERRFLG = 0 ERRSYM =: 1 ; Include symbolic with error message (1=yes). ERRCUR =: 2 ; Continue analyzing current error (1=yes). ERRBYT =: 4 ; Byte argument (1=yes). ERRALN =: 10 ; Perform alignment (1=yes). ERRODD =: 20 ; Align on odd boundary (1=yes). ERRSYN =: 40 ; Synonym entry (1=yes). ERRMAC =: 100 ; Data Access Protocol macrocode error ERRMIC =: 200 ; Data Access Protocol microcode error ERROPT =: 400 ; This field is optional (ie- error analysis terminates ; without issuing "xxx not passed" if missing). .IRP O, .IIF IDN ,, ERRFLG = ERRFLG!ERRSYM .IIF IDN ,, ERRFLG = ERRFLG!ERRCUR .IIF IDN ,, ERRFLG = ERRFLG!ERRBYT .IIF IDN ,, ERRFLG = ERRFLG!ERRALN .IIF IDN ,, ERRFLG = ERRFLG!ERRALN!ERRODD .IIF IDN ,, ERRFLG = ERRFLG!ERRMAC .IIF IDN ,, ERRFLG = ERRFLG!ERRMIC .IIF IDN ,, ERRFLG = ERRFLG!ERROPT .ENDM .IIF NE ERRFLG&ERRMAC ERRFLG = &^C .IIF NE ERRFLG&ERRMIC ERRFLG = &^C .IIF EQ ERRFLG&ERRBYT ERRFLG = &^C .IIF NB , ERRFLG = ERRFLG!ERRSYN .SAVE .IF B .PSECT ERRTXT RO,D,LCL,REL,CON ERRDOT = . .ASCIZ \,%N%9S'TEXT code not available.\ .MACRO ERREXX .SAVE .PSECT ERRTXT RO,D,LCL,REL,CON ERRDOT = . .ASCIZ \,%N%9SUnrecognized TEXT code %FMT'.\ .RESTORE .ENDM ERREXX .IFTF ; B .PSECT ERRTBL RO,D,LCL,REL,CON .IRP N, N: .ENDR .IFT ; B .WORD ERRFLG,ERRDOT .IFF ; B .WORD ERRFLG,SYN .ENDC ; B .RESTORE .ENDM .MACRO ERROR ADDR,CODE,TEXT,NEXT=0 .SAVE .IF NB .PSECT ERRTXT RO,D,LCL,REL,CON .IIF NB ADDR: ERRDOT = . .ASCII \,%N%9S\ .IIF NE ERRFLG&1, .ASCII \CODE - \ .ASCIZ \TEXT%I\ .IFTF ; NB .PSECT ERRTBL RO,D,LCL,REL,CON .IFT ; NB .WORD ERRDOT,CODE .IFF ; NB .WORD ADDR,CODE .ENDC ; NB .WORD NEXT .RESTORE .ENDM .MACRO ERREND CHAIN .SAVE .PSECT ERRTBL RO,D,LCL,REL,CON .IF B ERREXX .WORD 0,MESSAG,ERRDOT .IFF ; B .WORD 0,CHAINR,CHAIN .ENDC ; B .RESTORE .ENDM ERREND ERRLST ERRTBL,,,R ERROR DSWMSG,<^RDSW>,,DSW ERROR IOMSG,<^RIO>,,IO ERROR FCSMSG,<^RFCS>,,IO ERROR FORMSG,<^RFOR>,,FORT ERROR DSWMSG,-1,,DSW ERROR FCSMSG,0,,IO .IF DF NETMSG ERROR ,<^RNET>,,NETERR .ENDC ; DF NETMSG .IF DF NFAMSG ERROR ,<^RNFA>,,NFAERR .ENDC ; DF NFAMSG .IF DF RMSMSG ERROR ,<^RFIL>,,RMSERR ERROR ,<^RRMS>,,RMSERR .IFF ; DF RMSMSG ERROR ,<^RFIL>,,IO .ENDC ; DF RMSMSG ERREND ERRLST FORT,, ERROR ,1., ERROR ,2., ERROR ,3., ERROR ,4., ERROR ,5., ERROR ,6., ERROR ,7., ERROR ,8., ERROR ,9., ERROR ,10., ERROR ,11., ERROR ,12., ERROR ,13., ERROR ,14., ERROR ,20., ERROR ,21., ERROR ,22., ERROR ,23., ERROR ,24.,,FILOPT ERROR ,25., ERROR ,26., ERROR ,27., ERROR ,28., ERROR ,29., ERROR ,30.,,FILOPT ERROR ,31., ERROR ,32., ERROR ,33., ERROR ,34., ERROR ,35., ERROR ,36., ERROR ,37., ERROR ,38.,,FILOPT ERROR ,39.,,FILOPT ERROR ,40., ERROR ,41., ERROR ,42., ERROR ,43., ERROR ,44., ERROR ,45., ERROR ,46., ERROR ,47., ERROR ,48., ERROR ,49., ERROR ,50., ERROR ,51., ERROR ,52., ERROR ,53., ERROR ,54., ERROR ,55., ERROR ,56., ERROR ,57., ERROR ,59., ERROR ,60., ERROR ,61., ERROR ,62., ERROR ,63., ERROR ,64., ERROR ,65., ERROR ,66., ERROR ,67., ERROR ,68., ERREND ERRLST DSWOPT,,SYN=DSW ERRLST DSWSYN,,SYN=DSW ERRLST DSW,, ERROR ISCLR,IS.CLR, ERROR ISSUC,IS.SUC, ERROR ISSET,IS.SET, ERROR IEUPN,IE.UPN, ERROR IEINS,IE.INS, ERROR IEPTS,IE.PTS, ERROR IEUNS,IE.UNS, ERROR IEULN,IE.ULN, ERROR IEHWR,IE.HWR, ERROR IEACT,IE.ACT, ERROR IEITS,IE.ITS, ERROR IEFIX,IE.FIX, ERROR IECKP,IE.CKP, ERROR IETCH,IE.TCH, ERROR IERBS,IE.RBS, ERROR IEPRI,IE.PRI, ERROR IERSU,IE.RSU, ERROR IENSW,IE.NSW, ERROR IEILV,IE.ILV, ERROR IEITN,IE.ITN, ERROR IELNF,IE.LNF, ERROR IEAST,IE.AST, ERROR IEMAP,IE.MAP, ERROR IEIOP,IE.IOP, ERROR IEALG,IE.ALG, ERROR IEWOV,IE.WOV,
ERROR IENVR,IE.NVR, ERROR IENVW,IE.NVW, ERROR IEITP,IE.ITP, ERROR IEIBS,IE.IBS, ERROR IELNL,IE.LNL, ERROR IEIUI,IE.IUI, ERROR IEIDU,IE.IDU, ERROR IEITI,IE.ITI, ERROR IEPNS,IE.PNS, ERROR IEIPR,IE.IPR, ERROR IEILU,IE.ILU, ERROR IEIEF,IE.IEF, ERROR IEADP,IE.ADP, ERROR IESDP,IE.SDP, ERREND .IIF NDF RMSMSG, ERRLST FILOPT,,SYN=IO ERRLST IOOPT,,SYN=IO ERRLST IO,, ERROR IEBAD,IE.BAD, ERROR IEIFC,IE.IFC, ERROR IEDNR,IE.DNR, ERROR IEVER,IE.VER, ERROR IEONP,IE.ONP, ERROR IESPC,IE.SPC, ERROR IEDNA,IE.DNA, ERROR IEDAA,IE.DAA, ERROR IEDUN,IE.DUN, ERROR IEEOF,IE.EOF, ERROR IEEOV,IE.EOV, ERROR IEWLK,IE.WLK, ERROR IEDAO,IE.DAO, ERROR IESRE,IE.SRE, ERROR IEABO,IE.ABO, ERROR IEPRI,IE.PRI ; ERROR IERSU,IE.RSU ; ERROR IEOVR,IE.OVR, ERROR IEBYT,IE.BYT, ERROR IEBLK,IE.BLK, ERROR IEMOD,IE.MOD, ERROR IECON,IE.CON, ERROR IENOD,IE.NOD, ERROR IEDFU,IE.DFU, ERROR IEIFU,IE.IFU, ERROR IENSF,IE.NSF, ERROR IELCK,IE.LCK, ERROR IEHFU,IE.HFU, ERROR IEWAC,IE.WAC, ERROR IECKS,IE.CKS, ERROR IEWAT,IE.WAT, ERROR IERER,IE.RER, ERROR IEWER,IE.WER, ERROR IEALN,IE.ALN, ERROR IESNC,IE.SNC, ERROR IESQC,IE.SQC, ERROR IENLN,IE.NLN, ERROR IECLO,IE.CLO, ERROR IENBF,IE.NBF, ERROR IERBG,IE.RBG, ERROR IENBK,IE.NBK, ERROR IEILL,IE.ILL, ERROR IEBTP,IE.BTP, ERROR IERAC,IE.RAC, ERROR IERAT,IE.RAT, ERROR IERCN,IE.RCN, ERROR IEICE,IE.ICE, ERROR IE2DV,IE.2DV, ERROR IEFEX,IE.FEX, ERROR IEBDR,IE.BDR, ERROR IERNM,IE.RNM, ERROR IEBDI,IE.BDI, ERROR IEFOP,IE.FOP, ERROR IEBNM,IE.BNM, ERROR IEBDV,IE.BDV, ERROR IEBBE,IE.BBE, ERROR IEDUP,IE.DUP, ERROR IESTK,IE.STK, ERROR IEFHE,IE.FHE, ERROR IENFI,IE.NFI, ERROR IEISQ,IE.ISQ, ERROR IEEOT,IE.EOT, ERROR IEBVR,IE.BVR, ERROR IEBHD,IE.BHD, ERROR IEOFL,IE.OFL, ERROR IEBCC,IE.BCC, ERROR IEONL,IE.ONL, ERROR IENNN,IE.NNN, ERROR IENFW,IE.NFW, ERROR IEBLB,IE.BLB, ERROR IENDR,IE.NDR, ERROR IEURJ,IE.URJ, ERROR IENRJ,IE.NRJ,,NETREJ ERROR IEEXP,IE.EXP, ERROR IEBTF,IE.BTF, ERROR IENNC,IE.NNC, ERROR IENDA,IE.NDA, ERROR IENLK,IE.NLK, ERROR IENST,IE.NST, ERROR IEFLN,IE.FLN, ERROR IEIES,IE.IES, ERROR IEPES,IE.PES, ERROR IEALC,IE.ALC, ERROR IEULK,IE.ULK, ERROR IEWCK,IE.WCK, ERROR IENTR,IE.NTR, ERROR IEREJ,IE.REJ, ERROR IEFLG,IE.FLG, ERROR IEDSQ,IE.DSQ, ERROR IEIQU,IE.IQU, ERROR IERES,IE.RES, ERROR IETML,IE.TML, ERROR IENNT,IE.NNT, ERROR IETMO,IE.TMO, ERROR IECNR,IE.CNR, ERROR IEUKN,IE.UKN, ERROR IESZE,IE.SZE, ERROR IEMII,IE.MII, ERROR IESPI,IE.SPI, ERREND .IF DF NETMSG ERRLST NETERR,, ERROR ,-1, ERROR ,-2, ERROR ,-3, ERROR ,-4, ERROR ,-5, ERROR ,-6, ERROR ,-7,,NETREJ ERROR ,-8., ERROR ,-9., ERROR ,-10., ERROR ,-11., ERROR ,-12., ERROR ,-13., ERROR ,-14., ERROR ,-20., ERROR ,-21., ERROR ,-22., ERROR ,-23., ERROR ,-24., ERROR ,-25., ERROR ,-26., ERROR ,-40.,,DSWSYN ERREND CHAIN=IO .ENDC ; DF NETMSG ERRLST NETSYM,,SYN=NETREJ ERRLST NETREJ,, .IF DF NETWRK ERROR ,NE$RES, ERROR ,NE$NOD, ERROR ,NE$NSR, ERROR ,NE$UOB,