진행 4GL : 임시 테이블 선언을 통해 소수점 서식 지정

Question

나는 이것과 비슷한 임시 테이블 선언과 ​​함께 가장 가까운 백 번째로 반올림하도록 소수점을 포맷하려고합니다.

DEFINE TEMP-TABLE foo 
FIELD random-decimal AS DECIMAL FORMAT "->>>,>>>,>>>.99". 

최종 결과는이를 통해 I 출력에 다음을 사용하고 보고서에 표시됩니다

EXPORT STREAM sStream DELIMITER ',' foo. 

이 내가 그것을하려는거야으로 작동하지 않습니다. 나는 아직도 이와 같은 값을받습니다 : 0.000073.

누구든지 내가 뭘 잘못하고 있는지 통찰력이 있습니까? 이 특정 사례의 온라인 사용자를 위해 아무것도 찾을 수 없었습니다.

Answer 1

FORMAT는 저장소에 영향을 미치지 않습니다. 기본 표시 및 입력 목적을위한 "힌트"일뿐입니다.

은 당신이 원하는 것은 "소수"필드 속성입니다 :

DEFINE TEMP-TABLE foo 
FIELD random-decimal AS DECIMAL decimals 2 FORMAT "->>>,>>>,>>>.99". 

create foo. 
random-decimal = 1.12345. 

display random-decimal format ">.9999".