CLP でのファイルは DCLF で唯ひとつだけしかオープンできないことは

良く知られていた制限であるが、V5R3M0 からは複数のファイルをオープンすることが

できるようになっているので紹介しよう。

ユニークな OPENID キーワードを指定することによって複数ファイルを扱うことが

できるようになっている。

0001.00              PGM                                                 
0002.00              DCLF       FILE(MYOBJLIB/MYDSPF) /* +               
0003.00                           OPNID のない定義も可 */                
0004.00              DCLF       FILE(QTRFIL/TOKMAS) OPNID(TOKMAS)        
0005.00                                                                  
0006.00              RCVF       OPNID(TOKMAS) /* TOKMAS の読み取り  */   
0007.00              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))    
0008.00                                                                  
0009.00              SNDRCVF    DEV(MYDSPF)                              
0010.00              ENDPGM