COBCH1176 定数はデータ項目より長い

メインフレーム方言でコンパイルする場合、データ項目をより長い定数と比較すると、この警告が生成されます。

解決方法：

必要に応じて、定数またはデータ項目 (あるいはその両方) の長さを修正して再コンパイルします。

例：

次の例では、X1 データ項目は、テスト用に提供された定数文字列 ABC よりも短くなっています。X1 データ項目のサイズを増やして、ABC 定数を格納します。

      $set warning(2) vsc2
       01 x1 pic x(2).
       01 n1 pic 9(2).
           if x1 = "ABC"
               display "Possibly"
           end-if
           if n1 = 123
               display "Possibly"
           end-if