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

2.4.108 JMN3157I-S

INITIALIZE文のREPLACING指定に有効となるデータ項目が一つもありません.

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID. C3157.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006   01 A PIC X(10).
      000007   01 B PIC 99 VALUE 10.
      000008 PROCEDURE  DIVISION.
      000009   P-START.
      000010     INITIALIZE A REPLACING ALPHABETIC BY B.
      000011     STOP RUN.
    

C3157.cob (10) : JMN3157I-S INITIALIZE文のREPLACING指定に有効となるデータ項目が一つもありません.