例題
[P2566.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2566. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SRTFILE ASSIGN TO SYS003. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 SD SRTFILE. 000011 01 SRTREC. 000012 02 SRTKEY PIC X(8). 000013 02 PIC X(72). 000014 WORKING-STORAGE SECTION. 000015 01 WFS1 PIC X(2). 000016 PROCEDURE DIVISION. 000017 RETURN SRTFILE 000018 END PROGRAM P2566.
P2566.cob 17: JMN2566I-S RETURN文には，AT END指定を記述しなければなりません．AT END CONTINUEが指定されたものとみなします．
詳細な説明
RETURN文を実行すると，SORT文またはMERGE文に指定したキーの並びによって決められた次のレコードが指定したファイルから引き取られます．引き取られるレコードがなくなったときに行う処理を，AT END指定で記述します．
