Merge语句(COBOL)

Question

我正在开发一个程序，该程序需要使用merge语句将两个文件放在一起并对它们进行排序。当然，如果我没有问题，我就不会在这里。当我运行我的程序之后，我必须做一些工作来添加到输出中。当它执行该段落时，它会给出一个错误，说"Merge File out of sequences -FILE-SOR“。下面是我的代码：

   100-MAIN.
       MERGE ORDERS-FILE-SORT
             ON ASCENDING KEY REQUEST-DATE-S
             ON ASCENDING KEY CUST-NUMBER-S
             ON ASCENDING KEY CUST-ORDER-NUMBER-S
             ON ASCENDING KEY PART-NUMBER-S
             USING ORDERS-FILE-PRIOR-IN
                   ORDERS-FILE-NEW-IN
             OUTPUT PROCEDURE 200-FILE-START
       STOP RUN.


   200-FILE-START.
       OPEN OUTPUT ORDERS-FILE-OUT

       ACCEPT WS-DATE FROM DATE
       MOVE RUN-MONTH TO MONTH-1
       MOVE RUN-DAY TO DAY-1
       MOVE RUN-YEAR TO YEAR-1

       PERFORM 300-NEXT-PAGE

       PERFORM UNTIL ARE-THERE-MORE-RECORDS = 'NO '
           RETURN ORDERS-FILE-SORT
               AT END
                   MOVE 'NO ' TO ARE-THERE-MORE-RECORDS
               NOT AT END
                   PERFORM 400-PROCESS-FILE
           END-RETURN
       END-PERFORM.

       CLOSE ORDERS-FILE-OUT.

它显示的输出是标题行，似乎停在"RETURN ORDERS FILE-SORT“行。

任何帮助都会非常感谢，因为我觉得程序的其余部分会运行得很好，但我不能检查它，直到这个问题得到解决。

Answer 1

合并谓词组合了两个或多个顺序相同的文件。要让它工作，您必须已经根据一组相同的升序/降序关键字对它们进行了排序。

如果您的输入尚未按该顺序排列，则可能需要按请求日期-S、客户编号-S、客户订单编号-S和零件编号-S对每个文件进行排序