例
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 (10) : JMN1150I-S TRACK-AREA句の整数は，32760以内でなければなりません．32760とみなします．