合并语句(COBOL)

合并语句(COBOL),cobol,Cobol,我正在开发一个程序,需要使用merge语句将两个文件放在一起并对它们进行排序。当然,如果我没有问题,我就不会在这里。当我运行我的程序时,我必须在之后做一些工作来添加到输出中。当它执行该段落时,会出现一个错误,上面写着“按顺序合并文件ORDER-File-SOR”。这是我的密码: 100-MAIN. MERGE ORDERS-FILE-SORT ON ASCENDING KEY REQUEST-DATE-S ON ASCEND

我正在开发一个程序,需要使用merge语句将两个文件放在一起并对它们进行排序。当然,如果我没有问题,我就不会在这里。当我运行我的程序时,我必须在之后做一些工作来添加到输出中。当它执行该段落时,会出现一个错误,上面写着“按顺序合并文件ORDER-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.
它显示的输出是标题行,并且似乎在“returnorders-FILE-SORT”行停止


如果有任何帮助,我将不胜感激,因为我觉得程序的其余部分将正常运行,但在修复之前我无法检查它。

合并动词将两个或多个顺序相同的文件组合在一起。要使其工作,您必须已经根据一组相同的升序/降序键对它们进行了排序


如果您的输入尚未按该顺序排列,则可能需要按REQUEST-DATE-S、CUST-NUMBER-S、CUST-order-NUMBER-S和PART-NUMBER-S对每个文件进行排序。

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


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

直到今天,我仍然对COBOL仍在学校教授感到惊讶:)只要COBOL是全球企业的通用语,直到今天,我仍然感到惊讶的是,COBOL仍然在学校里教授:)只要COBOL是全球企业的通用语言,教育机构就会给予一些支持。