//*** ddl nachtrag kopieren ******************************************** //${stp}COPY EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //FROM DD DISP=SHR,DSN=$frLib //TO DD DISP=SHR,DSN=$toLib COPY O=TO,I=((FROM,R)) SELECT M=($mbr)