From:	SMTP%"MX-List@WKUVX1.WKU.EDU" 31-MAY-1994 09:06:07.26
To:	EVERHART
CC:	
Subj:	RE: MX local dies on MX 4.0-1 system

X-Listname: Message Exchange Discussion List <MX-List@WKUVX1.WKU.EDU>
Warnings-To: <>
Errors-To: owner-mx-list@WKUVX1.WKU.EDU
Sender: owner-mx-list@WKUVX1.WKU.EDU
Date: Tue, 31 May 1994 05:16:36 EDT
From: Ask me about Star Stare '94 <m_frazier@borgil.cxo.dec.com>
Reply-To: MX-List@WKUVX1.WKU.EDU
To: MX-List@WKUVX1.WKU.EDU
Cc: m_frazier@borgil.cxo.dec.com
Message-Id: <0097F3CC.B217EF20.3@borgil.cxo.dec.com>
Subject: RE: MX local dies on MX 4.0-1 system

|>I havn't been able to find what an error 1C088024 is.  Anyone have any ideas ?

    Here is a program (after my .sig) that I use to find error messages (in
    case you don't have this).  Just set a symbol up called GETERR to @
    this command procedure and then you can just do a GETERR num, where num
    is the hex error number.

    Hope this helps...

	Mike

 _____________________________________________________________________________	
/ Mike Frazier (NAR #55180) | If you can't see the sucker when you sit down at\ 
| Digital Equipment Corp.   | the table, then odds are that the sucker is you!| 
| OLTP Expertise Center     |                                                 | 
| Colorado Springs, Colorado|                     - An old poker joke -       | 
|-----------------------------------------------------------------------------|
\ Email Address: m_frazier@borgil.cxo.dec.com                                /
 -----------------------------------------------------------------------------

    ----------------------------CUT HERE----------------------------------
$ VERIFICATION = 'F$VERIFICATION(0)' ! 'F$VERIFICATION(DEBUG_COM)'
$
$!	Looks up messages
$
$ MES_TXT := 'P1'
$
$GET_MES:
$ RADIX = ""
$ IF MES_TXT .NES. "" THEN GOTO GOT_MES
$ INQUIRE MES_TXT "Message number to find"
$ GOTO GET_MES
$
$BAD_NUM:
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT "Number is NOT a valid HEX number - ''MES_TXT'"
$ WRITE SYS$OUTPUT ""
$ MES_TXT = ""
$ GOTO GET_MES
$
$GOT_MES:
$ TLEN = F$LENGTH(MES_TXT)
$ DOT = F$LOCATE(".",MES_TXT)
$ IF DOT .NE. TLEN THEN RADIX = "D"
$ OCT = F$LOCATE("O",MES_TXT)
$ IF OCT .NE. TLEN THEN RADIX = "O"
$ HEX = F$LOCATE("X",MES_TXT)
$ IF HEX .NE. TLEN THEN RADIX = "X"
$!!$ TLEN = TLEN - 1
$!!$ IF RADIX .NES. "" THEN MES_TXT = F$EXTRACT(0,TLEN,MES_TXT)
$ IF RADIX .EQS. "" THEN RADIX = "X"
$
$GET_NUM:
$ mes_txt = mes_txt - radix - "%"
$ MES = %'RADIX''MES_TXT'
$ IF $STATUS .NE. %X30001 THEN GOTO BAD_NUM
$ XMES = F$FAO("!XL",MES)
$ OMES = F$FAO("!OL",MES)
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT -
  "Looking up message number ''MES'. - ''XMES' (HEX)  ''OMES' (8)"
$ WRITE SYS$OUTPUT ""
$ 
$ ON CONTROL_Y THEN GOTO DONE
$ FOUND = 0
$
$ TEXT = F$MESSAGE(MES)
$ LN = F$LEN( TEXT )
$ IF 'F$LOCATE("%NONAME",TEXT)' .NE. LN THEN GOTO NEXT_FILE
$ IF 'F$LOCATE("NOMSG",TEXT)' .NE. LN THEN GOTO NEXT_FILE
$ WRITE SYS$OUTPUT "''TEXT'"
$ FOUND = 1
$ GOTO DONE
$
$BAD_MES_FILE:
$ WRITE SYS$OUTPUT "Error occured setting up message file ''FILE'"
$ WRITE SYS$OUTPUT "Continuing....."
$ WRITE SYS$OUTPUT ""
$
$NEXT_FILE:
$ FILE = F$SEARCH("SYS$MESSAGE:''P2'*.EXE;0")
$ IF FILE .EQS. "" THEN GOTO DONE
$ ON WARNING THEN GOTO BAD_MES_FILE
$ SET MESSAGE 'FILE'
$ TEXT = F$MESSAGE(MES)
$ LN = F$LEN( TEXT )
$ IF 'F$LOCATE("%NONAME",TEXT)' .NE. LN THEN GOTO NEXT_FILE
$ IF 'F$LOCATE("NOMSG",TEXT)' .NE. LN THEN GOTO NEXT_FILE
$ WRITE SYS$OUTPUT "''TEXT'"
$ FOUND = 1
$ SET MESSAGE/DELETE
$
$DONE:
$ IF FOUND .EQ. 0 THEN WRITE SYS$OUTPUT "%Message NOT found."
$ WRITE SYS$OUTPUT ""
$
$ VERIFICATION = (1 - 'VERIFICATION') * 2
$ SET 'F$EXTRACT(0,VERIFICATION,"NO")'VERIFY

