Maybe BSTXCOPY? I have not tried this so it may not work.
//CPYALAIS EXEC PGM=IKJEFT01,
// MAXRC=4,
// PARM=BSTXCOPY
//SYSPRINT DD SYSOUT=&SYSOUT,
// FREE=CLOSE
//SYSTSPRT DD SYSOUT=&SYSOUT,
// FREE=CLOSE
//SYSUT3 DD UNIT=VIO,
// SPACE=(CYL,(1,2))
//SYSUT4 DD UNIT=VIO,
// SPACE=(CYL,(1,2))
//INDD DD DSN=&#HLQOUT..&C1SSTAGE..&MIDLVLS..LOAD,
// DISP=SHR
//OUTDD DD DSN=&#HLQOUT..&C1TSTAGE..&MIDLVL..LOAD,
// DISP=OLD,
// MONITOR=COMPONENTS,FOOTPRNT=CREATE
//SYSTSIN DD DUMMY
//SYSIN DD *
COPY INDD=((INDD,R)),OUTDD=OUTDD,COPYALIAS
SELECT MEMBER=&C1ELEMENT
/*
The ENDEVOR manual recommends IEBCOPY COPYGRP to a temporary library "to preserve the alias" followed by BSTCOPY from the temporary library like this:
//********FIRST IEBCOPY COPYGRP TO PRESERVE ALIAS***********************
//TRCOPY1 EXEC PGM=IEBCOPY,MAXRC=04
//SYSPRINT DD SYSOUT=*
//FCOPYOFF DD DUMMY
//SYSUT3 DD UNIT=&WRKUNIT,SPACE=(TRK,(1,1))
//SYSUT4 DD UNIT=&WRKUNIT,SPACE=(TRK,(1,1))
//INDD DD DSN=&LOADLIB1,DISP=SHR
//OUTDD DD DSN=&&TMPDSN,DISP=(,PASS),UNIT=SYSDA,
// SPACE=(CYL,(5,5,44)),DSNTYPE=LIBRARY,
// DCB=(LRECL=0,BLKSIZE=32760,RECFM=U,DSORG=PO)
//SYSIN DD *
COPYGRP OUTDD=OUTDD,INDD=INDD
SELECT MEMBER=&C1ELEMENT
//********NOW COPY ALL IN TEMPORARY TO TARGET PDSE**********************
//TRCPY2 EXEC PGM=BSTCOPY,MAXRC=04
//SYSPRINT DD SYSOUT=*
//SYSUT3 DD UNIT=&WRKUNIT,SPACE=(TRK,(1,1))
//SYSUT4 DD UNIT=&WRKUNIT,SPACE=(TRK,(1,1))
/INDD DD DSN=&&TEMPDSN,DISP=(OLD,PASS)
//OUTDD DD DSN=&LOADLIB1,DISP=SHR,MONITOR=COMPONENTS,
// FOOTPRNT=CREATE
//SYSIN DD *
COPY OUTDD=OUTDD,INDD=((INDD,R))