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

2.5.137 JMN3199I-S

INSPECT文内のTALLYING指定の項目を除く項目と検査対象項目のエンコードは,一致していなければなりません.

例題

000001 @OPTIONS ENCODE(UTF8,UTF16,LE)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. C3199.
000004 ENVIRONMENT DIVISION.
000005 CONFIGURATION SECTION.
000006 SPECIAL-NAMES.
000007     ALPHABET U16L FOR NATIONAL UTF16LE
000008     ALPHABET U32L FOR NATIONAL UTF32LE
000009     .
000010 DATA DIVISION.
000011 WORKING-STORAGE SECTION.
000012 77 ID1 PIC N ENCODING U16L.
000013 77 REP-CHAR PIC N ENCODING U32L.
000014 PROCEDURE DIVISION.
000015     INSPECT ID1 REPLACING CHARACTERS BY REP-CHAR.
000016 END PROGRAM C3199.

C3199.cob 15: JMN3199I-S INSPECT文内のTALLYING指定の項目を除く項目と検査対象項目のエンコードは,一致していなければなりません.