引数の説明
呼出し法 |
編成種別 |
ファイル名 |
'INPUT','OUTPUT','I-O','EXTEND' |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3200. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 PROCEDURE DIVISION. 000017 OPEN EXTEND FILE-1. 000018 STOP RUN.
C3200.cob (17) : JMN3200I-S 乱呼出しの索引ファイル'FILE-1'は,OPEN文のEXTEND指定に記述できません.