引数の説明
'OPEN','CLOSE' |
ファイル名 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3202. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001. 000007 SELECT FILE-2 ASSIGN TO SYS002. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD FILE-1. 000011 01 REC-1 PIC X(80). 000012 FD FILE-2. 000013 01 REC-2 PIC X(80). 000014 PROCEDURE DIVISION. 000015 OPEN INPUT FILE-1 FILE-2 000016 OUTPUT FILE-1. 000017 STOP RUN.
C3202.cob (16) : JMN3202I-S OPEN文に,一つのファイル'FILE-1'を重複して指定することはできません.最初の指定だけが受け入れられます.