zOs/JCL/WI101COP

//Y4WI101C  JOB (CP00,KE50),'DB2 WI101 LOAD',
//         MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
//         NOTIFY=A540769
//*MAIN CLASS=DBOF
//S1       EXEC PGM=DSNUTILB,PARM='DBOF,Y4WI101C.LOAD'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
    LISTDEF LST INCLUDE TABLESPACE WI02A1P.A101A PARTLEVEL
    COPY LIST LST COPYDDN(TCOPYD)
        PARALLEL SHRLEVEL CHANGE