例
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 (10) : JMN1354I-W TRACK-AREA句の整数は，8の倍数でなければなりません．整数を8の倍数で切り捨てます．