例題
[P2911.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2911. 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 DATA DIVISION. 000010 FILE SECTION. 000011 FD IXFILE1. 000012 01 IXF1REC. 000013 02 WRKY1 PIC X(2). 000014 02 PIC X(80). 000015 WORKING-STORAGE SECTION. 000016 01 WDAT PIC X(2). 000017 PROCEDURE DIVISION. 000018 START IXFILE1 000019 KEY WRKY1 WDAT 000020 END PROGRAM P2911.
P2911.cob 19: JMN2911I-S 比較演算子が記述されていません.または誤っています.
詳細な説明
START文のKEY指定には,以下の比較演算子のいずれかを書かなければなりません.
IS EQUAL TO (IS =)
IS GREATER THAN (IS >)
IS NOT LESS THAN (IS NOT <)
IS GREATER THAN OR EQUAL TO (IS >=)