TSO - 插入空白页

Question

TSO SORT 有没有办法在文件中的某个字符串后添加空白页？非常感谢任何帮助。我需要这个额外的页面，以便在打印时正确分割输出。

Answer 1

SORT 正在某些 JCL 中使用，如下所示：-

//WSMFDST5 EXEC PGM=SORT,COND=(4,LT)
//SYSOUT   DD   SYSOUT=*
//SYSIN    DD   DSN=JLP.TEST.PARMLIB(WSMFD32C),DISP=SHR
//SORTIN   DD   DSN=WSM.TEMP.WSMPRM,DISP=(OLD)
//SORTOUT  DD   DSN=WSM.TEST.WSMPRM.WSMFF.GDG.NEW(0),DISP=(OLD,KEEP) 

所以，我希望在 JLP.TEST.PARMLIB(WSMFD32C) 中编写一些代码，以便在找到某个字符串时添加一个空白页面。

非常感谢

Answer 2

是的，编写一个排序退出例程。这允许代码检查每条记录并执行任何用户定义的功能。排序出口可以将数据（例如空白页）插入到输出数据流中。另外，我可以为你写一个排序出口。