高手求助大侠

chenxv85112

F FILE1    UF A E             DISK    EXTFILE(C@FILE) USROPN
D C@FILE           S             22A
D C@LIB            S             10A   INZ('MYLIB')
C     *ENTRY        PLIST
C                        PARM                    V_FILE           10(变量的文件名）
C                        EVAL      C@FILE =%TRIM(C@LIB+'/'+%TRIM(V_FILE))
C
C                   OPEN      FILE1
程序可以编译，但是运行到OPEN      FILE1报错无法打开FILE1，请大侠指教！

niuhua77

先判断文件是否打开，如果已经打开，则不能执行open操作；如果没打开，则open file
if not %open（file1）
open  file1
endif

roden

有可能传入参数的值有问题

s1985lei

也可以看一下错误代码  或是看看joblog怎么说的啊

trust2001

F FILE1    UF A E             DISK    EXTFILE(C@FILE) USROPN
D C@FILE           S             22A
...
chenxv85112 发表于 2011-08-29 21:02

关键是报错的reason是什么？看看joblog先吧

passthru

21位文件名问题

lib必须10位长度，名都是大写字符；
第11位必须是'/’；
12位到21位为文件名，内容紧靠/，且都是大写字母。

代码改为：
F FILE1    UF A E             DISK    EXTFILE(C@FILE) USROPN
D C@FILE           S             21A   inz
D C@LIB            S             10A   INZ('MYLIB')
D C@obj            s              10a   inz
C     *ENTRY        PLIST
C                        PARM                    V_FILE           10(变量的文件名）
C                        eval       c@obj = %trim（V_FIlE)
C                        EVAL      C@FILE = C@LIB + '/' + C@obj
C
C                   OPEN      FILE1

s1985lei

楼上和LZ的两种方法我都试了 都可以通过啊  运行也没有问题
但是不管是哪种方法  库名和传入的文件名一定必须是大写的

passthru

LZ不能使用open打开usropn类型的extfile，估计还有一个问题，即编译信息file1与extfile定义文件的结构不一致。在这种情况下，如果编译信息，选择*lvlchk为*yes，open就会报系统msg。如果*lvlchk选择*no，对实际代码操作又没有多大意义。

coolk

具体不能打开的错误信息是什么呢？