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

2.4.243 JMN3433I-S

2文字以上のALL定数の数字項目および数字編集項目への転記は,@1@ COBOLの廃要素です.

引数の説明

@1@:

ANSI85

      000001 CLASS-ID. C3433.
      000002 ENVIRONMENT DIVISION.
      000003 CONFIGURATION SECTION.
      000004 REPOSITORY.
      000005*
      000006  OBJECT.
      000007  DATA DIVISION.
      000008  WORKING-STORAGE SECTION.
      000009  PROCEDURE DIVISION.
      000010    METHOD-ID. C3433-M.
      000011    DATA DIVISION.
      000012    WORKING-STORAGE SECTION.
      000013    01 D908 PIC 9(8).
      000014    LINKAGE SECTION.
      000015    PROCEDURE DIVISION.
      000016      MOVE  ALL '40'  TO  D908.
      000017    END METHOD C3433-M.
      000018  END OBJECT.
      000019 END CLASS C3433.
    

C3433.cob (16) : JMN3433I-S 2文字以上のALL定数の数字項目および数字編集項目への転記は,ANSI85 COBOLの廃要素です.