有时候需要写一个简单的JOB用于统计某个Field的数值总额。这时候就可以用DFSORT的SUM功能。

使用方法：

假如我们要统计的Field起始位置喂60，长度为5，类型为数字，对应的格式为ZD（Zoned Decimal），那么可以写成：

SUM FIELDS=(60,5,ZD)
举例：

----+----1----+----2----+----3----+----4----+----5----+----6----+
AG10001  RAMESH CHANDRA GUHA INDIA     MAHARASHT MUMBAI    01000
AG10002  QUASAR SHABBIR CHUN INDIA     MAHARASHT PUNE      02000
AG10003  VEERAMANI DARYAGANJ INDIA     MAHARASHT NAGPUR    03000
AG10004  DELPHAN FERANDAZ    INDIA     TAMIL NAD CHENNAI   04000
AG10005  PADMAVATHI SUNDARAM INDIA     TAMIL NAD SALEM     05000
AG10006  NEELESHWARI IYER    INDIA     TAMIL NAD ERNAKULAM 06000
AG10007  AJAY NANUBHAI PARSA INDIA     WEST BENG KOLKATA   07000
AG10008  MEHUL POPATLAL SUTA INDIA     WEST BENG KHARAGPUR 08000
AG10009  KRITHIKA RAMANUJAM  INDIA     WEST BENG SUNDARBAN 09000
AG10010  ANKUR CHOUDHARY     INDIA     PUNJAB    AMRITSAR  10000
AG10011  HIREN NITIN SHETH   INDIA     PUNJAB    JALANDHAR 11000
AG10012  DARSHAN SHAH        INDIA     HARYANA   CHANDIGAR 12000

JOB很简单：

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
//CAA0176I JOB A123,QUASAR,CLASS=G,MSGCLASS=Y,NOTIFY=&SYSUID           
//STEP01 EXEC  PGM=SORT,REGION=1024K                                   
//SORTIN DD    DSN=CAA0176.DEMO.SORTIN,DISP=SHR                        
//SYSPRINT DD  SYSOUT=*                                                
//SYSOUT DD    SYSOUT=*                                                
//SORTXSUM DD  DSN=CAA0176.DEMO.REPORT,DISP=SHR                        
//SORTOUT DD   DSN=CAA0176.DEMO.SORTOUT,DISP=SHR                       
//SYSIN  DD    *                                                       
  SORT FIELDS=(30,10,CH,A)                                             
  SUM FIELDS=(60,5,ZD)                                                 
//

程序运行结果：

----+----1----+----2----+----3----+----4----+----5----+----6----+
AG10001  RAMESH CHANDRA GUHA INDIA     MAHARASHT MUMBAI    78000