zOs/JCL/PVM7700O

//A540769P  JOB (CP00,KE50)                                             00010001
//********************************************************************
//*
//*  PVS / PRIMO                   Walter Keller 12.5.2005
//*
//*
//*  CESA Detailnachweis für WGR
//*
//*
//********************************************************************
//         SET MONTH=200506
//*        SET FILEPRE=WGR.U0034.P0.CESA.RZ1.D&MONTH
//         SET FILEPRE=A540769.CESA.RZ1.D&MONTH
//         SET DBSYS=DBTF
//         SET DBOWN=OA1T
//         SET PARMLIB=A540769.WK.SQL
//JOBLIB     DD DISP=SHR,DSN=MQM.QP00  <--- DEFAULT Q-MANAGER
//********************************************************************
//*  delete csv und html datasets if they exist already
//********************************************************************
//S00      EXEC PGM=IEFBR14
//CSV        DD DISP=(MOD,DELETE),DSN=&FILEPRE..CSV
//HTML       DD DISP=(MOD,DELETE),DSN=&FILEPRE..HTML
//********************************************************************
//*  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,TIME=99,
//            PARM='%PVSRWGRD -D&DBSYS -O&DBOWN -M&MONTH'
//*SYSPROC    DD DSN=PVSP.U0000.T0.CLIST,DISP=SHR
//SYSPROC    DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT   DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSTSPRT   DD SYSOUT=*
//SYSTSIN    DD DUMMY
//SQLIN      DD DISP=SHR,DSN=&PARMLIB(PVM7700S)
//JESIN      DD DISP=SHR,DSN=&FILEPRE..JESLOG
//CSV        DD DISP=(NEW,CATLG),DSN=&FILEPRE..CSV,
//             DATACLAS=VB0256S0,MGMTCLAS=COM#A055
//HTMLIN     DD DISP=SHR,DSN=&PARMLIB(PVM7700H)
//HTML       DD DISP=(NEW,CATLG),DSN=&FILEPRE..HTML,
//             DATACLAS=VB0256S0,MGMTCLAS=COM#A055
//MAILIN     DD DISP=SHR,DSN=&PARMLIB(PVM7700M)
//MAIL       DD DISP=(NEW,PASS),DATACLAS=FB0080S0
//********************************************************************
//*  transfer csv file to rz1 by connect direct
//********************************************************************
//       IF RC = 17 THEN
//S02      EXEC PGM=OS2900
//SYSPRINT   DD  SYSOUT=*
//PLIDUMP    DD  SYSOUT=*
//SYSUT1     DD  DISP=SHR,DSN=&FILEPRE..CSV
//DDIN       DD *
DEST='RZ2'
MGMTCLAS='COM#E035'
DSNCOPY='YES'
WAIT='YES'
//********************************************************************
//*  transfer html file to rz1 by connect direct
//********************************************************************
//S03      EXEC PGM=OS2900
//SYSPRINT   DD  SYSOUT=*
//PLIDUMP    DD  SYSOUT=*
//SYSUT1     DD  DISP=SHR,DSN=&FILEPRE..HTML
//DDIN       DD *
DEST='RZ2'
MGMTCLAS='COM#E035'
DSNCOPY='YES'
WAIT='YES'
//       ENDIF
//********************************************************************
//*  send a mail with the link to the html file
//********************************************************************
//         IF RC = 0 THEN
//S04      EXEC PGM=OS3550
//IEMLOG     DD SYSOUT=*
//IEMAPI     DD DISP=(OLD,DELETE),DSN=*.S01.MAIL
//        ENDIF
//