求小写的金额转成大写金额的程式～

            MOVE SPACE TO MIDDATA.
            MOVE SPACE TO MIDSTR.
            MOVE SPACE TO RSTSTR.
            MOVE SPACE TO MIDNUM.
       DETAIL-PHASE.
            MOVE 1 TO I .
            MOVE INPUTDATA TO MIDDATA.
            PERFORM COUNT-LENGTH THRU C-END UNTIL MIDDATA(I:1) = SPACE.
            IF LEN = 1
               GO TO END-DETAIL-PHASE
            END-IF.

            IF MIDDATA(1:1) = '0' AND MIDDATA = '0.00'
 
               MOVE LING TO OUTDATA
               GO TO END-DETAIL-PHASE
            END-IF.
            SUBTRACT 2 FROM LEN GIVING MIDLEN.
            MOVE MIDDATA(MIDLEN:1) TO TESTTMP.
            IF MIDDATA(MIDLEN:1) = '.'
                 SUBTRACT 3 FROM LEN GIVING ZSLEN
            ELSE
                 MOVE LEN TO ZSLEN
            END-IF.
            MOVE 1 TO J.
            MOVE YI(1:1) TO MIDSTR(J:1) .
            ADD 1 TO J .
            EVALUATE ZSLEN
               WHEN  1

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	金额 J:2 ADD2TOJ TOMIDSTR MOVEMIDDATA MOVEZHONWENTOMIDSTR