COBOL 排序sort方法怎么用

时间： 发布人：PENGPINGTING
COBOL 排序sort方法怎么用

已解决问题

谷歌PENGPINGTING用户在提交了关于“迈巴赫s级COBOL 排序sort方法怎么用”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-12-05T16:09:20。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，滴水之恩,来日我当涌泉相报 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：hljjms789  

要进行排序，应排行以下三个步骤：
①建立排序中间工作文件。从输入文件中依次输入待排序的各记录，送到中间文件的记录区中，再送到磁盘问粒体层次战类材里（带）上，建立中间文件。把输入文件的记录全部转写到中间331215问答文件中去，输入文件的任务已经完成。
②对排序中间文件中的各记录，按指定的排序键和升降序要求进行排序。排序是由计算机自动完成的，用户不必过问。（排序的对象是中间文件，排好序的记录仍存放在排序器应中间文件中）
③排好序的中间文件中的个记录，可以帮输入到内存的记录区供使用，也可以输出到另一介喜序机城质上建立一个新的顺序文件。（中间文件在程序运行结束后单理注磁千会撤消）
000100IDE风略NTIFICATIONDIVISION.
000200PROG希越环镇异福执医RAM-ID.SORTTEST.
000300AUTh**OR.AA.
000400
000500ENVIRONMENTDIVISION.
000600INPUT-OUTPUT**CTION.
0007很云银院买经00FILE-CONTROL.
000800
000900期群周听独齐切夫哥**LECTINPUT-FILEASSIGNTO
001000"C:\Cob员ol\INFILE"
001100ORGANIZATIONISLINE**QUENTIAL.
001200
001300**LECTOUTPUT-FILEASSI杨超初犯秋孔贵治得导基GNTO
001400"C:\Cobol\OUTFILE"
001500ORGANIZATIONISLINE**QUENTIAL.
001600**LECTSORT-FILEASSIGNTO
001700*DISK.
游其001800"C:\Cobol\SORTFILE11111"
001900OR当山去联封损植变车继轻GANIZATION期创概这亮小犯立ISLINE**QUENTIAL.
002000
002100DATADIVISION.
00220赵们力充钟若0FILE**CT怀孙刘件祖品ION.
002300
002400FDINPUT-FILE.
00250001IN-RECORN.
00260002PRODUCT-CODEPIC9(4).
00270002RES收作继消医ULTPIC9(6).
00280002REC_FLAGPICX.
002900
003000FDOUTPUT-FILE.
00310001OUT-RECORN.
00320002PRODUCT-CODEPIC9(4).
00330002RESULTPIC9(6).
00340002REC_FLAGPICX.
003500
003312150SDSORT-FILE.
00370001SORT-RECORN.
00380002PRODUCT-CODE1PIC9(4).
00390002RESULTPIC9(6).
00400002REC_FLAGPICX.
004100
004200PROCEDUREDIVISION.
004300P01.
004400SORTSORT-FILEASCENDINGKEYPRODUCT-CODE1OFSORT-RECORN,
004500DESCENDINGKEYRESULTOFSORT-RECORN
004600
004700USINGINPUT-FILE
004800GIVINGOUTPUT-FILE,INPUT-FILE.
004900DISPLAY"SORTOVER"
005000STOPRUN.