使用z/OS上的DFSORT功能对文件进行排序

本示例展示了如何使用z/OS上的DFSORT功能排序一个由多个记录组成的文件。通过DFSORT支持的各种控制选项，用户可以灵活地指定排序规则，并可选择将排序结果输出到新文件或覆盖原始文件。

//SORTJOB JOB (ACCT#),’SORT FILES’,CLASS=0,MSGCLASS=X
//SORT001 EXEC PGM=SORT
//SYSOUT DD SYSOUT=X
//SORTIN DD DSN=INPUT.FILE,DISP=SHR
//SORTOUT DD DSN=OUTPUT.FILE,DISP=(,CATLG),
//         UNIT=SYSDA,SPACE=(TRK,(15,5),RLSE)
//SYSIN DD *
  SORT FIELDS=(5,10,CH,A)
  OUTFIL FNAMES=SORTOUT,SAVE,TRAILER1=(‘TOTAL RECORDS COUNTED=’,C’     ‘,5Z)
/*

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com