例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3132.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT FILE-1 ASSIGN TO SYS001
000007 ORGANIZATION IS INDEXED
000008 ACCESS MODE IS RANDOM
000009 RECORD KEY IS KEY-REC.
000010 DATA DIVISION.
000011 FILE SECTION.
000012 FD FILE-1.
000013 01 REC-1.
000014 02 KEY-REC PIC XX.
000015 02 FILLER PIC X(78).
000016 PROCEDURE DIVISION.
000017 WRITE REC-1 AFTER ADVANCING 1.
000018 STOP RUN.
C3132.cob (17) : JMN3132I-S ADVANCING指定は，順ファイル以外には記述できません．