실제 10 진수 값을 가상 십진수 값으로 전달하는 방법은 무엇입니까?

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,)