000100 //IBMUSERA JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=DFSORT
000300 //SYSIN DD *
000400 OMIT COND=(5,3,EQ,C'MUS')
000500 //SYSOUT DD SYSOUT=*
000600 //SORTIN DD DSNAME=IBMUSER.TEST.QSAM1,DISP=SHR
000700 //SORTOUT DD DSNAME=IBMUSER.TEST.QSAM4,DISP=(NEW,CATLG,DELETE),
000800 // SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
000900 //
000200 //STEP1 EXEC PGM=DFSORT
000300 //SYSIN DD *
000400 OMIT COND=(5,3,EQ,C'MUS')
000500 //SYSOUT DD SYSOUT=*
000600 //SORTIN DD DSNAME=IBMUSER.TEST.QSAM1,DISP=SHR
000700 //SORTOUT DD DSNAME=IBMUSER.TEST.QSAM4,DISP=(NEW,CATLG,DELETE),
000800 // SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
000900 //