NetCOBOL V11.0 メッセージ集

2.3.287 JMN1506I-W

CODE句の文字定数は，2文字でなければなりません．文字定数が1文字のとき空白を補い，2文字より長いときは先頭から2文字を有効とみなします．

例題

[C1506.cob]
000001 IDENTIFICATION  DIVISION.
000002 PROGRAM-ID.     C1506.
000003 ENVIRONMENT     DIVISION.
000004 INPUT-OUTPUT    SECTION.
000005 FILE-CONTROL.
000006     SELECT IN-F ASSIGN INFILE.
000007 DATA            DIVISION.
000008 FILE            SECTION.
000009 FD  IN-F REPORT RPT-F.
000010 WORKING-STORAGE SECTION.
000011 01  A1  PIC X.
000012 01  A2  PIC X.
000013 01  A   PIC 9.
000014 REPORT          SECTION.
000015 RD  RPT-F CODE "ABC" CONTROL IS A1 A2 A.
000016 01  HEAD01 TYPE IS RH.
000017 01  CONH01 TYPE IS CONTROL HEADING A1.
000018 01  CONF01 TYPE IS CONTROL FOOTING A2.
000019 01  FOOT01 TYPE IS RF.
000020 END PROGRAM     C1506.

C1506.cob 15: JMN1506I-W CODE句の文字定数は，2文字でなければなりません．文字定数が1文字のとき空白を補い，2文字より長いときは先頭から2文字を有効とみなします．