How to copy PS file on TAPE to DASD

//STEP01   EXEC PGM=SORT
//SYSPRINT  DD SYSOUT=*
//SYSOUT    DD SYSOUT =*
//SORTIN    DD DSN=‘Dataset name which exist on tape’,
//                     DISP=SHR
//SORTOUT   DD DSN=‘new dataset name’,
//          DISP=(NEW,CATLG,DELETE) ,
//          DCB=*.SORTIN,
//          UNIT=SYSDA
//SYSIN     DD *
  SORT FIELDS=COPY
/*