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

2.5.271 JMN3434I-S

2文字以上のALL定数と数字項目または数字編集項目との比較は,@1@ COBOLの廃要素です.

埋め込みの説明

@1@ : ANSI85

例題

[C3434.cob]
000001 CLASS-ID. C3434.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004  OBJECT.
000005  DATA DIVISION.
000006  WORKING-STORAGE SECTION.
000007  PROCEDURE DIVISION.
000008    METHOD-ID. C3434-M.
000009    DATA DIVISION.
000010    WORKING-STORAGE SECTION.
000011    01 D908 PIC 9(8) VALUE 40404040.
000012    LINKAGE SECTION.
000013    PROCEDURE DIVISION.
000014      IF  ALL '40' =  D908
000015        DISPLAY "SAME"
000016      END-IF
000017    END METHOD C3434-M.
000018  END OBJECT.
000019 END CLASS C3434.

C3434.cob 14: JMN3434I-S 2文字以上のALL定数と数字項目または数字編集項目との比較は,ANSI85 COBOLの廃要素です.