NetCOBOL for .NET V7.0 メッセージ集

2.4.127 JMN3191I-S

INSPECT文にREPLACING指定を記述する場合，置換文字と被置換文字の項目長は，同じでなければなりません．

例

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID. C3191.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006   77 ID1 PIC X(20).
      000007 PROCEDURE  DIVISION.
      000008     INSPECT ID1 REPLACING ALL "0" BY "11".
      000009 END PROGRAM C3191.
    

C3191.cob (8) : JMN3191I-S INSPECT文にREPLACING指定を記述する場合，置換文字と被置換文字の項目長は，同じでなければなりません．