open 的一些疑问？

zhoumochi

在RPGLE中，要判断某个文件是否已打开， 这样行不： IF  %OPEN（TABEL1） = ‘1’ ？ 在RPG/400中怎样呢？ 还可用这样的涵数吗？
都有些什么涵数可用在PRGLE中？ 先谢了。

hartin002

这个操作应该只对定义了‘USROPN’的文件有效，
如果有定义‘USROPN’ 你的写法应该可以的。
在RPG中用到的FILE在程序初始化的时候就被打开了。
RPGLE中可以用的函数有很多，可以到电子文档中查，这里没法一个一个写啊

zyzng

You can get the file status from INFDS in RPG/400

zhoumochi

楼上的能否再说多一点点， 我看我们这边的程序好多都是用CL来处理MESSAGE的， 另外我还想问以下， 在RPG（*NETRY里面）中定义了一个数字类型变量（P的那种），当我调试的时候怎样传参数进去？

tom9030

搜索一下aeiou的帖子吧，她有一篇传参数的总结

zyzng

Contents of the File Feedback Information Available in the File Information Data Structure (INFDS)
From(Positions) To(Positions) Format Length Information
1                        8                   Char    8 File name (same as subfield location *FILE).
9                        9                   Char    1 Open indication (1 = open).