zOs/JCL/PVS142AP

//* %%INCLIB WGR.RZ1.P0.AKT.PARMLIB             %%INCMEM PVS142VA
//PVS142AP JOB (OS09,KE50,%%PID,SP00000000),
//             'PRINTVERTEILUNG WGR',
//             MSGCLASS=E
//*OMS NET=%%GROUP
//*MAIN CLASS=PVS
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB WGR.RZ1.P0.AKT.PARMLIB             %%INCMEM PVS142VA
//* %%INCLIB PCL.U0000.P0.RZ1AKT.PERM.@007.JVA  %%INCMEM JOBLRZ1P
//          DD DSN=MQM.QP00,DISP=SHR
//* %%SET %%WGRPREF=WGR.RZ1.P0.AKT
//* %%SET %%PARMLIB=%%WGRPREF.PARMLIB
//* %%SET %%JNA=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA
//OUT01    OUTPUT  COPIES=%%COPIES,DEPT=&DEPT,
//             DEST=%%DEST,FORMDEF=%%FORMDEF,
//             FORMS=%%FORMS,OVERLAYB=%%OVERLAYB,
//             OVERLAYF=%%OVERLAYF,PAGEDEF=%%PAGEDEF,
//             PRMODE=PAGE,USERLIB=(%%USERLIB)
//********************************************************************
//*                         JCLPREP   19/12/2005   13:56:40   A965472
//********************************************************************
//*
//P01     EXEC PGM=ICETOOL
//TOOLMSG   DD SYSOUT=*
//DFSMSG    DD SYSOUT=*
//DDI01  DD DSN=%%WGRPREF.LST.PVS140AP.IMM,DISP=SHR
//       DD DSN=%%DSNNEW,DISP=SHR
//DDO01     DD SYSOUT=%%CLASS,
//             OUTPUT=*.OUT01
//TOOLIN   DD  DSN=%%JNA(COPY01),DISP=SHR
// IF RC = 0 THEN
//*
//P02     EXEC PGM=IKJEFT01,
//             DYNAMNBR=200,
//             PARM=('%PVSRJOB'),
//             TIME=99
//SYSPROC    DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//SYSPRINT   DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSTSPRT   DD SYSOUT=*
//SYSTSIN    DD DUMMY
//DDIN       DD DSN=%%PARMLIB(PVS142MA),DISP=SHR
//DDOUT      DD %%JESCONT
// ENDIF
// IF RC = 0 THEN
//*
//P03     EXEC PGM=OS3550
//IEMLOG    DD SYSOUT=*
//IEMAPI    DD DSN=%%PARMLIB(PVS142MA),DISP=SHR
// ENDIF
// IF RC = 0 THEN
//*
//P04     EXEC PGM=IDCAMS
//SYSPRINT  DD SYSOUT=*
//CEEDUMP   DD SYSOUT=*
//SYSABEND  DD SYSOUT=*
//SYSIN     DD *
 DELETE ( -
      %%WGRPREF.LST.PVS140AP.IMM -
      ) PURGE
 IF MAXCC <= 8  THEN SET MAXCC = 0
// ENDIF