Tags

, , ,

SORT – SUM FIELDS

//SORTIT EXEC PGM=SORT

//SYSOUT DD SYSOUT=*

//SORTIN DD DSN=USERID.SORT.INPUT,DISP=SHR

//SORTOUT DD DSN= USERID.SORT.OUTPUT,

// DISP=(NEW,CATLG,DELETE),

// UNIT=(WORK,8),

// SPACE=(CYL,(5,1),RLSE),

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)

//SORTWK01 DD UNIT=WORK,SPACE=(CYL,(5,1))

//SORTWK02 DD UNIT=WORK,SPACE=(CYL,(5,1))

//SYSIN DD *

SORT FIELDS=(19,2,CH,A)


SUM FIELDS=(1,7,ZD)

/*

//* END OF JOB

Note: The SUM control statement deletes records with equal control fields and optionally summarizes specified numeric fields on those records. If numeric fields are to be summarized, the data in the summary fields is added, the sum is placed in one of the records, and the other record is deleted. Provided arithmetic overflow does not occur, the SUM statement produces only one record per sort key in the output data set.

XSUM means the deleted records are to be written to the data set defined by the SORTXSUM DD statement.

 

 

You might also like to look at:

 

 

SORT – CONVERT PD to ZD and BI to ZD
SORT – EDIT FIRST AND LAST RECORD
SORT – EDIT MASK PATTERNS
SORT – EDIT NUMERIC FIELDS (I,T,S)
SORT – FINDREP, IFTHEN and INREC
SORT – How to use VB dataset (VLSHRT)
SORT – INCLUDE and OMIT
SORT – INREC, INCLUDE and OMIT
SORT – JUSTIFY, SQUEEZE and OVERLAY
SORT – LOOKUP AND CHANGE
SORT – OUTPUT DATASET DCB (LRECL,RECFM,BLKSIZE)
SORT – OUTREC – INSERT ZEROES, BLANKS, STRINGS
SORT – OUTREC – TRAN
SORT – PARSE – REFORMAT VARIABLE FIELDS
SORT – Process Order of CONTROL Statements
SORT – REMOVE DUPLICATES AND WRITE THEM TO XSUM
SORT – SET RETURN CODE ‘04’ IF OUTPUT FILE IS EMPTY
SORT – SKIPREC and STOPAFT
SORT – SUM FIELDS
SORT – TO REPLACE A CHAR WITH ANOTHER CHAR – ALTSEQ
SORT – INREC
SORT – SYMBOLS
SORT JOB – SIMPLE COPY
SORT JOIN – TO JOIN TWO FILES BASED ON A KEY
SORT JOIN – UNPAIRED RECORDS INDICATOR


Advertisements