z/OS中使用DFSORT对文件进行排序

本示例展示了如何在z/OS上使用DFSORT对文件进行排序，并在排序前后打印出一些信息，例如原始文件记录数、排序后的记录数等。DFSORT是z/OS上最常用的排序工具之一，可以高效地进行排序、合并、查找等操作。

//SYSIN    DD *
  SORT FIELDS=(1,5,CH,A)    //按照第1列到第5列的字符进行升序排序
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'INPUT RECORD COUNT:')),
        IFTHEN=(WHEN=(1,1,CH,EQ,C'1'),OVERLAY=(86:COUNT+4Z,UFF,M4,LENGTH=4)),
  OUTFIL INCLUDE=(1,2,CH,EQ,C'20',AND,4,2,CH,EQ,C'05'),  //只输出以20开头且第4-5列为05的记录
         BUILD=(1,80),
         IFTHEN=(WHEN=INIT,OVERLAY=(81:C'OUTPUT RECORD COUNT:')),
         IFTHEN=(WHEN=(1,1,CH,EQ,C'1'),OVERLAY=(87:COUNT+4Z,UFF,M4,LENGTH=4))
/*

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