如何转换字母数字并将其用于计算? [英] How can I convert an alphanumeric and use it for calculation?

问题描述

我将读取一个包含一些字符串的顺序文件，例如"79.85"，"1000"，"212.34".

I will read a sequential file which include some string such as "79.85", "1000", "212.34".

我想将字母数字转换为00000.00格式的数字吗?

I want to convert the alphanumeric into number in this format 00000.00 ?

我需要将这些数字加起来并将其移动到格式为0000000.00的字段中.

I will need to add up these numbers and move it to a field in the format 0000000.00 .

我尝试过:

01 WS_AMOUNT_TXT                                PIC X(8).
01 WS_AMOUNT                                    PIC 9(5).9(2).

MOVE WS_AMOUNT_TXT(1:8) TO WS_AMOUNT(1:8).

我得到的是意外的，字符串是一样的.它左对齐，并且不显示任何前导零.

What I got is unexpected, the string is just as same. It is left align and no leading zero display.

如何使其正确对齐并具有前导零?

How can I made it right align and have leading zero?

我尝试了NealB的建议，但不幸的是失败了:

01 WS_AMOUNT_NUM                                PIC 9(5)V9(2).
01 WS_AMOUNT_DISPLAY                            PIC 9(5).9(2).
01 WS_AMOUNT_TXT                                PIC X(8).


        DISPLAY WS_AMOUNT_TXT

        COMPUTE WS_AMOUNT_NUM = FUNCTION NUMVAL (WS_AMOUNT_TXT)
        MOVE WS_AMOUNT_NUM TO WS_AMOUNT_DISPLAY

79.85<<这是我致电DISPLAY WS_AMOUNT_TXT时显示的内容然后崩溃了.

79.85 << this is what was displayed when I called DISPLAY WS_AMOUNT_TXT AND THEN IT CRASHED.

％COB-F-NUMVALARGINV，NUMVAL或NUMVAL-C参数无效％TRACE-F-TRACEBACK，之后是符号堆栈转储图像模块常规线型PC PC ABS PCDEC $ COBRTL 0 000000000001F2B8 000000007C2F72B8DEC $ COBRTL 0 0000000000014764 000000007C2EC764DEC $ COBRTL 0 0000000000014C44 000000007C2ECC44DAILY_SPLIT_REFUND_ADJ DAILY_SPLIT_REFUND_ADJ DAILY_SPLIT_REFUND_ADJ121 00000000000003C4 00000000000303C4DAILY_SPLIT_REFUND_ADJ 0 00000000000313A0 00000000000313A00 FFFFFFFF80271EF4 FFFFFFFF80271EF4

%COB-F-NUMVALARGINV, NUMVAL or NUMVAL-C argument invalid %TRACE-F-TRACEBACK, symbolic stack dump follows image module routine line rel PC abs PC DEC$COBRTL 0 000000000001F2B8 000000007C2F72B8 DEC$COBRTL 0 0000000000014764 000000007C2EC764 DEC$COBRTL 0 0000000000014C44 000000007C2ECC44 DAILY_SPLIT_REFUND_ADJ DAILY_SPLIT_REFUND_ADJ DAILY_SPLIT_REFUND_ADJ 121 00000000000003C4 00000000000303C4 DAILY_SPLIT_REFUND_ADJ 0 00000000000313A0 00000000000313A0 0 FFFFFFFF80271EF4 FFFFFFFF80271EF4

推荐答案

尝试使用内部函数

Try using the intrinsic function NUMVAL to do the conversion. Something like...

    01 WS-AMOUNT-TEXT     PIC X(8).  
    01 WS-AMOUNT-NUM      PIC 9(5)V9(2).  
    01 WS-AMOUNT-DISPLAY  PIC 9(5).9(2).  

    COMPUTE WS-AMOUNT-NUM = FUNCTION NUMVAL (WS-AMOUNT-TEXT)  
    MOVE WS-AMOUNT-NUM TO WS-AMOUNT-DISPLAY  

NUMVAL将数字的文本表示形式转换为数字类型.在计算中使用数字数据类型: PIC 9(5)V9(2).然后使用 MOVE 将数值结果转换为带有显式小数点的可显示量.

NUMVAL converts the text representation of a number into a numeric type. Use the numeric data type: PIC 9(5)V9(2) in your calculations. Then use MOVE to convert the numeric result into a displayable amount with explicit decimal point.

注意:如果要执行大量计算，最好使用 PACKED-DECIMAL 数据类型以提高效率.

Note: If you have a lot of calculations to perform, it might be best to use a PACKED-DECIMAL data type to improve efficiency.

这篇关于如何转换字母数字并将其用于计算?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！