輸出數值時無負號、千分號、小數位

需求：下載成檔案時無負號，台幣無小數位，不顯示千分號
方法：
"消.00 負號,千分號
DATA B TYPE CHAR20.
DATA BA TYPE P DECIMALS 2 VALUE -123456.
WRITE:/,'原值:',BA.
WRITE '123456' TO B no-SIGN NO-GROUPING DECIMALS 0.
WRITE:/,'轉換:',B.

輸出：
原值:       123,456.00-
轉換: 123456
輸出：