例題
[C1150.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1150. 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 32761 CHARACTERS 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 C1150.
C1150.cob 6: JMN1481I-E 'インデックスつき編成ファイル'はMSPまたはXSPシステムの固有機能です．
C1150.cob 9: JMN1481I-E 'NOMINAL KEY'はMSPまたはXSPシステムの固有機能です．
C1150.cob 10: JMN1150I-S TRACK-AREA句の整数は，32760以内でなければなりません．32760とみなします．
C1150.cob 10: JMN1478I-W このシステムでは，'TRACK-AREA'は注釈として扱います．
