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=KC03H0E.EXAM.PDS(M1)
//SYSIN     DD *
  SORT FIELDS=(1,3,BI,D)

  SORT FIELDS=(1,3,CH,A)