zOs/SQL/TECSVLGL

//A540769L JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2                          00030003
//*MAIN CLASS=LOG                                                       00040003
//S1       EXEC PGM=DSNUTILB,PARM='DBOF,A540769L.LOAD'                  00020001
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
EXEC SQL
  DECLARE CUR1 CURSOR FOR
    WITH G AS
    (
      SELECT OA1P.FQZC2I2(LGRDBID)DBID
         , OA1P.FQZC2I2(LGRPSID) PSID
         , LGRPART PA
         , COUNT(*) CNT
         , MAX(TIMESTAMP(TRANSLATE('20YZ-MN-DE-', LGRUCDT, 'MNDEYZ')
               || TRANSLATE('HI.MN.ST.UV', LGRUCTM, 'HIMNSTUV'))) START
         , MAX(TIMESTAMP(SUBSTR(LGRSLRSN, 2, 8))) SLRSN
        FROM SYSIBM.SYSLGRNX
        GROUP BY LGRDBID, LGRPSID, LGRPART
    )
    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 G
         JOIN SYSIBM.SYSTABLESPACE S
         ON G.DBID = S.DBID AND G.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