例題
[C1340.cob] 000001 @OPTIONS CONF(74,V4),LANGLVL(85) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1340. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT SORT-F ASSIGN TO SFILE. 000008 SELECT OUT-F ASSIGN TO OUTFILE. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD OUT-F. 000012 01 OUT-R PIC X(160). 000013 SD SORT-F. 000014 01 SORT-R. 000015 02 DATA-1 PIC X(80). 000016 02 KEY1 PIC 9. 000017 PROCEDURE DIVISION. 000018 SORT SORT-F ASCENDING KEY KEY1 000019 INPUT PROCEDURE A 000020 GIVING OUT-F. 000021 A. 000022 DISPLAY SORT-STATUS 000023 END PROGRAM C1340.
C1340.cob 22: JMN1340I-I (CONF)手続き部で，特殊レジスタSORT-STATUSが参照されています．
