如何將實際小數值轉換爲虛擬小數值？

Question

我有一個PIC 9(14).9(2)變量，它接收來自傳入文件的數據。我希望將它傳遞給一個PIC 9(14)V9(2)的報表變量。傳入數據的格式不能更改。有什麼辦法可以將一個值傳遞給另一個值嗎？

Answer 1

圖片9（14）.9（2）實質上是一個Pic X字段。你可以建立重新定義的字段 或使用引用修改

即

 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

你也可以看這裏：How to REDEFINE and perform arithmetic on a PIC X clause in COBOL，這是（可能）類似主題（雖然輸入數據的格式是從未得到證實）