2.3.114 JMN1194I-S

GROUP句は，表示ファイルまたはFORMAT句指定の印刷ファイル以外には指定できません．

例題

[C1194.cob]
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句指定の印刷ファイル以外には指定できません．