2.3.113 JMN1193I-S

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

例題

[C1193.cob]
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句は，表示ファイルまたは順ファイル以外に指定できません．