> 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 Hardhats-members@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/hardhats-members