COBOL动态打开文件

2019-04-15 13:40发布

站内文章 / PIC单片机
14470 0 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  "../IN.dat"  TO  WK_FILENAME. OPEN  INPUT  I-FILE.

热门文章