環境部.
SELECT I-FILE ASSIGN TO WK_FILENAME.
...
DATA DIVISION.
FILE SECTION.
FD I-FILE.
01 INP-REC.
03 PIC X(1024).
...
WORKING-STORAGE SECTION.
01 WK_FILENAME PIC X(256).
...
手続き部.
MOVE "../IN.dat" TO WK_FILENAME.
OPEN INPUT I-FILE.