ibm-midrange - 无法显示排序值，值缺失

Question

所以目前我已经制作了一个 cobol 代码，它接受我的 CustPF(物理文件)，其中包含客户名称、号码、地址和信用额度等。所以我想制作一种包含在我的 CustPF 中的记录，然后完成此操作

 PERFORM UNTIL WS-ENDCHECK = 'Y'                      
    SORT SORT-CUSTPF ON ASCENDING KEY S-EMPNO         
                     ON ASCENDING KEY S-CUNAME        
    USING CUSTPF                                      
    OUTPUT PROCEDURE IS 0002-SORTING-FILE             

 MOVE 'Y' TO WS-ENDCHECK                              
 END-PERFORM.                                         

然后通过这样做来读取它

RETURN SORT-CUSTPF INTO WS-CUSTPF                     
   AT END                                             
     DISPLAY 'READING OF FILE ENDED'                  
     DISPLAY 'TOTAL DISPLAY HERE'                     
     MOVE 'Y' TO WS-END-READ                          
   NOT END                                            
     CONTINUE                                                    
   DISPLAY all the values here                                           

然后我的结果最终显示为这样

EMP NO: 000001      
CUSTOMER NAME: A    
ADDRESS: 34,ZZZZZZZ 
CREDIT LIMIT:   &   

我的信用额度为何显示为 & ？有时它只显示空白，-，一个带有斜线的圆圈。

在我的FD中它被设置为

05 WS-CUCRLM                   PIC 9(9)V99. 

在我的 SD 中它设置为

05 S-CUCRLM                   PIC 9(9)V99.

在我的 custpf 中，它的格式是这样的

CUCRLM         9P 2       TEXT('CUST CREDIT LIMIT')  

知道如何让我的信用额度正常显示数字吗？我的信用额度示例为 70000.00、8000.00、600.00 等

Answer 1

您将需要一个编辑字段来获取逗号、 float 符号和小数点等内容。

查看累积 S-CUCRLM 和 WS-CUCRLM 的代码也可能会有所帮助，但实际上，我只是认为您需要一个定义如下的字段:

05 display-curlm  pic --9,999,999.00.