引数の説明
ファイル名 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3117. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1 LINAGE IS 50 LINES. 000010 01 REC-1 PIC X(80). 000011 PROCEDURE DIVISION. 000012 OPEN EXTEND FILE-1. 000013 STOP RUN.
C3117.cob (12) : JMN3117I-S LINAGE句指定のあるファイル'FILE-1'は,OPEN文のEXTEND指定に記述できません.