variables - 実10進値を仮想10進値に渡す方法は？

Question

PIC 9(14).9(2)着信ファイルからデータを受け取る変数があります。それを。であるレポート変数に渡したいと思いますPIC 9(14)V9(2)。受信データの形式は変更できません。ある値を別の値に渡す方法はありますか？

Answer 1

pic 9（14）.9（2）は、基本的にPicXフィールドです。フィールドの再定義を設定するか、参照の変更を使用できます

すなわち

       03 F1                 PIC 9(14).9(2).
       03 filler redefines F1.
          05 F1-Int          pic 9(14).
          05 filler          pic X.
          05 F1-decimal      pic 9(2).

       03 F2                 PIC 9(14)V9(2).
       03 filler redefines F2.
          05 F2-Int          pic 9(14).
          05 F2-decimal      pic 9(2).

       Move F1-int          to f2-int.
       Move F1-decimal      to f2-decimal.

or    
       Move F1(1:14)        to F2(1:14).   
       Move F1(16:2)        to F2(15:2).   // Forgoten the correct format for cobol

Answer 2

こちらもご覧ください：COBOLでPIC X句を再定義して算術演算を実行する方法。これは（おそらく）同様のトピックです（入力データの形式は確認されていませんが）