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 でコンパイルすれば十分である。