2.4.483 JMN2827I-S

@1@句は，表示ファイル(編成GS)に指定できません．

埋め込みの説明

@1@ : BLOCK CONTAINS，LABEL RECORD，FORMATTED RECORDまたはCONTROL RECORD．

例題

[P2827.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2827.
000003 ENVIRONMENT    DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT PRFILE1 ASSIGN TO GS-SYS001
000007       SYMBOLIC DESTINATION IS "DSP"
000008       FORMAT               IS WFMT.
000009 DATA           DIVISION.
000010 FILE            SECTION.
000011 FD PRFILE1
000012      CONTROL RECORD IS CTL.
000013 01 PRF1REC.
000014   02           PIC X(80).
000015 01 CTLREC      PIC X(80).
000016 WORKING-STORAGE SECTION.
000017 01 WFMT        PIC X(8).
000018 PROCEDURE      DIVISION.
000019 END PROGRAM    P2827.

P2827.cob 12: JMN2827I-S CONTROL RECORD句は，表示ファイル(編成GS)に指定できません．