SORT – INREC, INCLUDE and OMIT

Include

//* COPY INPUT FILE TO OUTPUT FILE BUT MOVE AS FOLLOWS

//* PUT THIS IN OUTPUT COLUMN 20: 9 CHARACTERS STARTING IN COLUMN 1

//* COLUMN 40: 16 CHARACTERS STARTING IN COLUMN 10

//* INCLUDE ONLY RECORDS FROM CT

//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=COPY

INREC FIELDS=(20:1,09,40:10,16)

INCLUDE COND=(19,2,CH,EQ,C’CT’)

/*

//* END OF JOB

 

Omit

/* COPY INPUT FILE TO OUTPUT FILE BUT MOVE AS FOLLOWS

//* PUT THIS IN OUTPUT COLUMN 20: 9 CHARACTERS STARTING IN COLUMN 1

//* COLUMN 40: 16 CHARACTERS STARTING IN COLUMN 10

//* OMIT ONLY RECORDS FROM DT

//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=COPY

INREC FIELDS=(20:1,09,40:10,16)

OMIT COND=(19,2,CH,EQ,C’DT’)

/*

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