例題
[P2710.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2710. 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 I-O-CONTROL. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IXFILE1. 000013 01 IXF1REC. 000014 02 WRKY1 PIC 9(2). 000015 02 PIC X(80). 000016 WORKING-STORAGE SECTION. 000017 PROCEDURE DIVISION. 000018 START IXFILE1 000019 KEY IS GREATER THAN WRKY1 000020 WITH REVERSED ORDER 000021 END PROGRAM P2710.
P2710.cob 20: JMN2710I-S 昇順指定のSTART文には,REVERSED ORDER指定は記述できません.
詳細な説明
REVERSED ORDER指定付きのSTART文が実行されると,レコードの末尾からレコードの先頭に向かって,逆順にレコードを呼び出します.このとき,KEY 指定にIS GREATER THAN/IS GREATER OR EQUAL TOが指定されている(昇順指定)と,呼び出されるレコードが存在しません.