zOs/JCL/PVM7700Q

//PVM7700P JOB (OS09,KE50,,SP00000000),
//             'PVS-CESA DET.F.WGR  ',
//             MSGCLASS=R
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA  %%INCMEM JOBLRZ2P
//         DD  DSN=MQM.QP00,DISP=SHR
//*MAIN CLASS=PVS
//********************************************************************
//*  PVS / PRIMO                   Walter Keller 12.5.2005
//*  CESA Detailnachweis für WGR
//********************************************************************
//* %%SET %%VORM3 = %%CALCDATE %%ODATE -%%ODAY
//* %%SET %%VORM2 = %%SUBSTR %%VORM3 1 4
//* %%SET %%JAHR1 = %%SUBSTR %%$ODATE 1 2
//* %%SET %%VMONAT = %%JAHR1.%%VORM2
//********************************************************************
//* %%SET %%FILEPRE = WGR.U0034.P0.CESA.RZ2.D%%VMONAT
//* %%SET %%DBSYS   = DBOF
//* %%SET %%DBOWN   = OA1P
//* %%SET %%PARMLIB = WGR.RZ2.P0.AKT.PARMLIB
//********************************************************************
//*  delete csv und html datasets if they exist already
//********************************************************************
//*                         JCLPREP   19/05/2005   09:29:12   A476218
//********************************************************************
//*
//S00     EXEC PGM=IEFBR14
//CSV       DD DSN=%%FILEPRE.CSV,
//            DISP=(MOD,DELETE)
//HTML      DD DSN=%%FILEPRE.HTML,
//            DISP=(MOD,DELETE)
//********************************************************************
//*  run rexx pvsrWgrD
//*     sql for current month and write detail file (dd csv)
//*     and a html page (dd html)
//********************************************************************
//*
//S01     EXEC PGM=IKJEFT01,
//             DYNAMNBR=200,
//             PARM='%PVSRWGRD -D%%DBSYS -O%%DBOWN -M%%VMONAT',
//             TIME=99
//SYSPROC   DD DSN=PVSP.U0000.P0.CLIST,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD DUMMY
//SQLIN     DD DSN=%%PARMLIB(PVM7700S),DISP=SHR
//CSV       DD DSN=%%FILEPRE.CSV,
//             DISP=(,CATLG),
//             MGMTCLAS=COM#E035,
//             DATACLAS=VB0256S0
//HTMLIN    DD DSN=%%PARMLIB(PVM7700H),DISP=SHR
//HTML      DD DSN=%%FILEPRE.HTML,
//             DISP=(,CATLG),
//             MGMTCLAS=COM#E035,
//             DATACLAS=VB0256S0
//MAILIN    DD DSN=%%PARMLIB(PVM7700M),DISP=SHR
//MAIL      DD DISP=(,PASS),
//             DATACLAS=FB0080S0
//********************************************************************
//*  transfer csv file to rz1 by connect direct
//********************************************************************
//*
//S02     EXEC PGM=OS2900
//SYSPRINT  DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSUT1    DD DSN=%%FILEPRE.CSV,DISP=SHR
//DDIN      DD *
DEST='RZ1'
MGMTCLAS='BAT#AT'
DSNCOPY='YES'
WAIT='YES'
//********************************************************************
//*  transfer html file to rz1 by connect direct
//********************************************************************
//*
//S03     EXEC PGM=OS2900
//SYSPRINT  DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSUT1    DD DSN=%%FILEPRE.HTML,DISP=SHR
//DDIN      DD *
DEST='RZ1'
MGMTCLAS='BAT#AT'
DSNCOPY='YES'
WAIT='YES'
//********************************************************************
//*  send a mail with the link to the html file
//********************************************************************
//         IF RC = 0 THEN
//*
//S04     EXEC PGM=OS3550
//IEMLOG    DD SYSOUT=*
//IEMAPI    DD DSN=*.S01.MAIL,DISP=(OLD,DELETE)
//        ENDIF