zOs/JCL/PVS140AP

//PVS140AP JOB (OS09,KE50,,SP00000000),
//             'WGR: COPY LST-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 %%DSNSUFF=%%SUBSTR %%DSN 18 77
//        SET DSN='%%DSN'
//* %%SET %%ENV=TEST
//* %%SET %%WGRPREF=WGR.RZ1.P0.AKT
//* %%SET %%PARMLIB=%%WGRPREF.PARMLIB
//* %%SET %%JNA=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA
//********************************************************************
//*                         JCLPREP   06/06/2005   13:22:59   A965472
//********************************************************************
//*
//*                         scratch the new files
//P01     EXEC PGM=IDCAMS
//SYSPRINT  DD SYSOUT=*
//CEEDUMP   DD SYSOUT=*
//SYSABEND  DD SYSOUT=*
//SYSIN     DD *
 DELETE ( -
      %%WGRPREF.LST.IMM -
      ) PURGE
 IF MAXCC <= 8  THEN SET MAXCC = 0
//*
//*                         copy the input
//P02     EXEC PGM=ICETOOL
//TOOLMSG  DD  SYSOUT=*
//DFSMSG   DD  SYSOUT=*
//DDI01    DD  DSN=%%DSN,
//             DISP=SHR
//DDO01    DD  DSN=%%DSNPREF.LSV.%%DSNSUFF,
//             DISP=(,CATLG),
//             MGMTCLAS=BAT#AT,
//             SPACE=%%#SPC2,
//             RECFM=VBA,LRECL=32756
//TOOLIN   DD  DSN=%%JNA(COPY01),DISP=SHR
// IF RC = 0 THEN
//*
//*                         run rexx to create files
//P03     EXEC PGM=IKJEFT01,
//             DYNAMNBR=200,
//             PARM=('%PVSRWGRJ %%ENV &DSN'),  jcl-Var, zulang fuer CM
//             TIME=99
//SYSPROC    DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//SYSPRINT   DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSTSPRT   DD SYSOUT=*
//SYSTSIN    DD DUMMY
//AFP        DD DSN=*.P02.DDO01,DISP=SHR
//VARIIN     DD DSN=%%PARMLIB(PVS140VA),DISP=SHR
//VARI       DD DSN=%%PARMLIB(PVS142VA),DISP=SHR
//MAILIN     DD DSN=%%PARMLIB(PVS140MA),DISP=SHR
//MAIL       DD DSN=%%PARMLIB(PVS142MA),DISP=SHR
//LOGIN      DD DSN=%%PARMLIB(PVS140LG),DISP=SHR
//LOG        DD DSN=%%WGRPREF.LST.LOG,
//             DISP=(MOD,CATLG,KEEP),
//             MGMTCLAS=COM#A092,
//             SPACE=(CYL,(1,5)),
//             RECFM=VB,LRECL=1023
//IMM        DD DSN=%%WGRPREF.LST.IMM,
//             DISP=(,CATLG),
//             MGMTCLAS=BAT#AT,
//             LIKE=%%DSN
// ENDIF
// IF RC = 0 THEN
//*
//*                         delete original dsn
//P04     EXEC PGM=IDCAMS
//SYSPRINT  DD SYSOUT=*
//CEEDUMP   DD SYSOUT=*
//SYSABEND  DD SYSOUT=*
//SYSIN     DD *
 DELETE ( -
      %%DSN -
      ) PURGE
 IF MAXCC <= 8  THEN SET MAXCC = 0
// ENDIF