COBOL动态打开文件

• chenwei19881109 发布于
• 1120 收藏

環境部. 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  ...