런타임시 COBOL 프로그램에서 동적으로 파일 이름을 지정할 수 있습니까?

Question

런타임시 COBOL 프로그램에서 동적으로 파일 이름을 지정할 수 있습니까?

예를 들어 파일 제어 섹션을 작성할 때 열어보고 싶은 파일의 이름을 정의 할 필요가 없습니다. 다른 파일에서 열려고하는 파일의 이름을 읽고 싶습니다. 파일 이름을 포함하고 File-COntrol에 이름을 전달할 때 열려고하는 파일을 (FD)로 정의하고 싶습니다.

플랫폼은 Micro Focus Visual Cobol 컴파일러가있는 Unix입니다.

Answer 1

더 완벽한 예 :

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.