DFSORT之shift right

        DFSORT的功能真心强大，把这些功能通通介绍一遍的话估计要用word写好几十页，甚至更多。接触Mainframe已经有一年了，关于Utility需要用到的一些SYSIN的命令，使用起来的话还是不会得心应手。看过几本关于Cobol的书，好像没有专门介绍这些命令的，看来只能自己总结了。最近在项目中接触到了DFSORT的shift right的方法，即将记录字段右对齐的方法，在此跟大家分享一下。

        a.需要处理的输入文件的记录格式如下（此处假设记录是从第一位开始的，最长为4,文件长度为10）：

        222

        3

        11

        4444

        

       b. 以下是SORT的step中SYSIN的命令：

        SORT FIELDS=(1,3,CH,A)

        OUTREC BUILD=(1,4,

                                          JFY=(SHIFT=RIGHT,LEAD=C'0000'),

                                          5,6)

       

       c. 经过处理后，输出文件显示如下：

        0011

        0222

        0003

        0444

         下面来解释下如上的SYSIN命令，SORT FIELDS部分不用说就是SORT从第一位开始的3个字段了，OUTREC中的命令用来设置输出文件的格式，BUILD命令完成的功能就是从第一位开始的4个字符右对齐，空白的地方用0填充（LEAD=C‘0000’），而从第5位开始的6个字符不作处理，在具体的应用中根据对应的文件和记录修改参数中的数值即可。

        本想用截图的，更直观些，只可惜由于公司网络限制，图片都不能上传到CSDN，只能手敲了。