Following is a portion of the list of symbols and
their values
$DEVICE=
$ECODE=,M13, $ESTACK=9 $ETRAP=D ^%ZTER,BYE^XUSCLEAN,XUTL^XUSCLEAN HALT $QUIT=0 $STACK=9 $STACK(000)= $STACK(000,"ECODE")= $STACK(000,"MCODE")= U XWBTDEV D MAIN $STACK(000,"PLACE")=RESTART+3^XWBTCPC +2 $STACK(001)=DO $STACK(001,"ECODE")= $STACK(001,"MCODE")= F D Q:XWBTBUF="#BYE#" $STACK(001,"PLACE")=MAIN+2^XWBTCPC +2 $STACK(002)=DO $STACK(002,"ECODE")= $STACK(002,"MCODE")= . IF TYPE D $STACK(002,"PLACE")=MAIN+26^XWBTCPC +2 $STACK(003)=DO Enter '^' to quit listing, <RETURN> to continue...: $STACK(003,"ECODE")= $STACK(003,"MCODE")= . . D CALLP^XWBBRK(.XWBR,XWBTBUF) $STACK(003,"PLACE")=MAIN+30^XWBTCPC +1 $STACK(004)=DO $STACK(004,"ECODE")= $STACK(004,"MCODE")= IF '+ERR,(+S=0)!(+S>0) D $STACK(004,"PLACE")=CALLP+15^XWBBRK +3 $STACK(005)=DO $STACK(005,"ECODE")= $STACK(005,"MCODE")= . D CAPI^XWBBRK2(.XWBP,XWB(2,"RTAG"),XWB(2,"RNAM"),S) $STACK(005,"PLACE")=CALLP+18^XWBBRK +1 $STACK(006)=DO $STACK(006,"ECODE")= $STACK(006,"MCODE")= D @R $STACK(006,"PLACE")=CAPI+11^XWBBRK2 +1 $STACK(007)=DO $STACK(007,"ECODE")= $STACK(007,"MCODE")= I DUZ>0 S XUMSG=$$POST(1) $STACK(007,"PLACE")=VALIDAV+24^XUSRB +2 $STACK(008)=$$ Enter '^' to quit listing, <RETURN> to continue...: $STACK(008,"ECODE")= $STACK(008,"MCODE")= S XUM=$$USER^XUS1A Q:XUM>0 XUM ;User can't sign on for some reason. $STACK(008,"PLACE")=POST+4^XUSRB +1 $STACK(009)=$$ $STACK(009,"ECODE")= $STACK(009,"MCODE")= D EN^XQOR $STACK(009,"PLACE")=USX+4^XUS1A +1 $X $Y=0 0 $ZU(56,2)=F:/p4work5.0.11/vobs/system/common/src/acmd.c 2435 $ZV=Cache for Windows NT (Intel/P4) 5.0.11 (Build 5401_SU) Mon Aug 16 2004 23:30 :00 EDT %DT=T %ZT("^XUTL("XQ",$J)")= DEBUG=0 DISYS=18 DT=3051028 DTIME=3600 DUZ=61 DUZ("0")= DUZ("2")=0 ERR=0 Enter '^' to quit listing, <RETURN> to continue...:^ According to the ^TMP("XQORS",2560 global (given
below), the last option being accessed is RG EXCEPTION NOTIFIER (IEN 8884) in XU
USER SIGNON EVENT context. The entry action of this option is D
EXCEPT^RGRSUTIL.
473) ^TMP("XQORS",2560,0,"FILE") = ;DIC(19,
474) ^TMP("XQORS",2560,1,"FLG") = X^^ 475) ^TMP("XQORS",2560,1,"INP") = 476) ^TMP("XQORS",2560,1,"ITM") = 4 477) ^TMP("XQORS",2560,1,"ITM",1) = 4666;DIC(19, 478) ^TMP("XQORS",2560,1,"ITM",1,"IEN") = 2 479) ^TMP("XQORS",2560,1,"ITM",2) = 5465;DIC(19, 480) ^TMP("XQORS",2560,1,"ITM",2,"IEN") = 3 481) ^TMP("XQORS",2560,1,"ITM",3) = 8727;DIC(19, 482) ^TMP("XQORS",2560,1,"ITM",3,"IEN") = 4 483) ^TMP("XQORS",2560,1,"ITM",4) = 8884;DIC(19, 484) ^TMP("XQORS",2560,1,"ITM",4,"IEN") = 5 485) ^TMP("XQORS",2560,1,"REF") = ^DIC(19,173, 486) ^TMP("XQORS",2560,1,"TOT") = 4 487) ^TMP("XQORS",2560,1,"VPT") = 173;DIC(19, 488) ^TMP("XQORS",2560,2,"FLG") = A^^ 489) ^TMP("XQORS",2560,2,"INP") = 490) ^TMP("XQORS",2560,2,"REF") = ^DIC(19,8884, 491) ^TMP("XQORS",2560,2,"VPT") = 8884;DIC(19, I have matched these entries with other
implementations (executing CPRS perfectly). I am not able to spot
any difference. How can this be rectified?
Thanks
Usha
Make sure YOUR emails don't get lost! Download Mailinfo here |
- Re: [Hardhats-members] NOLINE error while accessing CPRS Usha
- Re: [Hardhats-members] NOLINE error while accessing ... Steven McPhelan