COBOL數(shù)字轉(zhuǎn)字符方法，請教

pl421

①稅率 5.000 （6，3）
↓變換后
稅率 空格＋空格＋5.000（7A）

②稅率 0.050 （6，3）
↓變換后
稅率 空格＋空格＋0.050（7A）

digitalchina

01  WK-TIME8           PIC 9(0V9(02).
01  WK-NUM0            PIC ZZZZZZZZV99.

MOVE   3000.2  TO WK-TIME8.   
MOVE   WK-TIME8 TO  WK-NUM0.   
DISPLAY "WK-TIME8 : " WK-TIME8.
DISPLAY "WK-NUM0  : " WK-NUM0.

成功了別忘了給分我。

ziggler

這個問題我遇到過。。。。想了半宿然后不斷的試的結(jié)果很簡單。
COBOL沒有任何CONVERT語句，你把這個COP3型的MOVE到同樣的一個S9型的變量里后再MOVE給X型的變量就可以了。
唉。。。。。浪費我好多時間，原來是解決問題的方法錯了。
希望能幫上你！
求助：COBOL 數(shù)字型到文字型的轉(zhuǎn)換 (22 October 2009)
http://topic.csdn.net/u/20070530 ... f-28420c89033c.html

pl421

原帖由 ziggler 于 2009-10-22 13:27 發(fā)表
這個問題我遇到過。。。。想了半宿然后不斷的試的結(jié)果很簡單。
COBOL沒有任何CONVERT語句，你把這個COP3型的MOVE到同樣的一個S9型的變量里后再MOVE給X型的變量就可以了。
唉。。。。。浪費我好多時間，原來是 ...

前面的0還是去不了。

pl421

6666

[ 本帖最后由 pl421 于 2009-10-22 13:56 編輯 ]

pl421

用數(shù)組實現(xiàn)，感覺變麻煩了。

沒想到

LZ,你能不能把要求寫得再詳細些？

我認為用COBOL中的組合字段賦值的辦法就可以做到你想要的效果。

COBOL中設(shè)置字符串的變量可以再定義字符左右對整的，例如：
                     
01  W-A-STRING.   
   10 W-SIGN-B PIC X(1).                          
   10 W-A-VALUE PIC X(9) JUSTIFIED  RIGHT.

passthru

我教你用一種非常有效的快捷方法：

我們都知道：
1）每一種計算機語言都有它自己的特長處理之處；
2）ile環(huán)境下，個語言是可以互相調(diào)用使用的；

    rpgle對這類轉(zhuǎn)換ibm已經(jīng)做了大量的優(yōu)化編程，都可以在rpgle中直接轉(zhuǎn)換。我們可以用rpgle做個UDF，User Defined Function。UDF可以在任何一種ile語言中直接調(diào)用，即不用callx，像C語言中的function，直接調(diào)用使用。我的blog中，最近寫了一篇《RPGIV編程問題百解（33）UDF使用和編程》，樓主可以參照一下，我在文章中編程舉例，有位朋友說他的編程過程中，需要在sqlrpgle中用到日期字段數(shù)據(jù)，但是這個日期變量必須是YYMMDD格式的。我就建議他使用UDF。
    參照我的UDF例子，在rpgle程序中直接使用IBM的轉(zhuǎn)換類型的building function，就能夠非常簡單的編程為你的問題所需。

    我的blog：passthru.cublog.cn

[ 本帖最后由 passthru 于 2009-10-27 08:05 編輯 ]

digitalchina

把左對齊的數(shù)字，MOVE到右對齊的字符串里。

pl421

6，3得數(shù)字字段，移到6A里，前面會有0補位，不要0，而要空格
也就是
6，3的5.000轉(zhuǎn)移到6A里→００５０００

想要的結(jié)果僅僅是
↓
５０００