zOs/JCL/PVSVER

//A540769R  JOB (CP00,KE50)                                             00010001
//********************************************************************
//*
//*  PRIMO                         Walter Keller 29.3.05
//*
//*
//*  Report Winterthur PVS-Verrechnungen
//*
//*
//********************************************************************
//         SET MONTH=200505
//         SET FILEPRE=WGR.U0034.P0.CESA.RZ1.D&MONTH
//         SET DBSYS=DBAF
//         SET DBOWN=OA1A
//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 pvsVer
//*     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='%PVSVER -D&DBSYS -O&DBOWN -M&MONTH'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//CSV       DD DISP=(NEW,CATLG),DSN=&FILEPRE..CSV,
//            DATACLAS=VB0256S0,MGMTCLAS=COM#E035
//HTML      DD DISP=(NEW,CATLG),DSN=&FILEPRE..HTML,
//            DATACLAS=VB0256S0,MGMTCLAS=COM#E035
//SYSTSIN   DD DUMMY
//SQLIN      DD *
    select
         char(mon) || '; ' || arbid || '; ' || char(sum(erstPag#))
         || '; ' || char(sum(erstCou#))
      from
      ( select
          year(ldatum) * 100 + month(lDatum) as mon,
          left(erstJob,4) arbid, erstPag#, erstCou#
        from $DBOWNER.vpv013a1a
        where left(erstJob,2)
            in ($BEREICHE)
          and lDatum between '${MONTH}01' and  '${MONTH}31'
      ) t1
      group by      arbid , mon
      order by      arbid , mon
//********************************************************************
//*  transfer csv file to rz1 by connect direct
//********************************************************************
//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'
//********************************************************************
//*  send a mail with the link to the html file
//********************************************************************
//        IF RC = 0 THEN
//S04     EXEC PGM=OS3550
//IEMLOG    DD SYSOUT=*
//IEMAPI    DD *
SUBJECT    Leistungsverrechnung Detailnachweis WGR
RECPLIST   OAS
SENDERID   ggpvs
DOCTEXT
SSW:
  to smtp = walter.keller@credit-suisse.com
SSW:
<https://rhino.csintra.net/MVSDS/'WGR.U0034.P0.CESA.RZ1.D200505.HTML'>

Absender:
<mailTo:GG PVS Support (KPCO 4)>
//EMPFAE  DD *
  to smtp = ralph.brun@credit-suisse.com
  to smtp = karl.malnati@credit-suisse.com
//        ENDIF
//