How to copy data from LRECL=80 to LRECL=50

//*********************************************************
//*TO COPY DATA FROM LRECL=80 TO LRECL=5
//*********************************************************
//STEP01A EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUTDATASETNAME,DISP=SHR
//SORTOUT DD DSN=OUTPUTDATASETNAME,
//           DISP=(NEW,CATLG,DELETE),
//           DCB=(LRECL=50,RECFM=FB,BLKSIZE=500),
//           SPACE=(CYL,(10,10),RLSE)
//SYSIN DD *
  SORT FIELDS=COPY
  OUTREC BUILD=(1:1,50)
/*