SORT – SUM FIELDS

Tags

fields, mainframe, SORT, sum

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.

——————————————————————————————————–

In United States, If you would like to Earn Free Stocks, Credit card Points and Bank account Bonuses, Please visit My Finance Blog

——————————————————————————————————–

You may also like to look at:

Working on Mainframes – Is Change to a different technology necessary

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