より完全な例:
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT IN_FILE ASSIGN TO IN_FILE
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS FSTAT.
FILE SECTION.
FD IN_FILE
VALUE OF ID IS IN_FILE_NAME.
01 IN_POST.
03 FIELDA PIC X(14).
03 FIELDB PIC X(10).
03 FIELDC PIC X(32).
03 FIELDD PIC X(03).
03 FIELDE PIC X(02).
WORKING-STORAGE SECTION.
01 IN_FILE_NAME PIC X(22).
01 FSTAT PIC XX.
PROCEDURE DIVISION.
MOVE "FILE1.DAT" to IN_FILE_NAME
OPEN INPUT IN_FILE
CLOSE IN_FILE
MOVE "FILE2.DAT" to IN_FILE_NAME
OPEN INPUT IN_FILE
CLOSE IN_FILE
MOVE "FILE3.DAT" to IN_FILE_NAME
OPEN INPUT IN_FILE
CLOSE IN_FILE
STOP RUN.
これはIBMのメインフレームのですか? BPXWDYNプログラムを使用した動的ファイル割り当てのソリューションがあります。 – SaggingRufus
プラットフォームにご注意ください。 IBMメインフレームは他のプラットフォームとは異なります。たとえば、PC/Unixでは、SELECT文のFILE ID句を使用してWORKING-STORAGE項目を指定できます。 IBMメインフレームでは、このシナリオでのFDに関する問題もあります。 – zarchasmpgmr
私は以前のFILE-IDのコメントで説明した方法がMicroFocusで利用できると考えています。ドキュメントにアクセスできる場合は、そのドキュメントを参照することをお勧めします。 – zarchasmpgmr