> Sorry, I probably misled you in saying that ZISFGTM would work properly as
> ^%ZISF. It worked for me because I used OPEN PARAMETERS in the HFS device
> definition, thereby bypassing a problematic part. However, the following
> change to ^%ZISF (_ZISF.m) works for asking mode.
>
> Insert a line before the current HFSIOO+3 as shown below. This converts the
> external form of the mode to the internal form before quitting.
>
> HFSIOO I
> '$D(IOP),%ZTYPE="HFS",'$D(%ZIS("HFSMODE")),'$P(^%ZIS(1,%E,0),"^",4),%ZISOPAR="",$D(^%ZIS(1,%E,1)),$P(^(1),"^",6)
>
> W ?45,"INPUT/OUTPUT OPERATION: R//"
>
> Q:'$T D SBR^%ZIS1 I $D(DTOUT)!$D(DFOUT)!$D(DUOUT) S POP=1 Q
>
> D HOPT:%X="?"!'$$CHECK(%X),HOPT1:%X="??" G HFSIOO:%X="?"!'$$CHECK(%X)
>
> S:%X]"" %ZISOPAR=$$MODE(%X) Q
>
>
> The last line above beginning S:%X]"" is new. After inserting this line,
> remove the old object routine _ZISF.o and relink, etc. Here is my test of
> the above.
OK - doing this and setting
OPEN PARAMETERS:(NEWVERSION:VARIABLE:NOREADONLY) or NEWVERSION works,
writing out the file.
--
Ismet B. Kursunoglu, MD, FCCP
Medical Director
Alaska Clinic, LLC
3750 E. Country Field Circle, STE B
Wasilla, Alaska 99654-6659
[EMAIL PROTECTED]
voice (907)357-7240
-------------------------------------------------------------------------
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
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
