Язык управления заданиями JCL (Job Control Language), страница 5

//DSETPO     DD  DSN=AS30.PS.DATA,

//               DISP=(OLD,DELETE)

Cоздание копии набора данных

//PRIMER4    JOB  (ACCT#,000),’ФИО’,NOTIFY=&SYSUID

//COPYDS     EXEC PGM=IEBCOPY   <---системная утилита

//SYSPRINT   DD  SYSOUT=A

//* Иходный набор данных

//SYSUT1     DD  DSN=набор1,UNIT=устройство,

//               DISP=SHR,VOL=SER=том

//* Набор данных - копия

//SYSUT2     DD  DSN=набор2,UNIT=устройство,

//               DISP=(NEW,KEEP),VOL=SER=том,

//               SPACE=(TRK,(5,1))