引数の説明
RECORD KEYまたはALTERNATE RECORD KEY. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2158.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT IXFILE1 ASSIGN TO SYS001
000007 ORGANIZATION IS INDEXED
000008 RECORD KEY IS WRKY1
000009 FILE STATUS IS WFS1.
000010 I-O-CONTROL.
000011 DATA DIVISION.
000012 FILE SECTION.
000013 FD IXFILE1.
000014 01 IXF1REC.
000015 02 PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 WRKY1 PIC X(2).
000018 01 WFS1 PIC X(2).
000019 PROCEDURE DIVISION.
000020 END PROGRAM P2158.
P2158.cob (8) : JMN2158I-S RECORD KEY句のデータ名は,当該するファイルのレコード中に定義されていなければなりません.
詳細な説明
レコードキー(RECORD KEY句で指定する主レコードキーと,ALTERNATE RECORD KEY句で指定する副レコードキーの総称)は,これらのキーを指定したファイル名に関連するレコード記述項(レベル指示語FDの下位に従属するレコード記述項)で定義しなければなりません.