zOs/JCL/PVS142AT

//A540769Q JOB (OS09,KE50,,P00000000),
//             'WGR: COPY PVS-DS'
//*wkTest      MSGCLASS=E
//*wkTest //PVS1420P JOB (OS09,KE50,%%PID,SP00000000),
//*wkTest //*OMS NET=%%GROUP
//*wkTest //**CONTROL-M-JOB
//*wkTest &DSN ==> %%DSN ohne jcl set|
//* %%GLOBAL GLOBAL
//* %%INCLIB &PARMLIB                           %%INCMEM PVS142VA
//* %%INCLIB PCL.U0000.P0.RZ1AKT.PERM.@007.JVA  %%INCMEM JOBLRZ1P
//* wkTest  DD DSN=MQM.QP00,DISP=SHR
//JOBLIB    DD DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=PVS
//        SET  PARMLIB=WGR.RZ1.T0.AKT.PARMLIB
//        SET  DSN=WGR.U0034.T0.LST.BJOBNAME.B1.D05365.T2359599
//        SET  DSNNEW=WGR.U0034.T0.SLS.BJOBNAME.B1.D05140.T141118
//********************************************************************
//*                         JCLPREP   21/04/2005   07:28:24   A965472
//********************************************************************
//*                                              copy to spool
//P01     EXEC PGM=ICETOOL
//TOOLMSG   DD SYSOUT=*
//DFSMSG    DD SYSOUT=*
//DDI01     DD DSN=&DSNNEW,
//             DISP=SHR
//OUT01     OUTPUT COPIES=,
//            DEST='und noch weiter',
//            FORMS=A4BLK,
//            FORMDEF=FORMDE,
//            PAGEDEF=,
//            PRMODE=PAGE,
//            USERLIB=WGR.U0034.P0.AKT.AFPLIB,
//            DEPT='wie geht es dept?????????? ??????????????'
//DDO01     DD SYSOUT=T,OUTPUT=*.OUT01
//TOOLIN   DD  DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(COPY01),DISP=SHR
//*
// IF RC = 9 THEN
//*                                               send mail
//P02     EXEC PGM=OS3550
//IEMLOG    DD SYSOUT=*
//IEMAPI    DD DISP=SHR,DSN=&PARMLIB(PVS142MA)
// ENDIF