Question

COBOL 排序sort方法怎么用

Answer 1

要进行排序，应排行以下三个步骤：
①建立排序中间工作文件。从输入文件中依次输入待排序的各记录，送到中间文件的记录区中，再送到磁盘（带）上，建立中间文件。把输入文件的记录全部转写到中间文件中去，输入文件的任务已经完成。
②对排序中间文件中的各记录，按指定的排序键和升降序要求进行排序。排序是由计算机自动完成的，用户不必过问。（排序的对象是中间文件，排好序的记录仍存放在排序中间文件中）
③排好序的中间文件中的个记录，可以输入到内存的记录区供使用，也可以输出到另一介质上建立一个新的顺序文件。（中间文件在程序运行结束后会撤消）
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. SORTTEST.
000300 AUTHOR. AA.
000400
000500 ENVIRONMENT DIVISION.
000600 INPUT-OUTPUT SECTION.
000700 FILE-CONTROL.
000800
000900 SELECT INPUT-FILE ASSIGN TO
001000 "C:\Cobol\INFILE"
001100 ORGANIZATION IS LINE SEQUENTIAL.
001200
001300 SELECT OUTPUT-FILE ASSIGN TO
001400 "C:\Cobol\OUTFILE"
001500 ORGANIZATION IS LINE SEQUENTIAL.
001600 SELECT SORT-FILE ASSIGN TO
001700* DISK.
001800 "C:\Cobol\SORTFILE11111"
001900 ORGANIZATION IS LINE SEQUENTIAL.
002000
002100 DATA DIVISION.
002200 FILE SECTION.
002300
002400 FD INPUT-FILE.
002500 01 IN-RECORN.
002600 02 PRODUCT-CODE PIC 9(4).
002700 02 RESULT PIC 9(6).
002800 02 REC_FLAG PIC X.
002900
003000 FD OUTPUT-FILE.
003100 01 OUT-RECORN.
003200 02 PRODUCT-CODE PIC 9(4).
003300 02 RESULT PIC 9(6).
003400 02 REC_FLAG PIC X.
003500
003600 SD SORT-FILE.
003700 01 SORT-RECORN.
003800 02 PRODUCT-CODE1 PIC 9(4).
003900 02 RESULT PIC 9(6).
004000 02 REC_FLAG PIC X.
004100
004200 PROCEDURE DIVISION.
004300 P01.
004400 SORT SORT-FILE ASCENDING KEY PRODUCT-CODE1 OF SORT-RECORN,
004500 DESCENDING KEY RESULT OF SORT-RECORN
004600
004700 USING INPUT-FILE
004800 GIVING OUTPUT-FILE ,INPUT-FILE.
004900 DISPLAY "SORT OVER"
005000 STOP RUN.

Answer 2

如果你是说式样书里面的BREAK的话一般是说KEY BREAK，就是有些处理在某几个字段组成的KEY是相同的情况下面不重复做
比方说key是班级+学号 那么如果想把该学生的学籍信息补充完整，而该学生各科成绩分别为一条记录的话，就可以先按班级学号SORT（排序）（如果是文件的话），然后就可以通过判断前一条数据的KEY和新读入的一条数据的KEY是否一致来做处理，一致的话就是没有BREAK，当然不需要去重复读取学生学籍的信息了，只需要将前一条取出来的学籍信息写出去即可，不一致的话就是BREAK了，那就去取得新的一条数据对应的学籍信息，保存下来，将当前数据写出去，读下一条，做循环就可以了
另外,团IDC网上有许多产品团购,便宜有口碑