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