Return to the Sample Job Stream List

WDUJOBS Sample Job Stream

Original JCL (VSE)

* $$ 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

Translated JCL (MVS)

//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