2.4.153 JMN3264I-S

@1@文のGIVING指定に索引ファイル@2@が指定されたとき，KEY指定に記述されたデータ名@3@は，そのファイルの主レコードキーに関連付けられるデータ項目とそのレコード中で同じ文字位置を占めなければなりません．

引数の説明

@1@:

SORT/MERGE

@2@:

ファイル名

@3@:

データ名

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3264.
      000003 ENVIRONMENT DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT SD-FILE   ASSIGN TO SYS001-DA-S-SYS001.
      000007     SELECT US-FILE   ASSIGN TO SYS002-DA-S-SYS002.
      000008     SELECT GV-FILE   ASSIGN TO SYS003
      000009            ORGANIZATION         IS INDEXED
      000010            RECORD           KEY IS RKEY-1
      000011            ALTERNATE RECORD KEY IS AKEY-1
      000012            ALTERNATE RECORD KEY IS AKEY-2
      000013            ALTERNATE RECORD KEY IS AKEY-3
      000014            ACCESS    MODE       IS SEQUENTIAL.
      000015 DATA DIVISION.
      000016 FILE SECTION.
      000017 FD   US-FILE.
      000018  01 US-REC1    PIC X(80).
      000019 FD   GV-FILE.
      000020  01 GV-REC1.
      000021     02 RKEY-1     PIC XX.
      000022     02 AKEY-1     PIC XX.
      000023     02 AKEY-2     PIC XX.
      000024     02 AKEY-3     PIC XX.
      000025     02 FILLER     PIC X(72).
      000026 SD   SD-FILE.
      000027  01 SD-REC1.
      000028     02 SD-KEY1    PIC XX.
      000029     02 SD-KEY2    PIC XX.
      000030     02 FILLER     PIC X(74).
      000031     02 SD-KEY3    PIC XX.
      000032 PROCEDURE DIVISION.
      000033     SORT SD-FILE ASCENDING KEY SD-KEY3
      000034          USING   US-FILE
      000035          GIVING  GV-FILE.
      000036     STOP RUN.

C3264.cob (33) : JMN3264I-S SORT文のGIVING指定に索引ファイル'GV-FILE'が指定されたとき，KEY指定に記述されたデータ名'SD-KEY3'は，そのファイルの主レコードキーに関連付けられるデータ項目とそのレコード中で同じ文字位置を占めなければなりません．