* $$ JOB JNM=WDUJOBS /* /* Sample execution of the Westinghouse Disk Utility (WDU) /* // DLBL MASTER,'MASTER.FILE',,SD // DLBL MASTER2,'MASTER.FILE.COPY',,SD // DLBL FILE47,'FILE.47',,SD // DLBL FILE47B,'FILE.47.COPY',,SD // TLBL SYS000,'MASTER.BACKUP' // TLBL SYS001,'MASTER.BACKUP' /* // EXEC COPYDD,SIZE=CPYDD COPY LOG=SYSLST MASTER.MASTER2.SD FILE47.FILE47B.SD /* // EXEC COPYDT,SIZE=CPYDT BACKUP NOREW TAPE=SYS001 LOG=SYSLST MASTER.SD FILE47.SD NORUN /* // EXEC COPYTD,SIZE=CPYTD RESTORE NOREW LOG=SYSLST TAPE=SYS000 CONFIRM=NO MASTER.SD NORUN /* * $$ EOJ
Return to the Sample Job Stream List
//WDUJOBS JOB (WDUJOBS),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* STEP0010 PGM=ADRDSSU COPYDD //* //STEP0010 EXEC PGM=ADRDSSU //* MODULE COPYDD PROCESSED BY PLUG-IN JCLTWDU //* SD I MASTER 'MASTER.FILE' //#COPY DD DUMMY,DSN=MVS.MASTER.FILE //* SD I FILE47 'FILE.47' //#COPY DD DUMMY,DSN=MVS.FILE-47 //* SD O MASTER2 'MASTER.FILE.COPY' //#COPY DD DUMMY,DSN=MVS.MASTER.FILE.COPY //* SD O FILE47B 'FILE.47.COPY' //#COPY DD DUMMY,DSN=MVS.FILE-47.COPY //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * COPY - DATASET( - INCLUDE( - MVS.MASTER.FILE - MVS.FILE-47 - )) - SHARE - VOLCOUNT(ANY) - RENUNC( - (MVS.MASTER.FILE,MVS.MASTER.FILE.COPY) - (MVS.FILE-47,MVS.FILE-47.COPY) - ) IF LASTCC=4 THEN SET MAXCC=16 /* //*TLBL SYS000,'MASTER.BACKUP' //*TLBL SYS001,'MASTER.BACKUP' //* //* STEP0020 PGM=ADRDSSU COPYDT //* //STEP0020 EXEC PGM=ADRDSSU //* MODULE COPYDT PROCESSED BY PLUG-IN JCLTWDU //* SD I C MASTER 'MASTER.FILE' BACKUP //#BACKUP DD DUMMY,DSN=MVS.MASTER.FILE //* SD I C FILE47 'FILE.47' BACKUP //#BACKUP DD DUMMY,DSN=MVS.FILE-47 //* MT O C 'MASTER.BACKUP' BACKUP //SYS001 DD DSN=MVS.MASTER.BACKUP(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=TAPE, // VOL=(,RETAIN) //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * DUMP - DATASET( - INCLUDE( - MVS.MASTER.FILE - MVS.FILE-47 - )) - SPHERE - SHARE - OUTDD(SYS001) /* //* //* STEP0030 PGM=ADRDSSU COPYTD //* //STEP0030 EXEC PGM=ADRDSSU //* MODULE COPYTD PROCESSED BY PLUG-IN JCLTWDU //* MT I C 'MASTER.BACKUP' RESTORE //SYS000 DD DSN=MVS.MASTER.BACKUP(+1), // DISP=SHR //* SD O C MASTER 'MASTER.FILE' RESTORE //#RESTORE DD DUMMY,DSN=MVS.MASTER.FILE //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * RESTORE - INDD(SYS000) - DATASET( - INCLUDE( - MVS.MASTER.FILE - )) - SPHERE - REPLACE /* //
Return to the Sample Job Stream List