Jousma, David wrote: //STEP1 EXEC PGM=ADRDSSU,REGION=8M //SYSPRINT DD SYSOUT=* //SYSIN DD * COPY DS(INC(OLDID.**)) - RENUNC((OLDID.**,NEWID.**)) - ALLDATA(*) - SPHERE - ALLX - CATALOG - PURGE
>This example assumes id is the first qualifier. You may need to adjust to >your needs. Thanks David for providing this excellent example. I could not find a good example when I posted earlier... (ML2 mountain was too big and steep for me to climb... ;-D ) Groete / Greetings Elardus Engelbrecht ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
