zOs/JCL/PVSVER0

//A540769R  JOB (CP00,KE50)                                             00010001
//********************************************************************
//*
//*  PRIMO                         Walter Keller 29.3.05
//*
//*
//*  Report Winterthur PVS-Verrechnungen
//*
//*
//********************************************************************
//JOBLIB    DD DISP=SHR,DSN=MQM.QP00  <--- DEFAULT Q-MANAGER
//********************************************************************
//*  run rexx pvsVer in ispf
//*     sql for current month and write detail file
//*     write new index.html
//********************************************************************
//*                                    run ispf totition report
//S01      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='ISPSTART CMD(%PVSVER0 -BBE,CD,CS,ED -I -TRZ2)'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//ISPPLIB  DD  DSN=TSO.ISPF.ISPPLIB,DISP=SHR
//ISPMLIB  DD  DSN=TSO.ISPF.ISPMLIB,DISP=SHR
//         DD  DSN=ISP.SISPMENU,DISP=SHR
//ISPSLIB  DD  DSN=TSO.ISPF.ISPSLIB,DISP=SHR
//ISPTLIB  DD  DSN=TSO.ISPF.ISPTLIB,DISP=SHR
//ISPPROF   DD DISP=(,PASS),UNIT=VIO,
//             SPACE=(CYL,(1,1,30)),RECFM=FB,LRECL=80
//ISPLOG    DD SYSOUT=*,RECFM=VA,LRECL=125
//ISPLIST   DD SYSOUT=*,RECFM=FBA,LRECL=121
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//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
//********************************************************************
//*  send a mail with the link to the index.html file
//********************************************************************
//S02     EXEC PGM=OS3550
//IEMLOG    DD SYSOUT=*
//IEMAPI    DD *
*---+----1----+----2----+----3----+----4         ===>   Kommentar Re
SUBJECT    Leistungsverrechnung Detailnachweis WGR
RECPLIST   OAS
SENDERID   ggpvs
DOCTEXT
SSW:
  cc smtp = pvssupport.ggcite@credit-suisse.com
  to smtp = walter.keller@credit-suisse.com
  to smtp = ralph.brun@credit-suisse.com
SSW:
<https://rhino-sec.csintra.net/MVSDS/'WGR.U0034.P0.CESA.INDEX.HTML'>

Absender:
<mailTo:GG PVS Support (KPCO 4)>
//