No, that does not work the same way, as if you set the three SV to "". Just
try. I always set SV_DDLST to 0.
original = peek_w (peek_l (sv_base+176)) : rem SV_DDLST
poke_w peek_l (sv_base+176) , 0 : rem set to zero, TK2 has no default now
ferr = fop_in (#5,fname$) : try to open_in the file
error testing here
Value back:
poke_w peek_l (sv_base+176) , original : back to the TK2 default, the
devstring is still in memory
So there is nothing changed and the old devstring location is put, where it
was before. No TK2 defaults.
Cheers...Ralf
----- Original Message -----
From: "Wolf" <w...@wlenerz.com>
To: <ql-us...@q-v-d.com>
Sent: Wednesday, June 15, 2016 6:49 AM
Subject: Re: [Ql-Users] A feature or a bug?
Hi,
I often use something like this for ftest
100 DEFine FuNction ftest2(file$)
110 LOCal dad$,ded$,prd$,a
120 dad$=DATAD$
130 ded$=DESTD$
140 prd$=PROGD$
150 DATA_USE ""
160 DEST_USE ""
170 PROG_USE ""
180 a=FTEST(file$)
190 DATA_USE dad$
200 DEST_USE ded$
210 PROG_USE prd$
220 RETurn a
230 END DEFine ftest2
240 :
HTH
Wolfgang
_______________________________________________
QL-Users Mailing List
