An unadorned IF statement does have the effect of setting $T and is
perfectly legal. Not knowing what this code ios meant to accomplish, I
can't say whether or not that is the intended effect.
>I 0
>I W !,"HELLO"
>
--- "Holloway, Thomas (EDS)" <[EMAIL PROTECTED]> wrote:
> Ok, ok... that answer was too quick. Syntactically, one space will
> resolve the 'missing command' error but that ignores the whole
> meaning
> of the line of code. Is the IF a test of the result of eXecuting
> DIS("SCR") and then you want to do something with the $Piece of ^TIU
> or
> are you testing the value of that piece of ^TIU and then want to do
> something based on the result? Either way, there's something missing
> from the whole line.
>
> tjh
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of
> Holloway, Thomas (EDS)
> Sent: Thursday, March 24, 2005 11:26 AM
> To: hardhats-members@lists.sourceforge.net
> Subject: RE: [Hardhats-members] Need help debugging Fileman Search
> (DIS1.m)
>
>
>
> re: GTM>W DIS(0)
> X DIS("SCR") I $P($G(^TIU(8925,D0,13)),U,2)=73
>
> There should only be one space between the IF and the $PIECE.
>
> tjh
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of
> Kevin
> Toppenberg
> Sent: Thursday, March 24, 2005 11:20 AM
> To: Hardhats Sourceforge
> Subject: [Hardhats-members] Need help debugging Fileman Search
> (DIS1.m)
>
> I have tried to puttng the code patch for Fileman put
> up by George Timson. I could just use a fresh copy,
> but it would be better if I could learn the source of
> the error.
>
> So I have done some studying of GT.M's debugging
> tools, and I have applied them to the drop-out I am
> getting.
>
> I wonder if someone could look at this screen log and
> suggest the next step to discovering the problem:
>
>
> OUTPUT FROM WHAT FILE: TIU DOCUMENT//
>
> -A- SEARCH FOR TIU DOCUMENT FIELD: enterED BY
> -A- CONDITION: = EQUALS
> -A- EQUALS NEW PERSON: kst TOPPENBERG,KEVIN S
> kst PHYSICIAN
>
> -B- SEARCH FOR TIU DOCUMENT FIELD:
>
> IF: A// ENTERED BY EQUALS 73 (TOPPENBERG,KEVIN S)
>
> STORE RESULTS OF SEARCH IN TEMPLATE:
>
> SORT BY: NUMBER//
> START WITH NUMBER: FIRST//
> FIRST PRINT FIELD: .01 DOCUMENT TYPE
> THEN PRINT FIELD:
> Heading (S/C): TIU DOCUMENT SEARCH//
> DEVICE: home TELNET
> <---------** Notice dropout
> GTM>w $ECODE
> ,Z150372458,
> GTM>w $ZSTATUS
> 150372458,SCR+1^DIO2,%GTM-E-CMD, Command expected but
> not found
> GTM>ZPRINT SCR+1^DIO2
> X DIS(0) Q:'$T G PASS:'$D(DIS(1))
>
> GTM>W DIS(0)
> X DIS("SCR") I $P($G(^TIU(8925,D0,13)),U,2)=73
> GTM>W DIS("SCR")
> S Y=D0 I $D(^TIU(8925,Y,0)) I 1 S TIUFPRIV=1
> GTM>
>
> What would be causing the dropout?
>
> Thanks, Kevin
>
> p.s. Here is the variable table:
>
> GTM>zwrite
> %="SEARCH"
> A=1
> C=","
> D0=3
> DC=","
> DCC="^TIU(8925,"
> DD=1
> DE=0
> DHT=0
> DI=0
> DIJ=0
> DILCT=0
> DIO=0
> DIO("SCR")=1
> DIOSL=24
> DIPCRIT=0
> DIS(0)="X DIS(""SCR"") I
> $P($G(^TIU(8925,D0,13)),U,2)=73"
> DIS("SCR")="S Y=D0 I $D(^TIU(8925,Y,0)) I 1 S
> TIUFPRIV=1"
> DIS0=1
> DISEARCH=1
> DISTP=0
> DISUPNO=0
> DISYS=19
> DIWL=0
> DJ=0
> DJK=1
> DN=1
> DP=8925
> DQI=4
> DT=3050324
> DTIME=3600
> DUZ=73
> DUZ(0)="@"
> DUZ(1)=""
> DUZ(2)=69
> DUZ("AG")="O"
> DUZ("AUTO")=1
> DUZ("BUF")=1
> DUZ("LANG")=1
> DX=2
> DX(0)="I DC["","" X ^UTILITY($J,1)"
> DXS="Y"
> DY(1)="S D0=$O(^TIU(8925,D0)),DN=2,DI=0 I D0'>0 S
> DN=0,D0=-1"
> DY(2)="S DN=1 D SEARCH"
> I(0)="^TIU(8925,"
> IO="/dev/pts/2"
> IO(0)="/dev/pts/2"
> IO(1,"/dev/pts/2")=""
> IO("ERROR")=""
> IO("HOME")="38^/dev/pts/2"
> IO("ZIO")="/dev/pts/2"
> IOBS="$C(8)"
> IOF="#,$C(27,91,50,74,27,91,72)"
> IOHG=""
> IOM=80
> ION="GTM-UNIX-TELNET"
> IOPAR=""
> IOS=38
> IOSL=24
> IOST="C-VT100"
> IOST(0)=9
> IOT="VTRM"
> IOUPAR=""
> IOX=0
> IOXY="W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)"
> IOY=0
> J(0)=8925
> L=1
> P=""
> U="^"
> X=1
> XMDUZ=73
> XQCH="SEAR"
> XQDIC=1337
> XQJMP=0
> XQPSM="P10025"
> XQSV="1337^10025^DIUSER^FM VA
> Filename^^M^^^^^^^^^n^1^^"
> XQT="A"
> XQUSER="KEVIN S TOPPENBERG"
> XQVOL="VOL"
> XQXFLG="0^0^XUP"
> XQY=1330
> XQY0="DISEARCH^Search File Entries^^A^^^^^^^y^^n^1^^"
>
> I'll post my version of DIS1.m if needed, but it would
> be difficult to read with wordwrapping...
>
> Kevin
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by Microsoft Mobile & Embedded DevCon
> 2005
> Attend MEDC 2005 May 9-12 in Vegas. Learn more about the latest
> Windows
> Embedded(r) & Windows Mobile(tm) platforms, applications & content.
> Register
> by 3/29 & save $300
> http://ads.osdn.com/?ad_id=6883&alloc_id=15149&op=click
> _______________________________________________
> Hardhats-members mailing list
> Hardhats-members@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by Microsoft Mobile & Embedded DevCon
> 2005
> Attend MEDC 2005 May 9-12 in Vegas. Learn more about the latest
> Windows
> Embedded(r) & Windows Mobile(tm) platforms, applications & content.
> Register
> by 3/29 & save $300 http://ads.osdn.com/?ad_idh83&alloc_id149&op=ick
> _______________________________________________
> Hardhats-members mailing list
> Hardhats-members@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by Microsoft Mobile & Embedded DevCon
> 2005
> Attend MEDC 2005 May 9-12 in Vegas. Learn more about the latest
> Windows
> Embedded(r) & Windows Mobile(tm) platforms, applications & content.
> Register
> by 3/29 & save $300
> http://ads.osdn.com/?ad_idh83&alloc_id149&op=click
> _______________________________________________
> Hardhats-members mailing list
> Hardhats-members@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
A practical man is a man who practices the errors of his forefathers.
--Benjamin Disraeli
====
Greg Woodhouse
[EMAIL PROTECTED]
[EMAIL PROTECTED]
-------------------------------------------------------
This SF.net email is sponsored by Microsoft Mobile & Embedded DevCon 2005
Attend MEDC 2005 May 9-12 in Vegas. Learn more about the latest Windows
Embedded(r) & Windows Mobile(tm) platforms, applications & content. Register
by 3/29 & save $300 http://ads.osdn.com/?ad_id=6883&alloc_id=15149&op=click
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
