Routine: ZIBERCD

ZIBERCD ;DJM;DISPLAY ERROR CODE DEFINITIONS;[ 8/13/89  4:00 PM ]

 ; 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 ;

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

ZIBERCD   ;DJM;DISPLAY ERROR CODE DEFINITIONS;[ 8/13/89  4:00 PM ]

 +1       ; COPYRIGHT MICRONETICS DESIGN CORP @1990

 +2        SET $ZT="ERR^ZIBERCD"

 +3        WRITE !?10,$PIECE($PIECE($ZV,","),"-")," - Error Code Description Utility"

 +4        NEW EC,EXP,I

CODE      ;

 +1        WRITE !!,"Error code: "

           READ EC

           IF EC="^Q"!(EC="^q")!("^"[EC)

               GOTO EXIT

 +2        IF EC?1.N1":"1.N

               GOTO MM

           IF EC?1.N

               GOTO ZV

           IF EC?1"<"5U1">"

               GOTO TXT

           IF EC?5U

               GOTO DISP

 +3        WRITE !,*7,?5,"Enter error code in following format:"

 +4        WRITE !,?7,"major:minor",?28,"Example:   4:1"

 +5        WRITE !,?7,"<text>",?28,"Example:   <SYNTX>"

 +6        WRITE !,?7,"nnn",?28,"Error code from $ZVERIFY(), ex:  21"

 +7        GOTO CODE

MM        ;major:minor

 +1        SET EC=$PIECE(EC,":")_$PIECE(EC,":",2)

           GOTO DISP

ZV        ;$ZV

 +1        SET EC=99_EC

           GOTO DISP

TXT       ;<text>

 +1        SET EC=$EXTRACT(EC,2,6)

DISP      ;

 +1        SET EXP=$TEXT(@EC)

           IF EXP=""

               WRITE *7," ... no such error code on file"

               GOTO CODE

 +2        WRITE !,?5,$PIECE(EXP,";",2,99)

 +3        FOR I=1:1

               SET EXP=$TEXT(@EC+I)

               IF EXP=""!($PIECE(EXP," ")'="")

                   QUIT

               WRITE !,?5,$PIECE(EXP,";",2,99)

 +4        GOTO CODE

EXIT      ;

 +1        QUIT

ERR       ;

 +1        IF $FIND($ZE,"<INRPT>")

               USE 0

               WRITE !!,"...Aborted."

               DO EXIT

               VIEW 0:$JOB:$ZB($VIEW(0,$JOB,2),#0400,7):2

+2

*** ERROR ***

 +3       ;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

 +1       ;    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

 +1       ;   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

 +1       ; exceeds 255 characters (including delimiters)

514       ; attempt to read/write file when file not opened for that access

 +1       ; ex: writing to a file that is opened for input

 +2       ;     reading from a file that is opened for output

 +3       ;     reading from a file that is opened for input but was not found

 +4       ;       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

 +1       ; 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

 +1       ;   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

 +1       ; use ^VALIDATE in Manager's UCI to validate the global since it

 +2       ; is likely that the global has become corrupt since the SET did

 +3       ; 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

 +1       ; block split can't be performed

715       ; unable to open database

716       ; block being freed already marked as free

 +1       ; 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'

 +1       ; block but header in block indicates a 'directory' block)

 +2       ; 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

ZIBERCD.m