The June 2006 FOIA VistA for GT.M. has a disconnect between EVAL^%ZTLOAD1
and ORDER^%ZOSV that causes ZTSAVE("NMSP*") to fail.
Here is EVAL+2^%ZTLOAD1 -
I ZT1["*",$P(ZT1,"*")'["(" S X="^%ZTSK(ZTSK,.3,",Y=ZT1 D ORDER^%ZOSV Q
Here is ORDER+2^%ZOSV
I $D(X1("*"))#2 D DOLRO Q
The problem appears to be that ORDER^%ZOSV is the VAX DSM version and
^%ZTLOAD1 is calling the non-VAX DSM version, based on checking
^%ZOSF("OS"). This problem can be corrected by replacing ORDER^%ZOSV with
the version that ^%ZTLOAD1 expects -
ORDER ;SAVE PART OF SYMBOL TABLE IN LOCATION SPECIFIED BY X
S (Y,Y1)=$P(Y,"*",1) I $D(@Y)=0 F %=0:0 S Y=$O(@Y) Q:Y=""!(Y[Y1)
Q:Y="" S %=$D(@Y) S:%#2 @(X_"Y)="_Y) I %>9 S %X=Y_"(",%Y=X_"Y," D %XY^%RCR
F %=0:0 S Y=$O(@Y) Q:Y=""!(Y'[Y1) S %=$D(@Y) S:%#2 @(X_"Y)="_Y) I %>9 S
%X=Y_"(",%Y=X_"Y," D %XY^%RCR
K %,X,Y,Y1
Q
Lloyd
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
