亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: COBOL數(shù)字轉(zhuǎn)字符方法，請(qǐng)教 [打印本頁]

作者: pl421 時(shí)間: 2009-10-22 12:20
標(biāo)題: COBOL數(shù)字轉(zhuǎn)字符方法，請(qǐng)教
①稅率 5.000 （6，3）
↓變換后
稅率空格＋空格＋5.000（7A）

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

作者: digitalchina 時(shí)間: 2009-10-22 12:20
01 WK-TIME8 PIC 9(0

V9(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 時(shí)間: 2009-10-22 13:27
標(biāo)題: 回復(fù) #1 pl421 的帖子
這個(gè)問題我遇到過。。。。想了半宿然后不斷的試的結(jié)果很簡(jiǎn)單。
COBOL沒有任何CONVERT語句，你把這個(gè)COP3型的MOVE到同樣的一個(gè)S9型的變量里后再M(fèi)OVE給X型的變量就可以了。
唉。。。。。浪費(fèi)我好多時(shí)間，原來是解決問題的方法錯(cuò)了。
希望能幫上你！
求助：COBOL 數(shù)字型到文字型的轉(zhuǎn)換 (22 October 2009)
http://topic.csdn.net/u/20070530 ... f-28420c89033c.html

作者: pl421 時(shí)間: 2009-10-22 13:48

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

前面的0還是去不了。

作者: pl421 時(shí)間: 2009-10-22 13:52
6666

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

作者: pl421 時(shí)間: 2009-10-23 15:08
用數(shù)組實(shí)現(xiàn)，感覺變麻煩了。

作者: 沒想到 時(shí)間: 2009-10-26 22:59
LZ,你能不能把要求寫得再詳細(xì)些？

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

COBOL中設(shè)置字符串的變量可以再定義字符左右對(duì)整的，例如：

01  W-A-STRING.
10 W-SIGN-B PIC X(1).
10 W-A-VALUE PIC X(9) JUSTIFIED  RIGHT.

作者: passthru 時(shí)間: 2009-10-27 08:00
我教你用一種非常有效的快捷方法：

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

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

我的blog：passthru.cublog.cn

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

作者: digitalchina 時(shí)間: 2009-10-27 09:13
把左對(duì)齊的數(shù)字，MOVE到右對(duì)齊的字符串里。

作者: pl421 時(shí)間: 2009-10-28 08:21
6，3得數(shù)字字段，移到6A里，前面會(huì)有0補(bǔ)位，不要0，而要空格
也就是
6，3的5.000轉(zhuǎn)移到6A里→００５０００

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

作者: pl421 時(shí)間: 2009-10-28 10:46
已給分

作者: pl421 時(shí)間: 2009-10-28 10:50

原帖由 digitalchina 于 2009-10-22 12:20 發(fā)表
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 "W ...

RPG也有類似方法嗎？好好啊。本人一直都用檢索字符的方法實(shí)現(xiàn)的。

作者: pl421 時(shí)間: 2009-10-28 11:08

原帖由 digitalchina 于 2009-10-22 12:20 發(fā)表
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 "W ...

WK-NUM0定義方法能稍微詳細(xì)講講嗎？
屬于字符變量？

歡迎光臨 Chinaunix (http://72891.cn/)