Question

所以我正在为课堂写这个课程，我相信我做对了。但我无法测试它，因为我无法对输入记录中的某个字段执行任何操作。我需要将它添加到数组中的不同位置，但由于它使用了错误的字段，我得到“数字字段中的无效字符”错误。我的输入记录PIC条款也是正确的。输入文件已编码：

FD SALES-AMT-FILE-IN.
01 SA-SALESMAN-NUM-IN                  PIC 99.
01                                     PIC X        VALUE SPACE.
01 MONTH-NUM-IN                        PIC 9.
01                                     PIC X        VALUE SPACE.
01 SALES-AMT-IN                        PIC 9(5).

SALES-AMT-FILE-IN的布局与我多次检查并检查每条记录完全相同。我收到错误的代码部分是：

440-READ-SALES-AMT-FILE.
    MOVE 'YES' TO ARE-THERE-MORE-RECORDS

    PERFORM UNTIL ARE-THERE-MORE-RECORDS = 'NO' 
       READ SALESAMT-FILE-IN
           AT END
               MOVE 'NO' TO ARE-THERE-MORE-RECORDS
           NOT AT END
              DISPLAY SALES-AMT-IN *I coded this in to check what was in SALES-AMT-IN
              ADD SALES-AMT-IN TO A-AMT (MONTH-NUM-IN, SA-SALESMAN-NUM-IN)
       END-READ
    END-PERFORM.

输入文件的第一条记录是这样的：

30 1 17960

显示语句给我：

30 1

当我正确定义PIC时，我无法弄清楚为什么错误的数据会进入那里。任何人都可以看到我做错了什么。如果需要，我会发布整个代码。

WORKING-STORAGE SECTION.                                   
01 ARE-THERE-MORE-RECORDS        PIC X(3)   VALUE 'YES'.   
01 PAGE-CTR                      PIC 99     VALUE ZERO.    
01 NUMBER-OF-LINES               PIC 99     VALUE ZERO.    
01 QTR-NUM                       PIC 9.                    
01 NAME-SUB                      PIC 9(3)   VALUE 1.       
01 NUM-SUB                       PIC 9(3)   VALUE 1.       
01 SALESMAN-NUM                  PIC 999.                  
01 SALESMAN-TOTAL                PIC 9(6).                 

01 WS-DATE.                                                
    05 RUN-YEAR                  PIC XX.                   
    05 RUN-MONTH                 PIC XX.                   
    05 RUN-DAY                   PIC XX.                   

01 HEADING-LINE-1.                                         
    05                           PIC X(17)  VALUE SPACES.  
    05                           PIC X(35)                 
        VALUE 'SALES AMOUNTS BY SALESMAN AND MONTH'.       
    05                           PIC X(6)   VALUE SPACES.  
    05 HL-DATE.                                            
        10  MONTH-HL             PIC XX.                   
        10                       PIC X      VALUE '/'.     
        10  DAY-HL               PIC XX.                   
        10                       PIC X      VALUE '/'.     
        10  YEAR-HL              PIC XX.                   
    05                           PIC X(3)   VALUE SPACES.  
    05                           PIC X(5)   VALUE 'PAGE'.  
    05  PAGE-NUMBER-HL           PIC Z9.                   

01 HEADING-LINE-2.                                         
    05                           PIC X(29)                 
        VALUE 'NUM  NAME'.                                 
    05 THREE-MONTH-NAMES.                                  
        10 MONTH-1-HL            PIC X(11).                
        10 MONTH-2-HL            PIC X(11).                
        10 MONTH-3-HL            PIC X(11).                
    05                           PIC X(5)   VALUE 'TOTAL'. 

01 DETAIL-LINE.                                            
    05 SALESMAN-NUMBER-DL        PIC ZZZ.                  
    05                           PIC XX     VALUE SPACES.  
    05 SALESMAN-NAME-DL          PIC X(20).                
    05 MONTH-1-AMT-DL            PIC ZZZ,ZZZ.              
    05                           PIC X(4)   VALUE SPACES.  
    05 MONTH-2-AMT-DL            PIC ZZZ,ZZZ.              
    05                           PIC X(4)   VALUE SPACES.  
    05 MONTH-3-AMT-DL            PIC ZZZ,ZZZ.              
    05                           PIC XX     VALUE SPACES.  
    05 AMOUNT-TOTAL-DL           PIC Z,ZZZ,ZZZ.            

01 SALESMAN-TABLE                           VALUE ZEROS.   
    05 ENTRIES OCCURS 99 TIMES INDEXED BY X1.              
        10 T-SALESMAN-NUM        PIC 99.                   
        10 T-SALESMAN-NAME       PIC X(20).                

01 SALES-ARRAY.                                            
    05 A-SALESMAN-NUM  OCCURS 99.                          
        10 A-MONTH     OCCURS 3.                           
            15 A-AMT             PIC 9(6)   VALUE ZEROS.

Answer 1

我认为问题在于您的所有字段都定义为01级。

尝试在这样的结构中创建它。

FD SALES-AMT-FILE-IN.
01 SALES-RECORD
  02 SA-SALESMAN-NUM-IN                  PIC 99.
  02                                     PIC X        VALUE SPACE.
  02 MONTH-NUM-IN                        PIC 9.
  02                                     PIC X        VALUE SPACE.
  02 SALES-AMT-IN                        PIC 9(5).

Answer 2

SALES-AMT-FILE-IN时，您的文件说明名为READ SALESAMT-FILE-IN。看不到剩下的代码，但这看起来不正确。

Answer 3

根据您展示的所有内容，您必须拥有错误的数据。例如，您的“1”是“l”（L）或“0”是“O”。

COBOL ADD语句没有使用记录中的正确字段？

3 个答案: