zOs/JCL/PVS140AT

//A540769P JOB (OS09,KE50,,SP00000000),
//             'WGR: COPY PVS-DS'
//****************    change
//**    ==> wkTest
//**   //PVS140AP JOB (OS09,KE50,,SP00000000),
//**   //             MSGCLASS=E
//**   //*OMS NET=%%GROUP
//**   //**CONTROL-M-JOB
//**   c RZ1 RZ2
//**   c 0AP 00P
//**   c &DSN %%DSN und jcl set löschen
//****************    change end
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ1AKT.PERM.@007.JVA  %%INCMEM JOBLRZ1P
//*wkTest   DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=PVS
//        SET  PARMLIB=WGR.RZ1.T0.AKT.PARMLIB
//* %%SET %%DSNPREF=%%SUBSTR %%DSN 1 12
//* %%SET %%DSNMID=%%SUBSTR %%DSN 18 11
//        SET DSNPREF=WGR.U0034.T0.
//        SET DSNMID=BJESOUT1.B1.
//        SET DSN=&DSNPREF.LST.&DSNMID.D05365.T2359599
//********************************************************************
//*                                              copy input dataset
//*P01     EXEC PGM=ICETOOL
//*TOOLMSG  DD  SYSOUT=*
//*DFSMSG   DD  SYSOUT=*
//*DDI01    DD  DSN=&DSN,
//*             DISP=SHR
//*DDO01    DD  DSN=&DSNPREF.LSV.&DSNMID.#DT#,
//*             DISP=(,CATLG),
//*             MGMTCLAS=BAT#AT,
//* wkTest    SPACE=%%#SPC2,
//*             LIKE=&DSN,
//*             RECFM=VBA,LRECL=32756
//*TOOLIN   DD  DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(COPY01),DISP=SHR
//* IF RC = 0 THEN
//*                                              copy input dataset
//*
//P02      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='%PVSRWGRJ TEST &DSN'
//SYSPROC    DD DSN=A540769.WK.REXX,DISP=SHR
//*SYSPROC    DD DSN=PVSP.U0000.T0.CLIST,DISP=SHR
//SYSPRINT   DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSTSPRT   DD SYSOUT=*
//SYSTSIN    DD DUMMY
//AFP        DD DISP=SHR,DSN=A540769.TEST.JESOUT.T4BEDOIM
//VARIIN     DD DISP=SHR,DSN=&PARMLIB(PVS140VA)
//VARI       DD DISP=SHR,DSN=&PARMLIB(PVS142VA)
//MAILIN     DD DISP=SHR,DSN=&PARMLIB(PVS140MA)
//MAIL       DD DISP=SHR,DSN=&PARMLIB(PVS142MA)
//LOGIN      DD DISP=SHR,DSN=&PARMLIB(PVS140LG)
//LOG        DD DISP=MOD,DSN=A540769.TEST.JESOUT.LOG
//IMM        DD DISP=(NEW,CATLG),DSN=A540769.TEST.JESOUT.IMM,
//             MGMTCLAS=BAT#AT,LIKE=A540769.TEST.JESOUT.T9EMPTY
//*ENDIF
//*
//*
//*IF RC = 9 THEN     wkTest
//*                                                delete orig dataset
//*P03     EXEC PGM=IEFBR14
//*DD1       DD DSN=&DSN,
//*             DISP=(OLD,DELETE,KEEP)
//* ENDIF