SORT – INREC

//*SORT AND SHIFT FIELDS; INREC MOVES DATA BEFORE SORTING STARTS

//SORTIT EXEC PGM=SORT,PARM=’ABEND’

//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=(01,09,CH,A),

INREC FIELDS=(01:10,09,10:01,07)

/*

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