Reply to comment

//STEP02   EXEC PGM=SORT                           

//SYSOUT   DD SYSOUT=*                             

//SORTIN   DD DSN=USERID.ABC.VBFORMAT,DISP=SHR    

//SORTOUT  DD DSN=USERID.ABC.FBFORMAT,              

//            DISP=(,CATLG,DELETE),UNIT=SYSDA,     

//            DCB=(LRECL=80,RECFM=FB)              

//SYSIN    DD  *                                   

  SORT FIELDS=COPY                                 

  OUTREC FIELDS(1:20,80),CONVERT                                                  

/*