ページの先頭行へ戻る
NetCOBOL V11.1 メッセージ集
FUJITSU Software

2.4.13 JMN2012I-S

BINARY,COMPUTATIONAL,COMPUTATIONAL-3またはPACKED-DECIMALは,数字項目に指定しなければなりません.

例題

[P2012.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2012.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 WNUM        PIC X(10) BINARY.
000007 PROCEDURE      DIVISION.
000008 END PROGRAM    P2012.

P2012.cob 6: JMN2012I-S BINARY,COMPUTATIONAL,COMPUTATIONAL-3またはPACKED-DECIMALは,数字項目に指定しなければなりません.

詳細な説明

BINARY(USAGE IS BINARY句)・COMPUTATIONAL(USAGE IS COMPUTATIONAL句)は,データの用途が2進項目であることを示す句です.また,COMPUTATIONAL-3(USAGE IS COMPUTATIONAL-3句)・PACKED-DECIMAL(USAGE IS PACKED-DECIMAL句)は,データの用途が内部10進項目であることを示す句です.これらの句を指定するときは,データ記述項のPICTURE句の文字列は"P","S","V"および"9"だけで構成しなければなりません.

なお,BINARYとCOMPUTATIONALは同義です.COMPUTATIONALはCOMPと書いてもかまいません.また,COMPUTATIONAL-3とPACKED-DECIMALは同義です.COMPUTATIONAL-3はCOMP-3と書いてもかまいません.