Error on Fileman lookup.

Kevin Toppenberg

unread,

Aug 27, 2012, 10:35:05 PM8/27/12

to hard...@googlegroups.com

I am having a crash when I try to select the box-vol pair to edit for with my TASKMAN SITE PARAMETERS file (14.7)

this is what it looks like from the command line:

ASTRON>do P^DI

MSC FileMan 22.1036

Identity = `168 TOPPENBERG,KEVIN S kst MD

Select OPTION: 1 ENTER OR EDIT FILE ENTRIES

INPUT TO WHAT FILE: TASKMAN SITE PARAMETERS//

EDIT WHICH FIELD: ALL//

Select TASKMAN SITE PARAMETERS BOX-VOLUME PAIR: ?

Answer with TASKMAN SITE PARAMETERS BOX-VOLUME PAIR:

EHR:poweredge

%GTM-E-UNDEF, Undefined local variable: DO

At M source location 10+1^DICQ1

ASTRON>w $ZPOS,!,$ZSTATUS

10+1^DICQ1

150373850,10+1^DICQ1,%GTM-E-UNDEF, Undefined local variable: DO

ASTRON>

Here is ^XTER output. I got this by logging in with ^ZU and then going through menu options to edit the site parameters, and generating the crash there. By the way, this crash caused GT.M to drop out to the linux prompt. But not before information for ^XTER got saved.

$DEVICE=

$ECODE=,M6,Z150373850,M6,Z150373850,M6,Z150373850,M6,Z150373850,M6,Z150373850,M6

,Z150373850,M6,Z150373850,M6,Z150373850,M6,Z150373850,M6,Z150373850,M6,Z15037385

0,M6,Z150373850,M6,Z150373850,M6,Z150373850,M6,Z150373850,M6,Z150373850,M6,Z1503

73850

,M6,Z150373850,M6

$ESTACK=10

$ETRAP=D UNWIND^ZU

$QUIT=0

$STACK=11

$STACK(000)=-dir

$STACK(000,"ECODE")=

$STACK(000,"PLACE")=+1^GTM$DMOD

$STACK(000,"MCODE")=

$STACK(001)=DO

$STACK(001,"ECODE")=

$STACK(001,"PLACE")=F^DII

$STACK(001,"MCODE")=F S DIC=DIK,DIC(0)="AEQZ" D ^DIC K DIC,DIK G Q:Y<0 S X=$P(Y(

0),U,2,99) K Y D @X W !!! D Q G NOKL

$STACK(002)=DO

$STACK(002,"ECODE")=

$STACK(002,"PLACE")=DIC^DIA2

$STACK(002,"MCODE")=DIC W !! G Q^DIB:$D(DTOUT) D L S DIA(1)=+Y,DIA(9)=$P(Y,U,3)

I Y>0 D DIE,^DIA3:'$D(DA) G DIC

$STACK(003)=DO

$STACK(003,"ECODE")=

$STACK(003,"PLACE")=L^DIA2

$STACK(003,"MCODE")=L K Y,I,J,F,DIC S (DIC,DIE)=DIA,DIC(0)="QEALM" D K DIE S DI

E=DIA Q

$STACK(004)=DO

$STACK(004,"ECODE")=

$STACK(004,"PLACE")=L+1^DIA2

$STACK(004,"MCODE")= .N DIA,DR D ^DIC ;could go to a custom lookup that deranges

these variables

$STACK(005)=DO

$STACK(005,"ECODE")=

$STACK(005,"PLACE")=RTN+3^DIC

$STACK(005,"MCODE")=

$STACK(006)=DO

$STACK(006,"ECODE")=

$STACK(006,"PLACE")=RTN+4^DIC

$STACK(006,"MCODE")=

$STACK(007)=DO

$STACK(007,"ECODE")=

$STACK(007,"PLACE")=DSPHLP+4^DICQ

$STACK(007,"MCODE")= I DIC(0)]"" D DQ Q:$G(DINOKILL)

$STACK(008)=DO

$STACK(008,"ECODE")=

$STACK(008,"PLACE")=DQ1+16^DICQ

$STACK(008,"MCODE")= D EN^DICQ1

$STACK(009)=DO

$STACK(009,"ECODE")=

$STACK(009,"PLACE")=L+6^DICQ1

$STACK(009,"MCODE")= D 0 Q

$STACK(010)=DO

$STACK(010,"ECODE")=,M6,Z150373850,

$STACK(010,"PLACE")=10+1^DICQ1

$STACK(010,"MCODE")= I DZ?1."?" S DST=" " D DS^DIEQ S DST=$$EZBLD^DIALOG(8069,$P

(DO,U)) D DS^DIEQ D:DZ="?" HP

$STACK(011)=

$STACK(011,"ECODE")=

$STACK(011,"PLACE")=

$STACK(011,"MCODE")=

$X $Y=3 3

$ZV=GT.M V5.3-004A Linux x86

%=

%ZT("^XUTL(""XQ"",$J)")=

%ZTER11I=EHR,EHR

%ZTER11N=7

%ZTER11S=

%ZTER11Z=0

%ZTER12A=0

%ZTER12B=\\013

%ZTERCNT=65

%ZTERH1=62696

%ZTERROR=

%ZTERRT=^%ZTER(1,62696,1,7)

%ZTERSUB=%ZTER11S)

%ZTERVAP=%ZT(

%ZTERVAR=%ZTERVAR

%ZTERZE=10+1^DICQ1, Undefined local variable: DO,150373850,-%GTM-E-UNDEF

D=B

DD=102

DDD=3

DDH=1

DDH(1,"T")=

DIACCESS=1

DIALLVAL=1

DIBEGIX=B

DIBEGSUB=1

DIC=^%ZIS(14.7,

DIC(0)=AEMQL

DICNT=1

DIDONE=0

DIENS=,

DIFIELDS=@;IX

DIFILE=14.7

DIFILE(14.7)=^%ZIS(14.7)

DIFILE(14.7,"O")=^%ZIS(14.7,

DIFILEI=14.7

DIFILEI(14.7)=^%ZIS(14.7)

DIFILEI(14.7,"O")=^%ZIS(14.7,

DIFLAGS=MPh

DIFROM=

DIFROM(1)=

DIFROM(2)=

DIFROM("IEN")=

DIIENS=,

DILN=21

DILOCKTM=3

DINDEX=B

DINDEX(1)=

DINDEX(1,"FIELD")=.01

DINDEX(1,"FILE")=14.7

DINDEX(1,"GET")=DIVAL=$P(DI0NODE,U,1)

DINDEX(1,"LENGTH")=30

DINDEX(1,"MORE?")=0

DINDEX(1,"PROMPT")=BOX-VOLUME PAIR

DINDEX(1,"ROOT")=^%ZIS(14.7,DINDEX)

DINDEX(1,"TYPE")=F

DINDEX(1,"USE")=0

DINDEX(1,"WAY")=1

DINDEX(2)=0

DINDEX(2,"ROOT")=^%ZIS(14.7,DINDEX,DINDEX(1))

DINDEX(2,"WAY")=1

DINDEX("#")=1

DINDEX("AT")=1

DINDEX("FLIST")=^.01^

DINDEX("FLISTD")=^.01^

DINDEX("IXTYPE")=R

DINDEX("START")=B

DINDEX("WAY")=1

DIPART(1)=

DIPGM=

DIRECUR=0

DISCR("F")=

DISCR("S")=

DISYS=19

DIUPRITE=0

DIVAL(0)=1

DIVAL(1)=IX

DIX=B

DIX(1)=

DIX(1,"FIELD")=.01

DIX(1,"FILE")=14.7

DIX(1,"GET")=DIVAL=$P(DI0NODE,U,1)

DIX(1,"LENGTH")=30

DIX(1,"MORE?")=0

DIX(1,"PROMPT")=BOX-VOLUME PAIR

DIX(1,"ROOT")=^%ZIS(14.7,DINDEX)

DIX(1,"TYPE")=F

DIX(1,"USE")=0

DIX(1,"WAY")=1

DIX(2)=0

DIX(2,"ROOT")=^%ZIS(14.7,DINDEX,DINDEX(1))

DIX(2,"WAY")=1

DIX("#")=1

DIX("AT")=1

DIX("FLIST")=^.01^

DIX("FLISTD")=^.01^

DIX("IXTYPE")=R

DIX("START")=B

DIX("WAY")=1

DIY=99

DIZ=21

DT=3120827

DTIME=9600

DUZ=168

DUZ(0)=@

DUZ(1)=

DUZ(2)=69

DUZ("AG")=O

DUZ("AUTO")=1

DUZ("BUF")=1

DUZ("LANG")=1

DZ=?

IO=/dev/pts/4

IO(0)=/dev/pts/4

IO(1,"/dev/pts/4")=

IO("ERROR")=

IO("HOME")=50^/dev/pts/4

IO("IP")=192.168.3.161

IO("ZIO")=/dev/pts/4

IOBS=$C(8)

IOF=#,$C(27,91,50,74,27,91,72)

IOM=80

ION=TELNET

IOS=50

IOSL=24

IOST=C-VT100

IOST(0)=9

IOT=VTRM

IOXY=W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)

U=^

X=

XMDUZ=168

XQCH=SITE

XQDIC=218

XQJMP=0

XQPSM=P10974

XQSV=218^10974^XUTM PARAMETER EDIT^Edit Taskman Parameters^^M^^^^^^^^^^

XQT=E

XQUSER=KEVIN S TOPPENBERG

XQV=

XQVOL=EHR

XQW=29

XQXFLG=1^0

XQXFLG("GUI")=^

XQY=225

XQY0=XUTM BVPAIR^Site Parameters Edit^^E^^^^^^^^

XQZ=DIC,DIC(0),DIC("A"),DIC("B"),DIC("S"),DIC("W"),D

Y=0

^XUTL("XQ",$J,0)=3120827.222528

^XUTL("XQ",$J,1)=10974P10974^TMG ADAM^Adam^^M^168^^^^^^^212^y

^XUTL("XQ",$J,2)=9P10974^EVE^Systems Manager Menu^^M^^^^^^^^^n^1^^^

^XUTL("XQ",$J,3)=200P10974^XUTM MGR^Taskman Management^^M^^^^^^^^^^1^^

^XUTL("XQ",$J,4)=207P10974^XUTM UTIL^Taskman Management Utilities^^M^^^^^^^^^^

^XUTL("XQ",$J,5)=218P10974^XUTM PARAMETER EDIT^Edit Taskman Parameters^^M^^^^^^^

^^^

^XUTL("XQ",$J,6)=225P10974^XUTM BVPAIR^Site Parameters Edit^^E^^^^^^^^

^XUTL("XQ",$J,"DUZ")=168

^XUTL("XQ",$J,"DUZ(0)")=@

^XUTL("XQ",$J,"DUZ(1)")=

^XUTL("XQ",$J,"DUZ(2)")=69

^XUTL("XQ",$J,"DUZ(AG)")=O

^XUTL("XQ",$J,"DUZ(AUTO)")=1

^XUTL("XQ",$J,"DUZ(BUF)")=1

^XUTL("XQ",$J,"DUZ(LANG)")=1

^XUTL("XQ",$J,"IO")=/dev/pts/4

^XUTL("XQ",$J,"IO(""IP"")")=192.168.3.161

^XUTL("XQ",$J,"IOBS")=$C(8)

^XUTL("XQ",$J,"IOF")=#,$C(27,91,50,74,27,91,72)

^XUTL("XQ",$J,"IOM")=80

^XUTL("XQ",$J,"ION")=TELNET

^XUTL("XQ",$J,"IOPAR")=

^XUTL("XQ",$J,"IOS")=50

^XUTL("XQ",$J,"IOSL")=24

^XUTL("XQ",$J,"IOST")=C-VT100

^XUTL("XQ",$J,"IOST(0)")=9

^XUTL("XQ",$J,"IOT")=VTRM

^XUTL("XQ",$J,"IOUPAR")=

^XUTL("XQ",$J,"IOXY")=W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)

^XUTL("XQ",$J,"MIXED OS")=1

^XUTL("XQ",$J,"T")=6

^XUTL("XQ",$J,"XQM")=10974

^XUTL("XQ",$J,"XQVOL")=EHR

^XUTL("XQ",$J,"XQW")=

$ZE= 10+1^DICQ1, Undefined local variable: DO,150373850,-%GTM-E-UNDEF

I DZ?1."?" S DST=" " D DS^DIEQ S DST=$$EZBLD^DIALOG(8069,$P(DO,U)) D DS^DIEQ D:

DZ="?" HP

Last Global Ref: ^TMP("DIERR",22579)

Any help is always appreciated.

Kevin

Nancy Anthracite

unread,

Aug 27, 2012, 10:43:34 PM8/27/12

to hard...@googlegroups.com, Kevin Toppenberg

Try S DUZ=168 D ^XUP and then dropping back and running it. I suspect you
will have the same problem, but just to check the usual things I fowl up to
get that out of the way ....
--
Nancy Anthracite

> ,Z1503 73850

Sam Habiel

unread,

Aug 27, 2012, 11:50:05 PM8/27/12

to hard...@googlegroups.com, Kevin Toppenberg

Run ^DINIT. Make sure that you pick either MSC Fileman or regular Fileman, not a combination (i.e. put the whole set in the r directory). I think that's the issue: you are running some old routines with new data structures or the converse.

Sam

--
http://groups.google.com/group/Hardhats
To unsubscribe, send email to Hardhats+u...@googlegroups.com

Kevin Toppenberg

unread,

Aug 28, 2012, 6:59:46 AM8/28/12

to hard...@googlegroups.com, Kevin Toppenberg, nanth...@earthlink.net

Nancy,

No change.

Kevin

ASTRON>set DUZ=168

ASTRON>do ^XUP

Setting up programmer environment
This is a PRODUCTION account.

Terminal Type set to: C-VT100

Select OPTION NAME:

ASTRON>do P^DI

MSC FileMan 22.1036

Select OPTION: 1 ENTER OR EDIT FILE ENTRIES

INPUT TO WHAT FILE: TASKMAN SITE PARAMETERS//
EDIT WHICH FIELD: ALL//

Select TASKMAN SITE PARAMETERS BOX-VOLUME PAIR: ?
Answer with TASKMAN SITE PARAMETERS BOX-VOLUME PAIR:
EHR:poweredge

ASTRON>w $ZSTATUS

150373850,10+1^DICQ1,%GTM-E-UNDEF, Undefined local variable: DO
ASTRON>

Kevin Toppenberg

unread,

Aug 28, 2012, 7:01:51 AM8/28/12

to hard...@googlegroups.com, Kevin Toppenberg

Sam,

I just ran ^DINIT. It didn't ask me if I wanted MSC or regular Fileman. But it did run through the initialization process.

But the error is acting the same. Crashes out on lookup.

Thanks

Kevin

Sam Habiel

unread,

Aug 28, 2012, 11:39:10 AM8/28/12

to hard...@googlegroups.com

Kevin, put MSC Fileman in the r directory so that you are not running a mix while patching.

Sam

Kevin Toppenberg

unread,

Aug 29, 2012, 8:49:32 PM8/29/12

to hard...@googlegroups.com

Just a followup: I did download MSC fileman from here:

http://www.hardhats.org/fileman/MSC.html

I saved all my DI* routines to a safe place.

I extracted the routines from the .zip and put them in my /r routine folder

From the mumps command line I then ran ^DINIT and walked through the process.

The error has corrected. Sam was right. Thanks!

Kevin

Reply all

Reply to author

Forward