zOs/JCL/PVS130AP

//PVS130AP JOB (OS09,KE50,,SP00000000),
//             'WGR: COPY PVS-DS',
//             MSGCLASS=E
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ1AKT.PERM.@007.JVA  %%INCMEM JOBLRZ1P
//          DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=PVS
//* %%SET %%DSNPREF=%%SUBSTR %%DSN 1 12
//* %%SET %%PVSJOBN=%%SUBSTR %%DSN 18 8
//* %%SET %%DSNSUFF=%%SUBSTR %%DSN 18 27
//* %%SET %%PVS3QUA=%%SUBSTR %%DSN 27 2
//********************************************************************
//*                         JCLPREP   06/06/2005   12:04:27   A115464
//********************************************************************
//*
//P01     EXEC PGM=ICETOOL
//TOOLMSG  DD  SYSOUT=*
//DFSMSG   DD  SYSOUT=*
//DDI01    DD  DSN=%%DSN,
//             DISP=SHR
//DDO01    DD  DSN=%%DSNPREF.PVV.%%DSNSUFF,
//             DISP=(,CATLG),
//             MGMTCLAS=BAT#AT,
//             SPACE=%%#SPC2,
//             RECFM=VBA,LRECL=32756
//TOOLIN   DD  DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(COPY01),DISP=SHR
// IF RC = 0 THEN
//*
//P02     EXEC PGM=ICETOOL
//TOOLMSG  DD  SYSOUT=*
//DFSMSG   DD  SYSOUT=*
//DDI01    DD  DSN=%%DSN,
//             DISP=SHR
//DDO01    DD  DSN=PVS.FT.W%%PVS3QUA..%%PVSJOBN,
//             DISP=(,CATLG,DELETE),
//             UNIT=DISK,VOL=SER=PVPXXX,
//             SPACE=%%#SPC3
//TOOLIN   DD  DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(COPY01),DISP=SHR
// ENDIF
// IF RC = 0 THEN
//*
//P03     EXEC PGM=OS3550
//IEMLOG    DD SYSOUT=*
//IEMAPI    DD *
SUBJECT    PVS-File (TEST) erhalten: %%PVSJOBN %%PVS3QUA
//          DD DSN=WGR.RZ1.P0.AKT.PARMLIB(WXXXEML1),DISP=SHR
//          DD *
DATASET-NAME = %%DSN
/*
//          DD DSN=WGR.RZ1.P0.AKT.PARMLIB(WXXXEML2),DISP=SHR
// ENDIF
// IF RC = 0 THEN
//*
//P04     EXEC PGM=IEFBR14
//DD1       DD DSN=%%DSN,
//             DISP=(OLD,DELETE,KEEP)
// ENDIF