zOs/JCL/TECSVLLR

//A540769W JOB (CP00,KE50),'DB2 ADMIN',
//             TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,
//             MSGCLASS=T,NOTIFY=&SYSUID
//LGRNLOA  EXEC PGM=DSNUTILB,PARM='DVBP,A540769W.LGRNLOA'
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
EXEC SQL
  DECLARE CUR1 CURSOR FOR
    WITH G AS
    (
      SELECT LGRDBID, lgrpsid
         , LGRPART PA
         , COUNT(*) CNT
         , MAX(TRANSLATE('20YZ-MN-DE-', LGRUCDT, 'MNDEYZ')
               || TRANSLATE('HI.MN.ST.UV', LGRUCTM, 'HIMNSTUV')) lgrUcTm
         , MAX(LGRSLRSN) lgrSLrsn
        FROM SYSIBM.SYSLGRNX
        GROUP BY LGRDBID, LGRPSID, LGRPART
    )
    , h as
    (
      select oa1p.fqzC2I2(LGRDBID)dbID
           , oa1p.fqzC2I2(LGRPSID) psID
           , pa
           , cnt
           , timestamp(lgrUcTm) start
           , TIMESTAMP(SUBSTR(lgrSLrsn, 2, 8)) sLrsn
        from g
    )
    SELECT DBNAME DB, NAME TS, PA
         , VALUE(START, '1111-11-11-11.11.11') START
         , VALUE(SLRSN, '1111-11-11-11.11.11') SLRSN
         , CNT
       FROM h
         JOIN SYSIBM.SYSTABLESPACE S
         ON h.dbID = S.dbID AND h.psID = s.psID
    WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR1  LOG NO RESUME NO REPLACE
     COPYDDN TCOPYS STATISTICS INDEX ALL KEYCARD
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1P.TQZ004TECSVLGRN