COBCH1178 文字定数の長さがゼロである。

.NET COBOL コード用にコンパイルする場合、長さゼロの定数を使用すると、Micro Focus 言語拡張としてフラグが付けられます。ネイティブコード用にコンパイルする場合にそのような定数を使用すると、警告メッセージ 1010 が発生し、定数は単一のスペース文字に変換されます。

解決方法：

.NET COBOL コード用にコンパイルする場合、非数値定数の長さをゼロより大きい値に変更する必要があります。長さゼロの定数を単一のスペース文字に変換しない限り、ネイティブコード用にコンパイルする場合にも同じことを行います。

例：

次の例では、MOVE 文に長さゼロの定数が含まれています。ネイティブコード用にコンパイルする場合、単一のスペース文字は X1 データ項目に移動されます。これが予期する動作でない場合は、コードを変更する必要があります。

       identification division.
       program-id. err1178.
       data division.
       working-storage section.
       01 x1 pic x(10).
       procedure division.
       p1.
           move "" to x1
           if x1 = space
               display "Pass"
           end-if
           .