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

2.4.17 JMN3022I-W

非整数項目@1@は,英数字項目@2@に転記できません.
送出し側のデータ項目と同じけた数を持つ符号なし外部10進項目に転記した後で,その外部10進項目を英数字項目として再定義したものを受取り側の英数字項目に転記したかのような処理をします.

引数の説明

@1@:

送出し側のデータ項目

@2@:

受取り側のデータ項目

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3022.
      000003 DATA DIVISION.
      000004 WORKING-STORAGE SECTION.
      000005 01  ID01  PIC  9V9  PACKED-DECIMAL.
      000006 01  AN01  PIC  X(4).
      000007 PROCEDURE  DIVISION.
      000008     MOVE  ID01  TO  AN01.
      000009 END PROGRAM  C3022.
    

C3022.cob (8) : JMN3022I-W 非整数項目'ID01'は,英数字項目'AN01'に転記できません.送出し側のデータ項目と同じけた数を持つ符号なし外部10進項目に転記した後で,その外部10進項目を英数字項目として再定義したものを受取り側の英数字項目に転記したかのような処理をします.