Notes on MUMPS V1 [jas@boris mumpsv1]$ ./mumps ---------------------------------------------------- This is MUMPS V1.26 for Linux i586 --- M> SET ^$S("EOK")=1,^$S("OFFOK")=1 M> w ^$S("OFFOK") 2 M> w ^$S("EOK") 1 --- running MVTS --- paste npy from below to pass manual tests by single mouse click n p y ---- End of 193---V1RANDB 194---V1IO The following table shows the parameters to use the Secondary, the Tertiary, and the Log-in terminals during I/O and Multi-job testings. Please fill in the blanks and/or edit if there are incorrect parameters. The following questions are only for testing I/O competition and multi-job. Do not use the log-in terminal of the multi-job tests as the secondary and the tertiary devices. ============================================================================ 17. The Secondary Output Device for I/O and Multi-Job tests (Name/Model): out2 18. Its precise OPEN Argument, with Parameters : 19. Its USE Argument : 20. Its CLOSE Argument : 21. The Tertiary Output Device for I/O and Multi-Job tests (Name/Model): out3 22. Its precise OPEN Argument, with Parameters : 23. Its USE Argument : 24. Its CLOSE Argument : 25. Secondary, Tertiary, and Partition terminals turned ON : YES ============================================================================ I have a question with II-142 - it didn't appear to work correctly because I had to press RETURN twice. II-142 Indirection argument @A (R X#10) : Type 3 characters 'ABC' and a : ABC PASS 20158 II-142 Indirection argument --- oops segfault --- 48---V3FN25: $FNUMBER(numexpr,fncodexpr) -5- fncodexpr is a "+" ** FAIL 30507 III-0507 numexpr=0000 COMPUTED ="+0" CORRECT ="0" ** FAIL 30508 III-0508 numexpr=-00 COMPUTED ="+0" CORRECT ="0"Segmentation fault (core dumped) -rw------- 1 jas jas 7245824 Jul 22 20:46 core -rw------- 1 jas jas 7245824 Jul 22 20:59 core 57---V3FN214: $FNUMBER(numexpr,fncodexpr) -14- fncodexpr is a "-+" ** FAIL 30675 III-0675 numexpr=0000 COMPUTED ="+0" CORRECT ="0" ** FAIL 30676 III-0676 numexpr=-00 COMPUTED ="+0" CORRECT ="0"Segmentation fault (core dumped) -rw------- 1 jas jas 7213056 Jul 22 21:02 core 87---V3NEW17 87---V3NEW17: NEW -17- NEW (name,name) same nameSegmentation fault (core dumped) -rw------- 1 jas jas 7217152 Jul 22 21:12 core 39---V4NAME18 39---V4NAME18: $NAME function -8- PASS 40293 IV-293 gvn contains extrinsic special variable PASS 40294 IV-294 gvn contains extrinsic functionSegmentation fault (core dumped) -rw------- 1 jas jas 7245824 Jul 22 21:17 core 45---V4NAME26: $NAME function -14- PASS 40334 IV-334 minimum to maximum number of one subscript of a local variable PASS 40335 IV-335 minimum to maximum number of one subscript of a global variableSegmentation fault (core dumped) -rw------- 1 jas jas 7208960 Jul 22 21:28 core --- unrecognized object? repeating endlessly - I had to kill the process --- resumed at 138---V4NST4 138---V4NST4: Nesting ( FOR, XECUTE, DO ) -4- IV-862 126 levels of DO --- --- completed section 4 ----- M> k s p="",n="" f s p=$o(^VREPORT(p)) q:p="" w !,p," -- " s n(p)=0 f i=1:1 s n=$o(^VREPORT(p,n)) q:n="" s st=^(n),n(p)=n(p)+1,n(p,st)=$g(n(p,st))+1 if st["FAIL" w:$x>70 ! w n," " Part-77 -- 10180 10519 10582 11841 12066 12068 Part-84 -- 20124 20206 20210 Part-90 -- 30252 30253 30260 30271 30331 30349 30456 30472 30473 30474 30476 30478 30480 30482 30484 30486 30498 30506 30507 30508 30553 30561 30566 30567 30569 30571 30573 30575 30576 30577 30579 30581 30583 30584 30585 30587 30589 30590 30591 30610 30611 30613 30615 30617 30619 30621 30623 30625 30627 30629 30639 30647 30649 30662 30670 30671 30675 30676 30696 30706 30714 30718 30720 30721 30723 30725 30727 30729 30730 30731 30733 30735 30737 30738 30739 30740 30742 30744 30745 30746 30766 30776 30784 30786 30790 30800 30808 30809 30823 30831 30842 30843 30845 30847 30851 30852 30853 30858 30863 30872 30873 30876 30877 30878 30881 30887 30888 30889 30891 30897 30901 31023 31024 31025 31026 31029 31030 31038 31039 31048 31057 31066 31082 31092 31095 31096 31097 Part-94 -- 40027 40030 40093 40094 40096 40097 40098 40100 40101 40103 40110 40111 40114 40115 40143 40144 40146 40151 40152 40153 40230 40252 40337 40457 40458 40459 40460 40461 40462 40463 40464 40465 40466 40467 40468 40469 40470 40499 40501 40508 40511 40529 40530 40568 40683 40684 40689 40690 40695 40696 40701 40702 40708 40710 40712 40713 40716 40754 40778 40782 40789 40791 40796 40797 40798 40801 40803 40804 40805 40808 40809 40810 40811 40819 40820 40821 40825 40826 40827 40828 40832 40836 40837 40838 40839 40840 40841 40843 40846 40848 40849 40850 40851 40853 40855 40856 40857 40862 40863 M> s %=$&%ZWRITE st= PASS i=809 n= n("Part-77")=2083 n("Part-77"," PASS ")=1979 n("Part-77"," PASSO ")=35 n("Part-77","*ABORT*")=18 n("Part-77","*FAIL*")=5 n("Part-77","*FAILO*")=1 n("Part-77","*WITHDR*")=45 n("Part-84")=200 n("Part-84"," PASS ")=165 n("Part-84"," PASSO ")=2 n("Part-84","*ABORT*")=6 n("Part-84","*FAIL*")=3 n("Part-84","*WITHDR*")=24 n("Part-90")=1081 n("Part-90"," PASS ")=940 n("Part-90","*ABORT*")=8 n("Part-90","*FAIL*")=127 n("Part-90","*WITHDR*")=6 n("Part-94")=808 n("Part-94"," PASS ")=674 n("Part-94","*ABORT*")=23 n("Part-94","*FAIL*")=99 n("Part-94","*WITHDR*")=12 p= M> MCL> d SEQ^VSR ;prints report on device defined for report to file --- failures 2. No. 10519 I-46.2 0/-6 COMPUTED ="-0" CORRECT ="0" 3. No. 10582 I-63.10 4.1#.01 COMPUTED ="-0" CORRECT ="0" --- Attempted to check integrity of Fileman routines via DO ^DINTEG --- - same failure as before MCL> d ^DINTEG Checksum routine created on Mar 30, 1999 by VA FileMan V22.0 DDBR Error: Z13 Command syntax error $ST=5 XECUTE XECUTE Code: Error: Z13 Command syntax error $ST=4 DO +5^DINTEG Code: CONT F DIZ1=1:1 S DIZ2=$T(ROU+DIZ1) Q:DIZ2="" S X=$P(DIZ2," ",1),DIZ3=$P(DIZ2,";",3) X DIZ4 I $T W !,X X DIZTEST W:'$T ?28,DIZ6 S:'$T DIZ3=0 X:DIZ3 DIZSUM W ?10,$S('DIZ3:"",DIZ3'=Y:$C(7)_"Calculated "_Y_", off by "_(Y-DIZ3),1:"ok") MCL> w DIZ4 I 1 MCL> w DIZTEST I $T(^@X)]"" MCL> w X DDBR Then tried to install fileman anyway --- - this reported success but died while cross referencing MCL> d ^DINIT VA FileMan V.22.0 Initialize VA FileMan now? NO//y SITE NAME: boris// SITE NUMBER: 1// .......................... Now loading MUMPS Operating System File.... Now loading DIALOG and LANGUAGE Files.......................................................... TYPE OF MUMPS SYSTEM YOU ARE USING: ? Error: M13 Invalid line reference (line not found) $ST=12 $$ +57^DIALOG Code: N DINAKED S DINAKED=$$LGR^%ZOSV I $G(^DI(.84,+$G(D0),0))="" D Q1 Q "" Error: M13 Invalid line reference (line not found) $ST=11 DO +70^DICQ Code: N X S DST=$$EZBLD^DIALOG(8063,$P(DO,U)),DS=0 MCL> d ^DINIT VA FileMan V.22.0 Initialize VA FileMan now? NO//y SITE NAME: boris// SITE NUMBER: 1// .......................... Now loading MUMPS Operating System File.... Now loading DIALOG and LANGUAGE Files.......................................................... TYPE OF MUMPS SYSTEM YOU ARE USING: OTHER// Now loading other FileMan files--please wait............................................................................................................................................................................. The following files have been installed: .11 INDEX .2 DESTINATION .31 KEY .4 PRINT TEMPLATE .401 SORT TEMPLATE .402 INPUT TEMPLATE .403 FORM .404 BLOCK .44 FOREIGN FORMAT .46 IMPORT TEMPLATE .5 FUNCTION .6 DD AUDIT .7 MUMPS OPERATING SYSTEM .81 DATA TYPE .83 COMPILED ROUTINE .84 DIALOG .85 LANGUAGE 1 FILE 1.1 AUDIT 1.11 ARCHIVAL ACTIVITY 1.12 FILEGRAM HISTORY 1.13 FILEGRAM ERROR LOG 1.2 ALTERNATE EDITOR 1.521 SQLI_SCHEMA 1.52101 SQLI_KEY_WORD 1.5211 SQLI_DATA_TYPE 1.5212 SQLI_DOMAIN 1.5213 SQLI_KEY_FORMAT 1.5214 SQLI_OUTPUT_FORMAT 1.5215 SQLI_TABLE 1.5216 SQLI_TABLE_ELEMENT 1.5217 SQLI_COLUMN 1.5218 SQLI_PRIMARY_KEY 1.5219 SQLI_FOREIGN_KEY 1.52191 SQLI_ERROR_TEXT 1.52192 SQLI_ERROR_LOG Your Package file will now be updated. I AM GOING TO SET UP THE FOLLOWING FILES: 9.4 PACKAGE ...EXCUSE ME, I'M WORKING AS FAST AS I CAN............................................... OK, I'M DONE. NOTE THAT FILE SECURITY-CODE PROTECTION HAS BEEN MADE Re-indexing entries in the DIALOG file.... Compiling all forms ... DICATT (#.001) Error: M6 Undefined local variable $ST=14 DO +67^DDSZ2 Code: I E1]"",E2]"" S $P(LN,U,4)=$P(N(E1,E2),",",1,2) Error: M6 Undefined local variable $ST=13 DO +33^DDSZ2 Code: .. D NAV1(.N,.RNAV,D1,D2,.LN) MCL> --- --