引数の説明
KEY指定項目名 |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3146.
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 WORKING-STORAGE SECTION.
000017 77 KEY-DATA PIC XX.
000018 PROCEDURE DIVISION.
000019 READ FILE-1 KEY IS KEY-DATA.
000020 STOP RUN.
C3146.cob (19) : JMN3146I-S READ文のKEY指定のデータ項目 は,主レコードキーまたは副レコードキーとして記述しなければなりません.