Som lovet i uge 7 vil vi i denne uge komme tilbage til en meget nyttig anvendelse af ADRDSSU. Man kan nemlig bruge programmet til at kopiere datasets uden at skulle allokere det dataset, man kopierer til, i forvejen.

Når man kopierer med ADRDSSU, så kan man kopiere både VSAM datasets og NONVSAM datasets. For at kopiere et dataset kræver det, at den user, der gør det, har RACF READ adgang til det dataset, der skal kopieres. Derudover må der ikke være nogen enqueues på datasettet (Ingen andre må samtidig benytte datasettet). Og til sidst må datasettet, der kopieres til ikke findes i forvejen. Derfor bør man supplere den viste JCL med et foregående step, der sletter til-datasettet.

Her er en stump JCL, der demonstrerer, hvordan man kopierer datasettet MIT.EGET.DATASET over i datasettet MIT.NYE.DATASET med ADRDSSU:

//ADRDSSU  EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
    COPY -
    DATASET(INCLUDE(MIT.EGET.DATASET)) -
    RENAMEU((MIT.EGET.DATASET, -
             MIT.NYE.DATASET)) CATALOG
/*

MIT.NYE.DATASET vil blive allokeret på nøjagtig samme måde som MIT.EGET.DATASET, og indholdet vil blive lagt i et extent, som lige præcist er stort nok til at rumme hele MIT.EGET.DATASET, nøjagtig som når man flytter med ADRDSSU. Inden du bliver alt for kåd og kaster dig over at kopiere hvad som helst, så vil du hurtigt opdage, at det er dødirriterende, at der ikke må være enqueues på fra-datasettet. Men det kan man godt omgå, hvad vi på opfordring gerne vil fortælle mere om.

Der findes også visse faldgruber ved brugen af ADRDSSU til kopiering:

• Hvis man kopierer et VSAM CLUSTER med tilhørende alternative indexes, så kopieres de ikke med.
• Man kan ikke kopiere en såkaldt GDG base.

God fornøjelse!