Covert job stream to instream procedure

//JOB1  JOB 1
//MYPROC PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H0E.J1.PDS,
// DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))
//STEP2 EXEC PGM=IEFBR14
//DD1 DD DSN=KC03H0E.J1.PDS,
// DISP=(OLD,DELETE,DELETE)
//STEP1.DD1 DD
//STEP2.DD1 DD
//   PEND
//STEP3 EXEC MYPROC
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY