例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1193.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT MSGFILE ASSIGN TO INFILE
000007 ORGANIZATION IS INDEXED
000008 RECORD KEY IS INFNUM
000009 FORMAT IS WINF
000010 .
000011 DATA DIVISION.
000012 FILE SECTION.
000013 FD MSGFILE.
000014 01 INFDAT.
000015 02 INFNUM PIC S9(8) BINARY.
000016 02 INFMSG PIC X(50).
000017 WORKING-STORAGE SECTION.
000018 01 WINF PIC X(8).
000019 END PROGRAM C1193.
C1193.cob (9) : JMN1193I-S FORMAT句は，表示ファイルまたは順ファイル以外に指定できません．