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

2.4.244 JMN3434I-S

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

引数の説明

@1@:

ANSI85

      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の廃要素です.