//**********************************************************************
//S030    EXEC PGM=IEBCOPY
//**********************************************************************
//SYSUT1    DD DSN=HLQ.SAVE.STCPROC,DISP=SHR
//SYSUT2    DD DSN=SYS1.STC.PROCLIB,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
  COPY INDD=((SYSUT1,R)),OUTDD=SYSUT2
  SELECT MEMBER=PSXYZEV 
  SELECT MEMBER=OPCE