JCL program to convert a job stream to an Instream procedure.

/JOBTOIN JOB

//MYPROC PROC

//STEP1 EXEC PGM=IEFBR14

//DD1 DD DSN=KC03H16.M8.M7,

// DISP=(NEW,CATLG),

// SPACE=(TRK,(5,2,0)),

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

//SYSPRINT DD SYSOUT=*

// PEND

//STEP3 EXEC PROC=MYPROC,TIME.STEP1=20

//STEP1.DD1 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=6400)

//STEP1.DD1 DD DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)

//SYSIN DD *