例題
[C1354.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1354. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO I-INFILE 000007 ACCESS MODE IS RANDOM 000008 RECORD KEY IS INFNUM 000009 NOMINAL KEY IS WINF 000010 TRACK-AREA IS 9 000011 . 000012 DATA DIVISION. 000013 FILE SECTION. 000014 FD MSGFILE. 000015 01 INFDAT. 000016 02 INFNUM PIC S9(8) BINARY. 000017 02 INFMSG PIC X(50). 000018 WORKING-STORAGE SECTION. 000019 01 WINF PIC S9(8) BINARY. 000020 END PROGRAM C1354.
C1354.cob 6: JMN1481I-E 'インデックスつき編成ファイル'はMSPまたはXSPシステムの固有機能です．
C1354.cob 9: JMN1481I-E 'NOMINAL KEY'はMSPまたはXSPシステムの固有機能です．
C1354.cob 10: JMN1354I-W TRACK-AREA句の整数は，8の倍数でなければなりません．整数を8の倍数で切り捨てます．
C1354.cob 10: JMN1478I-W このシステムでは，'TRACK-AREA'は注釈として扱います．
