Routine: ZIBERCD

Entry Points

Name	Comments	DBIA/ICR reference
212	; bad argument delimiter
213	; bad command
210	; indirect argument error
211	; argument condition error
ZCERR	; old pcode.. need to ZLOAD and ZSAVE
DPARM	; invalid use of parameter passing
NOSYS	; reference to a non-existent volume group through extended global notation
MINUS	; positive number was expected
NODEV	; attempt to open an undefined device
24	; missing or bad local variable
25	; missing or bad global variable
26	; missing or bad function
27	; missing or bad routine name
21	; missing parenthesis
22	; missing or bad colon
23	; missing or bad equal
28	; missing or bad routine label
29	; missing or bad routine displacement
ISYNT	; invalid syntax of a line being ZINERTed into a routine
9931	; key not higher than high key in subtree
9930	; keys not in ascending order
MAPER	; blk being freed already marked as free
995	; right hand link doesnt match next downlink of ptr
994	; block not marked allocated in map block
996	; block number field in block is incorrect
991	; unknown block type
993	; block type mis-match of descendent block
992	; unknown data type in block
717	; invalid block number to driver
716	; block being freed already marked as free ; use ^VALIDATE and ^DBFIX in manager's UCI to correct problem
715	; unable to open database
714	; global data/pointer block 'string+key' is too long, proper ; block split can't be performed
713	; mismatch of block number id in block header
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)
711	; hardware i/o error (unable to read/write database block)
710	; bad block type in sequential-block-processor block
BADCH	; invalid kanji/shiftjis character
NAKED	; naked reference is invalid
59	; name indirection resolved into more than pure variable name ; ex: SET X=@Y where Y="ABC+2" (the '+2' is illegal)
58	; name indirection resulted in null value
55	; attempt to access a non-opened device
54	; maximum number
57	; string value required
56	; maximum memory
51	; select function error (all elements evaluated to FALSE)
50	; string exceeded maximum length ; 4092 for locals, 255 for globals
53	; negative number where only zero or positive values allowed
52	; attempt to divide by zero
414	; global access protection violation
415	; VIEW command restriction
416	; ZCALL error
417	; Formal List not entered via DO command
410	; insertion of null line is illegal
411	; unknown data type
412	; missing parameter
413	; undefined system reference
418	; QUIT with argument inside FOR scope
419	; QUIT with argument, but routine not extrinsic
CODE	;
INDER	; invalid use of the indirection operator
INRPT	; control-c or 'break' key detected
SYSTM	; system error (should not occur)
9911	; zero length unique part of key
NOMEM	; attempt to access a nonexistant or protected memory location
NOPEN	; attempt to use an unopened device
FUNCT	; illegal or undefined function
MXMEM	; invalid memory specification in VIEW cmnd
421	; end of extrinsic subroutine encountered without QUIT parm
420	; argumentless QUIT, but routine was extrinsic
423	; Actual List contains more parms than Formal List
422	; label requires a Formal List
425	; duplicate variable name in Formal List
424	; Formal List parameter is subscripted variable
426	; passing a value by reference in JOB command not allowed
UNDEF	; local or global reference is undefined
ZV	;$ZV
39	; bad delimiter
38	; bad operator
MM	;major:minor
32	; bad local variable name
31	; bad system function
30	; bad special variable name
37	; invalid systax in term
36	; unbalanced parenthesis
35	; bad numeric constant
34	; bad string constant
9964	; map block not allocated to SYSTEM
DSCON	; telephone associated with the device has been disconnected
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)
511	; invalid VIEW/$VIEW() parameter
510	; selected partition not active ($VIEW)
513	; subscript contains $C(0), or is null, or total global reference ; exceeds 255 characters (including delimiters)
512	; function parameter out of range
515	; invalid kanji or compressed shiftjis char
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)
517	; invalid use of shared mode on VIEW buffer
516	; not allowed to write to block 0
MODER	; read/write to file when incorrect read/write mode
ZLZSV	; old pcode.. need to ZLOAD and ZSAVE
SYNTX	; invalid syntax in expression, command, etc
MXNUM	; number is greater than maximum allowed
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
NOPGM	; routine not found in directory
PLDER	; old pcode.. need to ZLOAD and ZSAVE (run the %RELOAD utility)
DIVER	; attempt to divide by zero
NOUCI	; reference to a non-existent UCI through extended global notation
PCERR	; invalid post-conditioned
DKFUL	; all space on the disk has been exhausted
MXSTR	; string exceeds maximum length
99	; buffer validation error codes
CLOBR	; zload/zremove command not inside execute statement
VWERR	; invalid use of the shared VIEW buffer mode
33	; bad global variable
9940	; hdrnext() inconsistent with actual end
EXIT	;
STKOV	; system stack has overflowed due to nested indirection, program loop, etc.
DISP	;
PROT	; access protection violation
MTERR	; magnetic tape Inpt/Output error
ERR	;
LINER	; reference made to a non-existent label
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
DKHER	; disk physical i/o error (can't read/write a block in database)
48	; zload/zremove command not inside of execute string
49	; undefined uci reference
46	; unsubscripted local reference required
47	; variable reference required.. no expressions
44	; bad naked reference
45	; non-existant device
42	; undefined routine label
43	; undefined routine name
40	; undefined local variable
41	; undefined global variable
PGMOV	; no memory left in partition
SBSCR	; invalid subscript specfication
TXT	;<text>
9951	; cyclic loop in pointer block(s)
9950	; zero pointer to lower level
9952	; cyclic loop in right link of routine blocks
DDPER	; ddp error
BKERR	; BREAK command was executed
9912	; common > common+unique of previous key
9910	; non-zero common count for leading key in blk
612	; I/O error on terminal operation
613	; I/O error on magnetic tape operation
610	; DDP database access inhibited
611	; MUMPS to MUMPS communication failure
616	; DDP circuit disabled
614	; pcode too long to fit in one block
615	; ZQUIT error
77	; bad block type in routine block
76	; bad block type in routine header block
75	; bad block type in routine directory block
74	; bad block type in extended global data block
73	; bad block type in global data block
72	; bad block type in pointer block
71	; bad block type in global directory block
79	; bad block type in journal block
78	; bad block type in map block
CMMND	; illegal or undefined command
MSMCX	; in memory communication path between tasks has been interrupted
9920	; length of leading key doesnt match expected value
9921	; leading key doesnt match expected value

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,$P($P($ZV,","),"-")," - Error Code Description Utility" Line Location: ZIBERCD+3
Function Call: READ	Timeout: EC="^Q"!(EC="^q")!("^"[EC) Variable: EC G Line Location: CODE+1
Function Call: WRITE	Prompt: !!,"Error code: " Line Location: CODE+1
Function Call: WRITE	Prompt: !,*7,?5,"Enter error code in following format:" Line Location: CODE+3
Function Call: WRITE	Prompt: !,?7,"major:minor",?28,"Example: 4:1" Line Location: CODE+4
Function Call: WRITE	Prompt: !,?7,"<text>",?28,"Example: <SYNTX>" Line Location: CODE+5
Function Call: WRITE	Prompt: !,?7,"nnn",?28,"Error code from $ZVERIFY(), ex: 21" Line Location: CODE+6
Function Call: WRITE	Prompt: *7," ... no such error code on file" Line Location: DISP+1
Function Call: WRITE	Prompt: !,?5,$P(EXP,";",2,99) Line Location: DISP+2
Function Call: WRITE	Prompt: !,?5,$P(EXP,";",2,99) Line Location: DISP+3
Function Call: WRITE	Prompt: !!,"...Aborted." Line Location: ERR+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
EC	ZIBERCD+4~, CODE+1, CODE+2, MM+1, ZV+1, TXT+1
EXP	ZIBERCD+4~, DISP+1, DISP+2, DISP+3
I	ZIBERCD+4~, DISP+3*

Name	Field # of Occurrence
$T(@EC	DISP+1
$T(@EC+I	DISP+3

Customize PDF page

Package: IHS VA %Utilities

Routine: ZIBERCD

Information

Source Information

Entry Points

Interaction Calls

Label References

Local Variables

Legend:

Marked Items

Name	Line Occurrences
CODE	CODE+7, DISP+1, DISP+4
DISP	CODE+2, MM+1, ZV+1
EXIT	CODE+1, ERR+1
MM	CODE+2
TXT	CODE+2
ZV	CODE+2