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