关于EXTFILE的用法

xjromance

第一种情况
FTSTFILE   IF    E         DISK      EXTFILE(FILENAME)  USROPN
其中FILENAME为变量。TSTFILE 只是一个名字是一个不存在的文件。

另外一种情况
FTSTFILE   IF    E    K   DISK      EXTFILE(FILENAME)  USROPN
其中FILENAME为变量。TSTFILE 是一个存在的文件。这样到时可以用KEY 但是 程序一开始就会报错levelcheck，难道需要把TSTFILE的levelcheck定义为*NO?

EXTFILE  在F行定义关键字后 怎么能用KEY来定位和读取文件呢?   

pacman2000

如果只是借用PF一个名字的话，加上TEMPLATE关键字试试？

franliu

你编译的时候 TSTFILE 和 FILENAME 必须完全一致（就像拷贝过来的一样）

这个和 OVRDBF 命令一样，不是说你可以随时重定向到一个记录，字段名完全不同的文件上去。

passthru

EXTNAME(FILENAME)表示EXTNAME(文件名：{记录名}：{*key}/{*input}/{*output}/{*both})
F表中引用K与extneme中的*key要一致。否则，就会报levelcheck。

楼主在F表特地定义不同名的内部表名和外部表名，TSTFILE其实是不存在的。但是，我看不出来，这样做有什么用途？

我一般都是把extname放在D表中定义，代码如下。这样做把内部的数据处理与外部的表结合来了了。

fFILENAME   IF  A  E         DISK        USROPN
.....
dTSTFILE         e  Ds                   EXTNAME(FILENAME)
dRec_TSTFILE      Ds                   LikeRec(FILENAME_Rec:*output)

/free
    ......
    //从外部输入数据，比如，Plist的输入参数项，或pi输入的参数项，输入到数据结构TSTFILE
    //再接着做：
    Rec_TSTFILE = TSTFILE ;
    Write  TSTFILE  Rec_TSTFILE ;
    //这里是OS400 V6R1以上版本的写法；V5R4版本以下的写法相反：
    // Write  Rec_TSTFILE  FILENAME ;
   .....
/end-free
注意，这里F表的A与nextname中的参数值*output要一致

key，或*key的表现形式和用法有多种，这里不再一一述说。

xjromance

不好意思，我写错了，应该是EXTFILE的用法，怎么使用key回复 4# passthru