Re:
> When I run this program from the shell I get the following result :
>
> shell/iX> /SYS/TMP/MYPROG /SYS/PUB/CICAT
> /SYS/PUB/CICAT : 11
...
> :run MYPROG.TMP.SYS;info='/SYS/PUB/CICAT'
> /SYS/PUB/CICAT : 10
>
> That could be right of course but when I look at the open files now I get the following surprising result
>
> :listfile cicat.pub.sys,9
> ********************
> FILE: CICAT.PUB.SYS
> 2 Accessors(O:2,P:2,L:0,W:0,R:2),Share
> #S145 JOHAN,MANAGER.SYS P:2,L:0,W:0,R:2 REM : 193.78.7.115
> #P97 (MYPROG.TMP.SYS)
> ACCESS: R-excl REC#: 0 FNUM: 10
> LOCKS: none
> #P97 (MYPROG.TMP.SYS)
> ACCESS: R-excl REC#: 0 FNUM: 9

I don't know *why* this is happening, but the call to open() is behaving
differently when run under the CI vs. the shell.  From the shell, it's doing
a single call to HPFOPEN internally.

From the CI, it's following that call with a call to (essentially) dup(),
and returning the dup() output (file 11 in your example).

Why?  I don't know!

SS
Stan Sieler                                           [log in to unmask]
www.allegro.com/sieler/wanted/index.html          www.allegro.com/sieler