Sorting Using Procedure

//MYJOB JOB 1
//MYPROC PROC
//MYSORT EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=&SORTDSN
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//STEP1 EXEC MYPROC,SORTDSN=KC03H11.MAHA1.SORT1
//SYSIN DD *
SORT FIELDS=(1,3,CH,A)