引数の説明
ファイル名 |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3143.
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 READ FILE-1 NEXT.
000018 STOP RUN.
C3143.cob (17) : JMN3143I-S NEXT指定は,乱呼出しのファイル'FILE-1'に記述できません.