SORT – REMOVE DUPLICATES AND WRITE THEM TO XSUM

Tags

mainframe, remove duplicates, SORT, xsum

//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)

//
SORTXSUM DD DSN= USERID.SORT.XSUM,

// 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=NONE,XSUM

/*

//* END OF JOB

 

 

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

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