218 lines
9.0 KiB
Mathematica
218 lines
9.0 KiB
Mathematica
ZIBERCD ;DJM;DISPLAY ERROR CODE DEFINITIONS;[ 8/13/89 4:00 PM ]
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
|
; COPYRIGHT MICRONETICS DESIGN CORP @1990
|
|
S $ZT="ERR^ZIBERCD"
|
|
W !?10,$P($P($ZV,","),"-")," - Error Code Description Utility"
|
|
N EC,EXP,I
|
|
CODE ;
|
|
W !!,"Error code: " R EC G:EC="^Q"!(EC="^q")!("^"[EC) EXIT
|
|
G MM:EC?1.N1":"1.N,ZV:EC?1.N,TXT:EC?1"<"5U1">",DISP:EC?5U
|
|
W !,*7,?5,"Enter error code in following format:"
|
|
W !,?7,"major:minor",?28,"Example: 4:1"
|
|
W !,?7,"<text>",?28,"Example: <SYNTX>"
|
|
W !,?7,"nnn",?28,"Error code from $ZVERIFY(), ex: 21"
|
|
G CODE
|
|
MM ;major:minor
|
|
S EC=$P(EC,":")_$P(EC,":",2) G DISP
|
|
ZV ;$ZV
|
|
S EC=99_EC G DISP
|
|
TXT ;<text>
|
|
S EC=$E(EC,2,6)
|
|
DISP ;
|
|
S EXP=$T(@EC) I EXP="" W *7," ... no such error code on file" G CODE
|
|
W !,?5,$P(EXP,";",2,99)
|
|
F I=1:1 S EXP=$T(@EC+I) Q:EXP=""!($P(EXP," ")'="") W !,?5,$P(EXP,";",2,99)
|
|
G CODE
|
|
EXIT ;
|
|
Q
|
|
ERR ;
|
|
I $F($ZE,"<INRPT>") U 0 W !!,"...Aborted." D EXIT V 0:$J:$ZB($V(0,$J,2),#0400,7):2
|
|
ZQ
|
|
;error codes
|
|
21 ; missing parenthesis
|
|
22 ; missing or bad colon
|
|
23 ; missing or bad equal
|
|
24 ; missing or bad local variable
|
|
25 ; missing or bad global variable
|
|
26 ; missing or bad function
|
|
27 ; missing or bad routine name
|
|
28 ; missing or bad routine label
|
|
29 ; missing or bad routine displacement
|
|
210 ; indirect argument error
|
|
211 ; argument condition error
|
|
212 ; bad argument delimiter
|
|
213 ; bad command
|
|
30 ; bad special variable name
|
|
31 ; bad system function
|
|
32 ; bad local variable name
|
|
33 ; bad global variable
|
|
34 ; bad string constant
|
|
35 ; bad numeric constant
|
|
36 ; unbalanced parenthesis
|
|
37 ; invalid systax in term
|
|
38 ; bad operator
|
|
39 ; bad delimiter
|
|
40 ; undefined local variable
|
|
41 ; undefined global variable
|
|
42 ; undefined routine label
|
|
43 ; undefined routine name
|
|
44 ; bad naked reference
|
|
45 ; non-existant device
|
|
46 ; unsubscripted local reference required
|
|
47 ; variable reference required.. no expressions
|
|
48 ; zload/zremove command not inside of execute string
|
|
49 ; undefined uci reference
|
|
410 ; insertion of null line is illegal
|
|
411 ; unknown data type
|
|
412 ; missing parameter
|
|
413 ; undefined system reference
|
|
414 ; global access protection violation
|
|
415 ; VIEW command restriction
|
|
416 ; ZCALL error
|
|
417 ; Formal List not entered via DO command
|
|
418 ; QUIT with argument inside FOR scope
|
|
419 ; QUIT with argument, but routine not extrinsic
|
|
420 ; argumentless QUIT, but routine was extrinsic
|
|
421 ; end of extrinsic subroutine encountered without QUIT parm
|
|
422 ; label requires a Formal List
|
|
423 ; Actual List contains more parms than Formal List
|
|
424 ; Formal List parameter is subscripted variable
|
|
425 ; duplicate variable name in Formal List
|
|
426 ; passing a value by reference in JOB command not allowed
|
|
50 ; string exceeded maximum length
|
|
; 4092 for locals, 255 for globals
|
|
51 ; select function error (all elements evaluated to FALSE)
|
|
52 ; attempt to divide by zero
|
|
53 ; negative number where only zero or positive values allowed
|
|
54 ; maximum number
|
|
55 ; attempt to access a non-opened device
|
|
56 ; maximum memory
|
|
57 ; string value required
|
|
58 ; name indirection resulted in null value
|
|
59 ; name indirection resolved into more than pure variable name
|
|
; ex: SET X=@Y where Y="ABC+2" (the '+2' is illegal)
|
|
510 ; selected partition not active ($VIEW)
|
|
511 ; invalid VIEW/$VIEW() parameter
|
|
512 ; function parameter out of range
|
|
513 ; subscript contains $C(0), or is null, or total global reference
|
|
; exceeds 255 characters (including delimiters)
|
|
514 ; attempt to read/write file when file not opened for that access
|
|
; ex: writing to a file that is opened for input
|
|
; reading from a file that is opened for output
|
|
; reading from a file that is opened for input but was not found
|
|
; during open processing ($ZA/$ZB indicate if file was found)
|
|
515 ; invalid kanji or compressed shiftjis char
|
|
516 ; not allowed to write to block 0
|
|
517 ; invalid use of shared mode on VIEW buffer
|
|
60 ; break key depressed
|
|
61 ; attempt to exceed partition size limit set at 'logon' time
|
|
62 ; halt command executed
|
|
63 ; lock table full
|
|
64 ; BREAK command detected
|
|
65 ; expression stack overflowed (expression too complex or operands of
|
|
; string operations too long)
|
|
66 ; system stack overflow (DO/XECUTE/INDIRECTION nesting is too deep)
|
|
67 ; old pcode.. need to ZLOAD and ZSAVE (run the %RELOAD utility)
|
|
68 ; ddp error
|
|
; can be caused by: SET X="XECUTE X" X X
|
|
69 ; reserved for DDP internal use
|
|
610 ; DDP database access inhibited
|
|
611 ; MUMPS to MUMPS communication failure
|
|
612 ; I/O error on terminal operation
|
|
613 ; I/O error on magnetic tape operation
|
|
614 ; pcode too long to fit in one block
|
|
615 ; ZQUIT error
|
|
616 ; DDP circuit disabled
|
|
71 ; bad block type in global directory block
|
|
72 ; bad block type in pointer block
|
|
73 ; bad block type in global data block
|
|
74 ; bad block type in extended global data block
|
|
75 ; bad block type in routine directory block
|
|
76 ; bad block type in routine header block
|
|
77 ; bad block type in routine block
|
|
78 ; bad block type in map block
|
|
79 ; bad block type in journal block
|
|
710 ; bad block type in sequential-block-processor block
|
|
711 ; hardware i/o error (unable to read/write database block)
|
|
712 ; disk full (if this occurs on a SET of a global variable, you MUST
|
|
; use ^VALIDATE in Manager's UCI to validate the global since it
|
|
; is likely that the global has become corrupt since the SET did
|
|
; not complete normally (you may need to use ^DBFIX to correct)
|
|
713 ; mismatch of block number id in block header
|
|
714 ; global data/pointer block 'string+key' is too long, proper
|
|
; block split can't be performed
|
|
715 ; unable to open database
|
|
716 ; block being freed already marked as free
|
|
; use ^VALIDATE and ^DBFIX in manager's UCI to correct problem
|
|
717 ; invalid block number to driver
|
|
BKERR ; BREAK command was executed
|
|
CMMND ; illegal or undefined command
|
|
CLOBR ; zload/zremove command not inside execute statement
|
|
DDPER ; ddp error
|
|
DIVER ; attempt to divide by zero
|
|
DKFUL ; all space on the disk has been exhausted
|
|
DKHER ; disk physical i/o error (can't read/write a block in database)
|
|
DKSER ; incorrect block type in block header (ex: reading in a 'data'
|
|
; block but header in block indicates a 'directory' block)
|
|
; use ^VALIDATE and ^DBFIX in manager's UCI to correct problem
|
|
DPARM ; invalid use of parameter passing
|
|
DSCON ; telephone associated with the device has been disconnected
|
|
FUNCT ; illegal or undefined function
|
|
INDER ; invalid use of the indirection operator
|
|
INRPT ; control-c or 'break' key detected
|
|
ISYNT ; invalid syntax of a line being ZINERTed into a routine
|
|
LINER ; reference made to a non-existent label
|
|
MAPER ; blk being freed already marked as free
|
|
MINUS ; positive number was expected
|
|
MODER ; read/write to file when incorrect read/write mode
|
|
MSMCX ; in memory communication path between tasks has been interrupted
|
|
MTERR ; magnetic tape Inpt/Output error
|
|
MXNUM ; number is greater than maximum allowed
|
|
MXMEM ; invalid memory specification in VIEW cmnd
|
|
MXSTR ; string exceeds maximum length
|
|
NAKED ; naked reference is invalid
|
|
NODEV ; attempt to open an undefined device
|
|
NOMEM ; attempt to access a nonexistant or protected memory location
|
|
NOPEN ; attempt to use an unopened device
|
|
NOPGM ; routine not found in directory
|
|
NOSYS ; reference to a non-existent volume group through extended global notation
|
|
NOUCI ; reference to a non-existent UCI through extended global notation
|
|
PCERR ; invalid post-conditioned
|
|
PGMOV ; no memory left in partition
|
|
PLDER ; old pcode.. need to ZLOAD and ZSAVE (run the %RELOAD utility)
|
|
SBSCR ; invalid subscript specfication
|
|
SYNTX ; invalid syntax in expression, command, etc
|
|
SYSTM ; system error (should not occur)
|
|
UNDEF ; local or global reference is undefined
|
|
PROT ; access protection violation
|
|
SBSCR ; invalid subscript in a local or global variable
|
|
STKOV ; system stack has overflowed due to nested indirection, program loop, etc.
|
|
SYNTX ; a syntax error has been encountered by the interperter
|
|
SYSTM ; an internal MUMPS error, shutdown system and reboot
|
|
VWERR ; invalid use of the shared VIEW buffer mode
|
|
ZCERR ; old pcode.. need to ZLOAD and ZSAVE
|
|
ZLZSV ; old pcode.. need to ZLOAD and ZSAVE
|
|
BADCH ; invalid kanji/shiftjis character
|
|
99 ; buffer validation error codes
|
|
991 ; unknown block type
|
|
992 ; unknown data type in block
|
|
993 ; block type mis-match of descendent block
|
|
994 ; block not marked allocated in map block
|
|
995 ; right hand link doesnt match next downlink of ptr
|
|
996 ; block number field in block is incorrect
|
|
9910 ; non-zero common count for leading key in blk
|
|
9911 ; zero length unique part of key
|
|
9912 ; common > common+unique of previous key
|
|
9920 ; length of leading key doesnt match expected value
|
|
9921 ; leading key doesnt match expected value
|
|
9930 ; keys not in ascending order
|
|
9931 ; key not higher than high key in subtree
|
|
9940 ; hdrnext() inconsistent with actual end
|
|
9950 ; zero pointer to lower level
|
|
9951 ; cyclic loop in pointer block(s)
|
|
9952 ; cyclic loop in right link of routine blocks
|
|
9960 ; incorrect offset to first free slot in map block
|
|
9961 ; incorrect free count in map block
|
|
9963 ; map block in illegal location (valid: 1, 513, ... 512*n+1)
|
|
9964 ; map block not allocated to SYSTEM
|