source: IHS-VA_UTILITIES-XB/trunk/ZIBERCD.m@ 1166

Last change on this file since 1166 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 9.0 KB
Line 
1ZIBERCD ;DJM;DISPLAY ERROR CODE DEFINITIONS;[ 8/13/89 4:00 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ; COPYRIGHT MICRONETICS DESIGN CORP @1990
4 S $ZT="ERR^ZIBERCD"
5 W !?10,$P($P($ZV,","),"-")," - Error Code Description Utility"
6 N EC,EXP,I
7CODE ;
8 W !!,"Error code: " R EC G:EC="^Q"!(EC="^q")!("^"[EC) EXIT
9 G MM:EC?1.N1":"1.N,ZV:EC?1.N,TXT:EC?1"<"5U1">",DISP:EC?5U
10 W !,*7,?5,"Enter error code in following format:"
11 W !,?7,"major:minor",?28,"Example: 4:1"
12 W !,?7,"<text>",?28,"Example: <SYNTX>"
13 W !,?7,"nnn",?28,"Error code from $ZVERIFY(), ex: 21"
14 G CODE
15MM ;major:minor
16 S EC=$P(EC,":")_$P(EC,":",2) G DISP
17ZV ;$ZV
18 S EC=99_EC G DISP
19TXT ;<text>
20 S EC=$E(EC,2,6)
21DISP ;
22 S EXP=$T(@EC) I EXP="" W *7," ... no such error code on file" G CODE
23 W !,?5,$P(EXP,";",2,99)
24 F I=1:1 S EXP=$T(@EC+I) Q:EXP=""!($P(EXP," ")'="") W !,?5,$P(EXP,";",2,99)
25 G CODE
26EXIT ;
27 Q
28ERR ;
29 I $F($ZE,"<INRPT>") U 0 W !!,"...Aborted." D EXIT V 0:$J:$ZB($V(0,$J,2),#0400,7):2
30 ZQ
31 ;error codes
3221 ; missing parenthesis
3322 ; missing or bad colon
3423 ; missing or bad equal
3524 ; missing or bad local variable
3625 ; missing or bad global variable
3726 ; missing or bad function
3827 ; missing or bad routine name
3928 ; missing or bad routine label
4029 ; missing or bad routine displacement
41210 ; indirect argument error
42211 ; argument condition error
43212 ; bad argument delimiter
44213 ; bad command
4530 ; bad special variable name
4631 ; bad system function
4732 ; bad local variable name
4833 ; bad global variable
4934 ; bad string constant
5035 ; bad numeric constant
5136 ; unbalanced parenthesis
5237 ; invalid systax in term
5338 ; bad operator
5439 ; bad delimiter
5540 ; undefined local variable
5641 ; undefined global variable
5742 ; undefined routine label
5843 ; undefined routine name
5944 ; bad naked reference
6045 ; non-existant device
6146 ; unsubscripted local reference required
6247 ; variable reference required.. no expressions
6348 ; zload/zremove command not inside of execute string
6449 ; undefined uci reference
65410 ; insertion of null line is illegal
66411 ; unknown data type
67412 ; missing parameter
68413 ; undefined system reference
69414 ; global access protection violation
70415 ; VIEW command restriction
71416 ; ZCALL error
72417 ; Formal List not entered via DO command
73418 ; QUIT with argument inside FOR scope
74419 ; QUIT with argument, but routine not extrinsic
75420 ; argumentless QUIT, but routine was extrinsic
76421 ; end of extrinsic subroutine encountered without QUIT parm
77422 ; label requires a Formal List
78423 ; Actual List contains more parms than Formal List
79424 ; Formal List parameter is subscripted variable
80425 ; duplicate variable name in Formal List
81426 ; passing a value by reference in JOB command not allowed
8250 ; string exceeded maximum length
83 ; 4092 for locals, 255 for globals
8451 ; select function error (all elements evaluated to FALSE)
8552 ; attempt to divide by zero
8653 ; negative number where only zero or positive values allowed
8754 ; maximum number
8855 ; attempt to access a non-opened device
8956 ; maximum memory
9057 ; string value required
9158 ; name indirection resulted in null value
9259 ; name indirection resolved into more than pure variable name
93 ; ex: SET X=@Y where Y="ABC+2" (the '+2' is illegal)
94510 ; selected partition not active ($VIEW)
95511 ; invalid VIEW/$VIEW() parameter
96512 ; function parameter out of range
97513 ; subscript contains $C(0), or is null, or total global reference
98 ; exceeds 255 characters (including delimiters)
99514 ; attempt to read/write file when file not opened for that access
100 ; ex: writing to a file that is opened for input
101 ; reading from a file that is opened for output
102 ; reading from a file that is opened for input but was not found
103 ; during open processing ($ZA/$ZB indicate if file was found)
104515 ; invalid kanji or compressed shiftjis char
105516 ; not allowed to write to block 0
106517 ; invalid use of shared mode on VIEW buffer
10760 ; break key depressed
10861 ; attempt to exceed partition size limit set at 'logon' time
10962 ; halt command executed
11063 ; lock table full
11164 ; BREAK command detected
11265 ; expression stack overflowed (expression too complex or operands of
113 ; string operations too long)
11466 ; system stack overflow (DO/XECUTE/INDIRECTION nesting is too deep)
11567 ; old pcode.. need to ZLOAD and ZSAVE (run the %RELOAD utility)
11668 ; ddp error
117 ; can be caused by: SET X="XECUTE X" X X
11869 ; reserved for DDP internal use
119610 ; DDP database access inhibited
120611 ; MUMPS to MUMPS communication failure
121612 ; I/O error on terminal operation
122613 ; I/O error on magnetic tape operation
123614 ; pcode too long to fit in one block
124615 ; ZQUIT error
125616 ; DDP circuit disabled
12671 ; bad block type in global directory block
12772 ; bad block type in pointer block
12873 ; bad block type in global data block
12974 ; bad block type in extended global data block
13075 ; bad block type in routine directory block
13176 ; bad block type in routine header block
13277 ; bad block type in routine block
13378 ; bad block type in map block
13479 ; bad block type in journal block
135710 ; bad block type in sequential-block-processor block
136711 ; hardware i/o error (unable to read/write database block)
137712 ; disk full (if this occurs on a SET of a global variable, you MUST
138 ; use ^VALIDATE in Manager's UCI to validate the global since it
139 ; is likely that the global has become corrupt since the SET did
140 ; not complete normally (you may need to use ^DBFIX to correct)
141713 ; mismatch of block number id in block header
142714 ; global data/pointer block 'string+key' is too long, proper
143 ; block split can't be performed
144715 ; unable to open database
145716 ; block being freed already marked as free
146 ; use ^VALIDATE and ^DBFIX in manager's UCI to correct problem
147717 ; invalid block number to driver
148BKERR ; BREAK command was executed
149CMMND ; illegal or undefined command
150CLOBR ; zload/zremove command not inside execute statement
151DDPER ; ddp error
152DIVER ; attempt to divide by zero
153DKFUL ; all space on the disk has been exhausted
154DKHER ; disk physical i/o error (can't read/write a block in database)
155DKSER ; incorrect block type in block header (ex: reading in a 'data'
156 ; block but header in block indicates a 'directory' block)
157 ; use ^VALIDATE and ^DBFIX in manager's UCI to correct problem
158DPARM ; invalid use of parameter passing
159DSCON ; telephone associated with the device has been disconnected
160FUNCT ; illegal or undefined function
161INDER ; invalid use of the indirection operator
162INRPT ; control-c or 'break' key detected
163ISYNT ; invalid syntax of a line being ZINERTed into a routine
164LINER ; reference made to a non-existent label
165MAPER ; blk being freed already marked as free
166MINUS ; positive number was expected
167MODER ; read/write to file when incorrect read/write mode
168MSMCX ; in memory communication path between tasks has been interrupted
169MTERR ; magnetic tape Inpt/Output error
170MXNUM ; number is greater than maximum allowed
171MXMEM ; invalid memory specification in VIEW cmnd
172MXSTR ; string exceeds maximum length
173NAKED ; naked reference is invalid
174NODEV ; attempt to open an undefined device
175NOMEM ; attempt to access a nonexistant or protected memory location
176NOPEN ; attempt to use an unopened device
177NOPGM ; routine not found in directory
178NOSYS ; reference to a non-existent volume group through extended global notation
179NOUCI ; reference to a non-existent UCI through extended global notation
180PCERR ; invalid post-conditioned
181PGMOV ; no memory left in partition
182PLDER ; old pcode.. need to ZLOAD and ZSAVE (run the %RELOAD utility)
183SBSCR ; invalid subscript specfication
184SYNTX ; invalid syntax in expression, command, etc
185SYSTM ; system error (should not occur)
186UNDEF ; local or global reference is undefined
187PROT ; access protection violation
188SBSCR ; invalid subscript in a local or global variable
189STKOV ; system stack has overflowed due to nested indirection, program loop, etc.
190SYNTX ; a syntax error has been encountered by the interperter
191SYSTM ; an internal MUMPS error, shutdown system and reboot
192VWERR ; invalid use of the shared VIEW buffer mode
193ZCERR ; old pcode.. need to ZLOAD and ZSAVE
194ZLZSV ; old pcode.. need to ZLOAD and ZSAVE
195BADCH ; invalid kanji/shiftjis character
19699 ; buffer validation error codes
197991 ; unknown block type
198992 ; unknown data type in block
199993 ; block type mis-match of descendent block
200994 ; block not marked allocated in map block
201995 ; right hand link doesnt match next downlink of ptr
202996 ; block number field in block is incorrect
2039910 ; non-zero common count for leading key in blk
2049911 ; zero length unique part of key
2059912 ; common > common+unique of previous key
2069920 ; length of leading key doesnt match expected value
2079921 ; leading key doesnt match expected value
2089930 ; keys not in ascending order
2099931 ; key not higher than high key in subtree
2109940 ; hdrnext() inconsistent with actual end
2119950 ; zero pointer to lower level
2129951 ; cyclic loop in pointer block(s)
2139952 ; cyclic loop in right link of routine blocks
2149960 ; incorrect offset to first free slot in map block
2159961 ; incorrect free count in map block
2169963 ; map block in illegal location (valid: 1, 513, ... 512*n+1)
2179964 ; map block not allocated to SYSTEM
Note: See TracBrowser for help on using the repository browser.