RPG

138. EXTFILE を使って動的にファイルをオープンする

EXFILE が理解できたところで、EXFILE と USROPN を組み合わせて動的に
ファイルをオープンする方法を紹介しよう。

ソースコード 
0001.00 H DATEDIT(*YMD/)                                                       
0002.00 F******** EXTFILE を使った USROPN *************************************
0003.00 FSHOHIN    IF   E           K DISK    EXTFILE(MYFILE)                  
0004.00 F                                     USROPN                           
0005.00 F**********************************************************************
0006.00 D MYFILE          S             21                                     
0007.00  /FREE                                                                 
0008.00     MYFILE = 'QTRFIL' + '/' + 'SHOHIN';                                
0009.00     OPEN   SHOHIN;                                                     
0010.00     READ   SHOHIN;                                                     
0011.00     CLOSE  SHOHIN;                                                     
0012.00     *INLR  = *ON;                                                      
0013.00  /END-FREE
【 解説 】

サンプルは読者にフリー・フォーマットの RPG にも慣れてもらえるように
意図的にフリー・フォーマットで記述している。 

MYFILE = 'QTRFIL' + '/' + 'SHOHIN';

によって、EXFILE のファイル記述を QTRFIL/SHOHIN として定義している。
コンパイルは CRTBNDRPG でコンパイルすれば十分である。