CL program to Copy an In stream procedure to a member.

STEP1:CREATE A MEMBER IN PDS AS SRC

//CATLG PROC

//STEP1 EXEC PGM=IEFBR14

//DD1 DD DSN=KC03H16.Z2.Z2,DISP=(NEW,CATLG),SPACE=(TRK,(5,2,0))

//SYSPRINT DD SYSOUT=*

STEP2:CREATE A MEMBER AS TAR

STEP3: IN PDS WRITE THE CODE AS FOLLOWS

//COPINS JOB 1,GEOFF,MSGCLASS=A

// EXEC PGM=IEBGENER

//SYSIN DD DUMMY

//SYSPRINT DD SYSOUT=A

//SYSUT1 DD DISP=SHR,DSN=KC03H16.EEE.PDS(SRC)

//SYSUT2 DD DISP=SHR,DSN=KC03H16.EEE.PDS(TAR)