關(guān)于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行定義關(guān)鍵字后 怎么能用KEY來定位和讀取文件呢?   

pacman2000

如果只是借用PF一個名字的話，加上TEMPLATE關(guān)鍵字試試？

franliu

你編譯的時候 TSTFILE 和 FILENAME 必須完全一致（就像拷貝過來的一樣）

這個和 OVRDBF 命令一樣，不是說你可以隨時重定向到一個記錄，字段名完全不同的文件上去。

passthru

EXTNAME(FILENAME)表示EXTNAME(文件名：{記錄名}：{*key}/{*input}/{*output}/{*both})
F表中引用K與extneme中的*key要一致。否則，就會報levelcheck。

樓主在F表特地定義不同名的內(nèi)部表名和外部表名，TSTFILE其實是不存在的。但是，我看不出來，這樣做有什么用途？

我一般都是把extname放在D表中定義，代碼如下。這樣做把內(nèi)部的數(shù)據(jù)處理與外部的表結(jié)合來了了。

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

/free
    ......
    //從外部輸入數(shù)據(jù)，比如，Plist的輸入?yún)��?shù)項，或pi輸入的參數(shù)項，輸入到數(shù)據(jù)結(jié)構(gòu)TSTFILE
    //再接著做：
    Rec_TSTFILE = TSTFILE ;
    Write  TSTFILE  Rec_TSTFILE ;
    //這里是OS400 V6R1以上版本的寫法；V5R4版本以下的寫法相反：
    // Write  Rec_TSTFILE  FILENAME ;
   .....
/end-free
注意，這里F表的A與nextname中的參數(shù)值*output要一致

key，或*key的表現(xiàn)形式和用法有多種，這里不再一一述說。

xjromance

不好意思，我寫錯了，應(yīng)該是EXTFILE的用法，怎么使用key回復(fù) 4# passthru